 |
Манипулирование файловыми хэндлерами в Perl (доп. ссылка 1) |
[обсудить]
|
| | Пример хранение дескрипторов в хэше:
...
[Слишком большой объем текста. Скрыт. Для просмотра см. продолжение]
|
| |
 |
|
|
Как в Perl/PHP выводить данные без буферизации, не дожидаясь конца строки |
[комментарии]
|
| | Perl:
"$!=1;" или "use IO::Handle; FH->autoflush(1);"
PHP:
После каждой операции вывода вызывать flush();
|
| |
|
|
|
Как на Perl прочитать и преобразовать права доступа к файлу в приемлимый для chmod вид. |
[комментарии]
|
| | $file_mode = (stat( $file_path ))[2];
$stat_mode = sprintf ("%04o", $stat_mode & 07777);
print "chmod $stat_mode $file_path\n";
chmod ($stat_mode, "файл");
|
| |
|
|
|
Как получить рекурсивный список файлов |
[обсудить]
|
| | use File::Find;
sub get_file{
my ($file_name) = $_;
my $file_fullpath = $File::Find::name;
my $file_dir = $File::Find::dir;
}
find (\&get_file, "/usr/some/dir");
|
| |
|
|
|
Как получить список файлов в директории |
[комментарии]
|
| | opendir (DIR,"$dir_path");
my @files=grep (!/^\.+$/,readdir (DIR)); # или foreach my $cur_file (readdir(DIR)){..}
closedir (DIR);
|
| |
|
|
