Next Program Repair Shop 121

Unnecessary Shell Calls

        `date`
        @files = `ls`;
        @files = `ls *.c`;
        $data = `cat file`; 
        { my $fh = FileHandle->new('file');
          local $/;
          $data = <$fh>;
        }
        $cutvar = `echo $array[0] | cut -c1-7`;
        $cutvar = substr($array[0], 0, 7); 


Next Copyright © 2002 M. J. Dominus