ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitriy Goldobin                     2:5020/400     30 Mar 2000  00:41:57
 To : All
 Subject : Re: ???
 -------------------------------------------------------------------------------- 
 

 Hi!
 
 > > 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, '');
 
 Я в перле новичок, так что мне до таких изысков далеко, поэтому
 я бы сделал немного проще:
 
 @list=<*>;
 print join "\n", @list;
 
 Bye.
 --- ifmail v.2.15dev4
  * Origin: Electronic Microsystems JSC (2:5020/400)
 
 

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