Для того, чтобы открыть файл используется функция open(). Её формат: open(переменная,"[способ открытия]путь к файлу");. Под переменной впоследствии будет пониматься символьное обозначение файла. Для закрытие файла используем close(переменная).
Способов открытия для файла несколько. Наиболее важными являются:
open(myfile,"myfile"); # Открыть файл для чтения
open(myfile,">myfile); # Открыть файл для записи
open(myfile,">+myfile); # Открыть файл для чтения и записи
open(myfile,">>myfile); # открыть файл для дозаписи
Открыв файл, вы можете считать из него строку в переменную:
$str=<переменная>; # Где переменная соответствует переменной, обьявленой в open()
или весь файл в массив:
@str=<переменная>;
Избавиться от символа перехода на новую строку, поможет функция chomp($переменная).
Вписать что-либо в файл можно стандартным оператором print: print переменная "text";
Вот простой пример, который выводит содержимое файла на экран:
open(passwd,"/etc/passwd");
while ($read=<passwd>){
print "$read\n";
}
close(passwd);
Для удаления файла используется функция unlink("имя_файла"), для переименования: rename("имя_файла","новое_имя_файла");
Следующие операции осуществляют проверку над файлами: -e - файл или каталог существует.
if(-e "file") {print "Yes"; }
-z - файл существует и имеет нулевую длину.
if(-z "tmp") { unlink("tmp"); }
-d - файл является каталогом.
if(-d "myfile") { chdir("myfile"); }
-s - размер файла в байтах.
unlink("file") if (-s "file" < 20);
Другие полезные функции
Рассмотрим другие, очень полезные функции. В первую очередь такими являются split() и join(). Они помогают разбить или склеить строку по определённым символам.
@massiv=split(/:/,$str); # Разбивает строку по ":"
print "$massiv[0]\n"; # Печатает первый элемент, стоящий перед ":" в строке
$str=join(/;/,@massiv); # Склеивает все элементы массива по ";"
Функция substr() позволяет выделить часть строки. Формат функции:
substr($строка,начальный номер элемента,конечный номер элемента);
$str1=substr($str,0,7); # Присваивает $str1 первые 7 элементов $str;
Функции lenght и scalar позволяют узнать количество символов в строке и количество элементов в массиве соответственно:
$count=lenght($str); # Возвращает кол-во символов в $str
$arr=scalar(@array); # Возвращает кол-во элементов в массиве @array
Сайты
Здесь я изложил только общие сведения о языке Perl. Большую информацию вы можете узнать, посетив другие сайты. Вот небольшой список таковых:
