redirect grep output

[Anonymous Monk]

Below is a snippet of a simple script giving me problems. The first use of fgrep marked (1) redirects GREAT. The last 4 marked (2) simply output to the screen and ignore my pipe! If I change the $log to a constant it works fine? Any ideas?

#Scan the log dir for useful logfiles
chdir ("$BackPath");
(1) system "fgrep -l $Date * > /nwscan/tmplog";
chdir ("$MainPath");
$log1 = $target[0];
$log2 = $target1;
$log3 = $target2;
#print $log1;
#print $log2;
#print $log3;
chdir ("$BackPath");
(2)system "fgrep server $log1>>/nwscan/$Server";
(2)system "fgrep type $log1>>/nwscan/$Server";
(2)system "fgrep started $log1>>/nwscan/$Server";
(2)system "fgrep completion $log1>>/nwscan/$Server";

[adamsj]

Have you considered defining $Server?

Also, what is system returning when you make those calls? Have you checked that yet?

[Adam]

Any ideas?

Yes.
1. use strict;
2. use warnings; or -w on Perl < 5.6
3. check the sucess of system calls.
4. use strict;
5. use whitespace in your system calls.
6. use <code> tags when posting code here
7. use strict;

[chipmunk]

You don't show where the value that ends up in $log1 comes from originally, but I'll bet you need to chomp it to remove a newline. If $log1 ends in a newline, then you're really passing two separate commands to system, an fgrep and a redirection of nothing.

[Anonymous Monk]

Thanks alot! A stupid mistake, but I am by no means a "Perl Monk". I chomped the var and it worked great!
Kenny