Another option would be to use the Perl version of grep from the PPT (Perl Power Tools) project.
PPT Home http://www.perl.com/language/ppt/ tcgrep Source http://www.perl.com/language/ppt/src/grep/tcgrep tcgrep Perldoc http://www.perl.com/language/ppt/src/grep/tcgrep.html Rob -----Original Message----- From: Jerry Rocteur [mailto:[EMAIL PROTECTED]] Sent: Tuesday, December 10, 2002 3:23 PM To: [EMAIL PROTECTED] Subject: GNU grep -C in Perl Hi, Anyone know how to write a grep -C in Perl ? You know, I want to search for a string/regexp in a file and I want to print the line before and the line after the search string. I've tried a couple of ways and it takes a really long time, I load the file in memory, seach for the string, extract the line number of the string $. subtract one and add one and print the three lines but this can take a very long time.. I don't have grep -C on the system I want to do this. I've looked at perldoc and the list archives and can't fing any help.. Thanks in advance, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
