Введение в PERL

К файлу на диске в Perl принято обращаться по имени файловой переменной. Соответствие между файлом и файловой переменной (которая еще называется дескриптором) устанавливается операцией open, например:

open(FILE,"<test");

назначить переменной FILE (файловые переменные пишутся без вводного символа $) файл test, открытый для чтения (знак меньше ("<") перед названием файла обозначает открытие для чтения, знак больше (">") -- для записи, два больше (">>") для добавления). Чтобы прочитать строку из файла, нужно использовать операцию космического корабля (spaceship), которая пишется для данного случая так: <FILE>, где FILE -- файловая переменная, пример:

open(TEST1,"<test");
$a=<TEST1>;

в переменной $a будет значение первой строки файла test и еще символ новой строки. Чтобы убрать символ новой строки нужно использовать команду chomp($a); где $a -- переменная, у которой мы хотим убрать последний символ новой строки, то есть 

open(TEST1,"<test");
$a=<TEST1>;
chomp($a);
print $a;

не забудьте, что как я уже писал в статье "Введение в UNIX", CGI-скрипты будут выполняться пользователем nobody, так что файл test должен иметь атрибуты, открытого для чтения для пользователя nobody.

Операция закрытия файла пишется как close(FILE);.