On Fri, 20 Jun 2003, Matthew Seaman wrote: > That's not quite the same thing. You're just taking out the lines > that match /last message repeated \d+ times/ (and constructing a > backreference to \d+ that you never use): > > Jun 20 16:26:02 example /kernel: ipfw: 800 Deny TCP 12.34.56.78:1234 > 21.43.65.87:4321 out via de0 > Jun 20 16:26:27 example last message repeated 2 times > > becomes: > > Jun 20 16:26:02 example /kernel: ipfw: 800 Deny TCP 12.34.56.78:1234 > 21.43.65.87:4321 out via de0 > > whereas I'm replacing that line with the correct number of repeats of > the original line,
Ah, I didn't see that you were expanding those lines. You're right about the useless backreference. And then right after posting, I realized that it could be even smaller and--arguably--clearer: #!/usr/bin/perl -w while (<>) { print unless /last message repeated \d+ times/; } -Warren Block * Rapid City, South Dakota USA _______________________________________________ [EMAIL PROTECTED] mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "[EMAIL PROTECTED]"