Help with Perl script

[Dave Martini <martini1@xxxxxxxx>]

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?
Thanks much.
Dave.


#!/bin/perl
$target = "Ok";
open(INPUT, "<'metastat'");
while (<INPUT>) {
        if (/$target/) {
                print  "Found $target\n";
}
}
close(INPUT);

--
redhat-list mailing list
unsubscribe mailto:redhat-list-request@xxxxxxxxxx?subject=unsubscribe
https://www.redhat.com/mailman/listinfo/redhat-list