Perl практика



              

Использование дескрипторов файлов.


Чтение строк из файла:

open(EP, "/etc/passwd"); while(<EP&gt) { chomp; print "I saw $_ in the passwdord file!\n"; } close(EP);

Для записи:

print LOGFILE "Finish!\n"; print STDOUT "Finish!\n";

Копирование данных из файла в файл:

open(IN, $a) die "cannot open $a for reading: $!"; open(OUT, ">$b") die "cannot create $b: $!"; while(<IN&gt) { print OUT $_; } close(IN) die "cannot close $a: $!"; close(OUT) die "cannot close $b: $!";




Содержание  Назад  Вперед