home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / win32 / splittree.pl < prev    next >
Text File  |  1999-07-20  |  527b  |  25 lines
  1. use DirHandle;
  2. use AutoSplit;
  3.  
  4. sub splitthis {
  5. my ($top,$base,$dest) = @_;
  6. my $d = new DirHandle $base;
  7. if (defined $d) {
  8.     while (defined($_ = $d->read)) {
  9.         next if $_ eq ".";
  10.         next if $_ eq "..";
  11.         my $entry = "$base\\$_";
  12.         my $entrywithouttop = $entry;
  13.         $entrywithouttop =~ s/^$top//;
  14.         if (-d $entry) {splitthis ($top,$entry,$dest);}
  15.         else { 
  16.             next unless ($entry=~/pm$/i);
  17.             #print "Will run autosplit on $entry to $dest\n";
  18.             autosplit($entry,$dest,0,1,1);
  19.             };
  20.         };
  21.     };
  22. }
  23.  
  24. splitthis $ARGV[0],$ARGV[0],$ARGV[1];
  25.