ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Gaiduk                     2:5020/400     16 Jun 2000  12:42:46
 To : All
 Subject : Re: file list
 -------------------------------------------------------------------------------- 
 

 >а никто не поделиться пpимеpчиком? чтоб он взял имена всех файлов из
 >опpеделенной диpектоpии и вывел на экpан
 >или хоть скажите как
 боюсь, что следующим вопросом у тебя будет:
 "а как по дереву каталогов пройтись?"
 :)
 
 так вот тебе ответ и на первый и на второй вопросы:
 
 &scandir("C:\\");
 
 sub scandir {
   my $d;
   my $nd;
   opendir(DIR, $_[0]);
   foreach $d (sort { $a cmp $b } readdir(DIR)) {
     if (($d ne ".") && ($d ne "..")) {
       $nd = $_[0] . "\\" . $d;
       if ( -d $nd ) {
 #        print "$nd\n";  # print directory names
         &scandir($nd);
       } else {
         print "$nd\n";  # print file names
       }
     }
   }
   closedir(DIR);
 }
 =GAV
 --- ifmail v.2.15dev5
  * Origin: InterGalactic MegaTrash Co. (2:5020/400)
 
 

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