home *** CD-ROM | disk | FTP | other *** search
/ ftp.vvm.com / 2014.06.ftp.vvm.com.tar / ftp.vvm.com / pub / doindex < prev    next >
Text File  |  1998-03-19  |  241b  |  16 lines
  1. #!/usr/bin/perl
  2.  
  3. @dirarray = `tree -dfi`;
  4. foreach $d (@dirarray){
  5.     $d=~s#\.\/##g;
  6.     chomp $d;
  7.     if (chdir $d){
  8.         #do stuff
  9.         $files = `ls -1 > index`;
  10.         print "Made Index for $d\n";
  11.         chdir "/home/ftp/pub";    
  12.     } else {
  13.         print "FOOBAR\n";
  14.     }
  15. }
  16.