Использование дескрипторов файлов для работы с файлами в Perl

Самым простым дескриптором файлов является ромбическая операция о, у которой в принципе вообще нет никакого постоянного дескриптора: она представляет собой просто способ, позволяющий рассматривать входящий файл (или набор файлов) из командной строки как входной дескриптор файла до тех пор, пока в этом файле остаются строки для считывания. Чтобы воспользоваться ромбической операцией, подготовьте цикл наподобие такого, как показан ниже:

while (<>) 
{ 
  print $_;
}

Затем запустите свою программу, указав одно или более имен файлов в командной строке:

# ./myscript.pl filel.txt file2.txt

Это приведет к распечатке содержимого всех указанных файлов, почти так же, как и при использовании команды cat. Такой способ получения доступа к содержимому файлов является удобным и быстрым. Однако он также и достаточно ограниченный; ромбическая операция в принципе представляет собой "вырожденный вариант" истинного дескриптора файла. Давайте рассмотрим несколько заданных должным образом дескрипторов, чтобы увидеть, что они на самом деле могут делать.

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

open (FH,"/path/to/filel.txt");
while ($thisline = <FH>)
{
  chomp ($thisline);
  print "$i: $thisline\n";
} 
close (FH);

Бывает так, что Perl не удается открыть файл, либо потому что он не существует, либо потому что установленные полномочия не разрешают выполнять чтение этого файла, либо еще по какой-то причине. Вы можете перехватить подобные события, воспользовавшись операцией die: если при вычислении выражения управление перейдет к die, он передаст свой аргумент (если таковой имеется) на стандартный вывод и выполнение сценария завершится. Ниже показан наиболее распространенный способ применения операции die при открытии файлов:

open (FH,"/path/to/filel. txt") || die ("Невозможно открыть filel.txt!");

Выполнение записи в файлы является немного более сложной задачей, поточу что существует так много различных способов того, как ее можно выполнить, Главное, запомните, что для записи можно применять любой дескриптор, который разрешается использовать в командной строке, такой как > (перезапись) или >>(добавление), или даже | (конвейер). Последний может пригодиться, скажем, для того, чтобы сценарий записывал свой вывод в электронное сообщение (обратите внимание на упрощенный метод прохода через массив @contents и распечатки каждой строки):

open (FH,">/path/to/file2.txt"); 
print FH $_ foreach (@contents); 
close (FH);
 
open (MAIL,"| /usr/sbin/sendmail -oi -t"); 
print MAIL "From: me\@somewhere.com\n"; 
print MAIL "To: you\@somewhereelse.com\n"; 
print MAIL "Subject: Важная информация!\n\n"; 
print MAIL $_ foreach (@contents);
close (MAIL);

Дескриптор файла передается в качестве аргумента команде print; здесь важно понимать следующее: если только не был указан какой-то другой дескриптор, предполагается, что этим аргументом является встроенный дескриптор файлов (стандартный вывод). Также еще имеется дескриптор (стандартный ввод). Чтобы указать дескриптор устройства ввода-вывода, который должен использоваться по умолчанию, применяйте функцию select(

select(FH);

В таком случае вам не придется все время вводить print FH. Однако вам обязательно нужно будет изменить дескриптор обратно ка STDOUT. когда вы закончите работать с FH.

Для работы с каталогами доступны свои функции: opendir () и readdir (); вы можете открыть каталог и прочитать его содержимое в массив следующим образом:

opendir (DIR,"/path/to/dir"); 
@files = sort readdir  (DIR); 
closedir  (DIR);

Даже с помощью всего лишь описанных методов вы уже можете делать некоторые очень интересные вещи. Например, вы можете открыть файл /etc/passwd, выбрать оттуда все записи с идентификатором пользователя (UID) больше 1000 и распечатать регистрационные и обычные имена таких пользователей:

#!/usr/bin/perl
 
open (PASSWD,"/etc/passwd") || die ("Невозможно открыть файл passwd!");
while($line = @passwd)
{  
   @userdata = split(/:/,$line);  
   if($userdata[2] > 1000) 
   {     
      print "$userdata[0]: $userdata[4]\n";
   }
}

Вот и готова полезная программа! Именно это и делает Perl таким популярным. Он позволяет создавать программы, затрачивая лишь минимальное количество усилий, что значительно упрощает жизнь.