Next

Program Repair Shop

37

CopyFiles

• We now have:

        sub CopyFiles {
            my $dir = shift;
            foreach $file (@_) {
              next if $file !~ /\d/;
              next if $file !~ /\.txt$/;
              my $command = "cp $dir/$file $dir/$NextOut/$file";
              system($command);
              print "$command\n";
            }
        }

• The final problem is the global variable $NextOut

Next

Copyright © 2002 M. J. Dominus