Использование дескрипторов файлов.
Чтение строк из файла:
open(EP, "/etc/passwd"); while(<EP>) { 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>) { print OUT $_; } close(IN) die "cannot close $a: $!"; close(OUT) die "cannot close $b: $!";
