Help with Perl script

[Anth Courtney]

Dave,

On Tue, 24 Mar 2009, Dave Martini wrote:

> I'd like to run a command called metastat and have it search its output
> for the word Ok but what I have so far doesn't work. Anyone have any
> suggestions?
> 
> #!/bin/perl
> $target = "Ok";
> open(INPUT, "<'metastat'");

Change this line to

open(INPUT, "metastat|");

> while (<INPUT>) {
> if (/$target/) {
>                 print  "Found $target\n";
> }
> }
> close(INPUT);

cheers,
Anth