Pathologically Eclectic Rubbish Lister | |
PerlMonks |
Re^5: using grep to search an arrayby alicatserver (Initiate) |
on Jun 06, 2011 at 21:54 UTC ( [id://908373]=note: print w/replies, xml ) | Need Help?? |
I made an improvement to my script and I thought Id post it so that others can benefit from it. This rewritten version gives me two files... items that were "found" when searching the allper array and items that were "not found". (PS: the variables were renamed) foreach (@raw_data) { $item=$_; chomp($item); if (grep/$item/,@allper) { push(@found,grep/$item/,@allper); } else { push(@notfound,$item); } } open RESULT, ">_found_items.txt"; print RESULT "@found\n\n"; close(RESULT); open noRESULT, ">_doesnotexist.txt"; print noRESULT "@notfound\n\n"; close(noRESULT);
In Section
Seekers of Perl Wisdom
|
|