20. System

Write Command's Output In File

 

       my $command = ... ;

       open my $afile, ">", $logFileName or die "Couldn't open $logFileName: $!";

       open my $fh, "$command |" or die "cannot run command: $!";

 

       while ( my $row = <$fh> ) {

             print $afile $row . "\n";

      }

 

       close $fh ;

       close $afile ;