#!/usr/bin/perl -w use strict; `clear`; print "\n\n\n\n What is the Passing Variable? "; my $ans = <STDIN>; chomp $ans; my $results = `perl some_perl_script.pl -s $ans -r`; my $file = './log/$ans.log'; open my $fh, '>>', $file or die "$file: $!'; print $fh $results; close $fh; print $results;
In reply to Re: Perl script Print to Screen and log
by wind
in thread Perl script Print to Screen and log
by daddygoofball
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |