Rajini Naidu wrote:
Hi,
Hello,
I am trying to search for a pattern in a file in my perl script.
Syntax used is :
system("grep \"$res\" ${data_dir}/${node}.load >
/tmp/${day[0]}.${day[1]}.${day[2]}.${node}.log");
But the grep command is'nt successful in getting the desired string.
Am I missing anything here ?
open my $IN, '<', "$data_dir/$node.load" or die "Cannot open
'$data_dir/$node.load' $!";
open my $OUT, '>', "/tmp/$day[0].$day[1].$day[2].$node.log" or die
"Cannot open '/tmp/$day[0].$day[1].$day[2].$node.log' $!";
while ( <$IN> ) {
next unless /$res/;
print $OUT $_;
}
John
--
Those people who think they know everything are a great
annoyance to those of us who do. -- Isaac Asimov
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
