This little script is one of my first attempts with perl, it works ok
but I
would also like to capture the output to file. Help appreciated. Would
also
appreciate constructive criticism of the script itself.(oh,oh!)
The script basically takes a named file, and searches the file for a
specified string.
###################
#!/usr/bin/perl -w
print "File to search ?\n";
$logfile = <STDIN>;
chomp $logfile;
print "Search for what ?\n";
$string = <STDIN>;
chomp $string;
open(LOG,"$logfile") or die "Unable to open $logfile:$!\n";
while(<LOG>){
print if /\b$string\b/i;
}
close(LOG);
####################
cheers
jimf
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
