Операции ввода-вывода

Выполнение системных команд

#! perl -w
$command = "dir"; # Печать содержимого текущего
                  # каталога в ОС Windows 
$scalar = ‘$command‘; # Скалярный контекст.
@list = ‘$command‘;   # Списковый контекст, 
print "Содержимое скалярной переменной\n"; 
print "-" х 80, $scalar; 
print "-" х 80;
print "Содержимое первых двух элементов массива\n";
print "-" х 80, $list[0], $list[1];
print "-" х 80;

Содержимое скалярной переменной:
-----------------------------------------------
Том в устройстве С имеет метку SYSTEM
Серийный номер тома:  1D26-1BFC
Содержимое папки C:\01d_D\My Books\Perl Manual\ch06
.             <ПАПКА>  13.05.01   10:38.
. .           <ПАПКА>  13.05.01   10:38..
CH06 DOC 236 544   11.07.01 20:56 ch06.doc
EX06-01 PL   404   11.07.01 21:26 ex06-01.pl
F    F        33   11.07.01 13:46 f.f
3 файлов	236 981 Байт
2 папок	12 938.20 МБ свободно
-----------------------------------------------
Содержимое первых двух элементов массива:
-----------------------------------------------
Том в устройстве С имеет метку SYSTEM
-----------------------------------------------

Операция «ромб»

open (FH, "<", "file.dat"); # Открыли файл и создали
                            # для него дескриптор FH
$line = <FH>                # Использовали дескриптор файла
                            # для чтения первой строки

ВНИМАНИЕ. При чтении строки из стандартного устройства ввода или из файла операцией <> следует помнить, что завершающий символ перехода на новую строку также будет прочитан.

@line = <FH>;  # Читаем сразу все строки файла

perl program.pl par1 раr2 раr3

#! perl -w
while ($line = <>) {
  print $line;
}

#!perl  -w
open FH, "<", "f.f";
$l = <FH>;
print "Файл FH: строка $.: $l";
$l = <>;
print "Файл STDIN: строка $.:  $l";
$l = <FH>;
print "Файл FH: строка $.:   $l";
$l = <>;
print "Файл STDIN: строка $.:  $l";
close FH;

Файл FH: строка 1:  line 1
клавиатура 1
Файл STDIN: строка 1:  клавиатура 1
Файл FH:  строка 2:  line 2
клавиатура 2
Файл STDIN: строка 2: клавиатура 2

@ARGV = ("file1.dat", "file2.dat", "file3.dat");
for (;<>;) {
  Операторы обработки строк файлов 
}

while (<>) {
  print; 
}

#! perl -w
while ($_ = $ARGV[0], /^-/) { 
  if(/^-d/ || /^-s/ || /^-е/) {
    print $ARGV[0], "\n";
  }
  else {
    print "Неизвестный ключ $ARGV[0]\n";
  } 
  shift;
}

ВНИМАНИЕ Программа из листинга 6.4 работает правильно, но в случае, если в нее передаются только ключи, появится предупреждающее сообщение о том, что в выражении-условии цикла в операции поиска по образцу переменная не инициализирована. Это связано с тем, что при отсутствии других параметров, задаваемых после ключей, после операции сдвига элементов массива @ARGV в нем не будет содержаться ни одного элемента — он просто будет пуст.

$first = <*.pl>;

@files = <*.pl>;

ПРИМЕЧАНИЕ Имена подкаталогов текущего каталога считаются файлами без расширения. Например, в возвращаемом операцией <*.*> списке файлов будут содержаться и имена подкаталогов текущего каталога.

@files = </perl/*.pl>;

ПРИМЕЧАНИЕ В системе Windows эта операция найдет все файлы с расширением рl в каталоге /perl текущего диска. Для задания конкретного диска следует использовать принятый в Windows синтаксис для полного имени файла; <d:/perl/*.*>. Эта операция возвратит список всех файлов каталога /perl, расположенного на диске d:.

while ($file = <*.pl>) {
  print "$file\n";
}

ПРИМЕЧАНИЕ Операция получения имен файлов, соответствующих заданному шаблону, реализуется с помощью внутренней функции glob, единственным параметром которой является шаблон имен файлов. Эту функцию можно использовать самостоятельно для получения соответствующих имен файлов: @scripts=glob "*.pl";, В скалярном контексте она возвращает имя первого файла, удовлетворяющего заданному шаблону, в списковом — список имен всех файлов. Употребленная без параметра, она использует в качестве параметра специальную переменную $_.

Вывод информации функцией print

print ДЕСКРИПТОР СПИСОК;

ВНИМАНИЕ Дескриптор файла в функции print отделяется от списка выводимых элементов пробелом, а не запятой. Типичная ошибка — отделить его запятой от выводимых элементов.

#! perl -w
open FILEOUT, ">", "file.dat"
print "String 1:";
print "String 2:\n";
print "String 3:", "\n";
print STDOUT "String 4:\n";
print FILEOUT "String 4:\n";

String l:String 2: String 3:
String 4:

print ($m + $n) ** 2;

print STDOUT ($m + $n) ** 2;  # Выведет ($m + $n) ** 2

print;         # Вывод переменной $_ на экран монитора
print STDOUT;  # Эквивалентен предыдущему оператору. 
print FILEOUT; # Вывод переменной $_ в файл,
               # ассоциированный с дескриптором FILEOUT

Следующая страница

Содержание главы