@result = grep {/pattern1/ && /pattern2/ && /pattern3/} @array;
On Wednesday, July 10, 2002, at 06:16 PM, Robert Kasunic wrote: > Hi, > > I am looking for an efficient way to do consecutive grep's in perl, i. > e. a possibility to resemble something like > 'cat some_file | grep pattern1 | grep pattern2 | grep pattern3'. > > I know I can do that as follows: > > @array = <SOME_FILE>; > @res_grep1 = grep /pattern1/, @array; > @res_grep2 = grep /pattern1/, @res_grep1; > @res_grep3 = grep /pattern1/, @res_grep2; > > But that doesn't look to nice, especially when thinking about more > grep statements. > > TIA > Robert > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > > // George Schlossnagle // Principal Consultant // OmniTI, Inc http://www.omniti.com // (c) 240.460.5234 (e) [EMAIL PROTECTED] // 1024D/1100A5A0 1370 F70A 9365 96C9 2F5E 56C2 B2B9 262F 1100 A5A0 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]