The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Работа с файлами

   Корень / Программисту и web-разработчику / Perl / Работа с файлами

----* Манипулирование файловыми хэндлерами в 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);
 

 Версия для печати




  Закладки на сайте
  Проследить за страницей
Created 1996-2017 by Maxim Chirkov  
ДобавитьРекламаВебмастеруГИД  
Hosting by Ihor TopList