* Получение списка файлов # Вариант 1 opendir(MYDIR, "/tmp") || die "$!"; @files = <MYDIR>; @files = grep /.txt$/i, readdir MYDIR; while($file = readdir <MYDIR>) { ... } closedir(MYDIR); # Вариант 2 @files = glob('/tmp/*.tmp'); @files = <*.txt>; # Создание, удаление каталогов @fileinfo = stat $filename; unlink($file); rename $old, $new; mkdir($newdir, 0755); rmdir($newdir);
Perl Справочник v0.05 © 2007-2025 Igor Salnikov aka SunDoctor