Next

Program Repair Shop

32

CopyFiles

• I'd still like to get rid of $s and $d

        system("cp $dir/$file $dir/$NextOut/$file");

• But they are needed for use in the following diagnostic line:

        print "$s->$d\n";

• Is the format of this line important?

• Probably not; it is most likely a programmer diagnostic

• In that case, we can use:

        my $command = "cp $dir/$file $dir/$NextOut/$file";
        system($command);
        print "$command\n";

• Or possibly:

        system("cp -v $dir/$file $dir/$NextOut/$file");

Next

Copyright © 2002 M. J. Dominus