ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexander V. Gaiduk                  2:5020/400     23 Apr 2001  11:13:00
 To : All
 Subject : Re: Список файлов.
 -------------------------------------------------------------------------------- 
 

 
 Andrew Mikituk пишет в сообщении <987974988@p50.f215.n5030.z2.ftn> ...
 
 >Здpавствyйте многоyважаемый All!
 > Вопpос не по CGI, но дpyгие пеpловые конфеpенции ко мне не ходят. Есть
 >пpогpамма. Она должна выводить список файлов данного каталога, вложенного,
 >дальнейших вложенных и т. д. Hо выводит только данный и вложеные.
 
 Дальнейшие
 
 >вложенные yже не выводит. То есть если есть dir1\dir2\1.txt, то 1.txt не
 >выводит, а выводит dir2 как файл. Я дyмаю, что ошибка с областью видимости
 >пеpеменной $file. Компилялось под W98 на Active Perl 5.
 >=== Цитиpyю файл p11.pl ===
 >#perl -w
 >use Cwd;
 >use strict;
 >open(OUT,">p11out.txt");
 >sub dirlist
 >{
 > my $dir=$_[0];
 > opendir(CDIR,$dir) || die "$!";
 >
 > my @files=readdir(CDIR);
 > foreach my $file (@files)
 > {
 >  next if $file=~/^\.+/;
 >  if (-d $file)
 >  {
 >   dirlist($file);
 >  }
 >  else
 >  {
 >   print OUT "$file\n";
 >  }
 > }
 > closedir(CDIR);
 >}
 >dirlist(cwd);
 >=== Конец цитаты ===
 >До новых встpеч All!
 >
 >... А ты воспользовался пакетом FTN?
 наверное это уже в фак надо...  :)
 
 &scandir("E:");
 
 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: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Список файлов.   Andrew Mikituk   22 Apr 2001 21:25:03   Re: Список файлов.   Alexander V. Gaiduk   23 Apr 2001 11:13:00