ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  30 Mar 2000  19:50:23
 To : gold@ems.ru
 Subject : Re: ???
 -------------------------------------------------------------------------------- 
 

 >> > SK> Как в пеpле вывести список файлов в диpектоpии ?
 >> > SK> те этот список надо засунуть в пеpеменную .
 
 >> opendir(D, $dir) or die;
 >> my @list = grep { -f "$dir$_" } readdir(D);
 >> closedir(D) or die;
 >> print join("\n", @list, '');
 
 ger> Я в перле новичок, так что мне до таких изысков далеко, поэтому
 ger> я бы сделал немного проще:
 
 ger> @list=<*>;
 ger> print join "\n", @list;
 
 Если ты под виндой или в chroot'е, тебе скажут, что нема csh. И будут
 совершенно правы.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор