On Feb 17, jimf said: >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.
One thing you might want to add is \Q...\E around the $string in the regex, so that if I enter "(foo)", the regex tries to match a literal '(' instead of thinking I want to capture text. > 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"; Open another file for output: open RESULTS, "> $somefile" or die "Can't write to $somefile: $!\n"; > while(<LOG>){ > print if /\b$string\b/i; print RESULTS if /\b\Q$string\E\b/i; > } > close(LOG); -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. [ I'm looking for programming work. If you like my work, let me know. ] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]