Re^2: using grep to search an array

Here's the data that I should have added earlier...
Also, the goal is to print the matching 7 digit line. If I found 7770005 I would get the full line from fileB.
(And I change the grep line to a push)
push(@grepnames,grep/$testit/,@fileb);

fileA:
7770005
7770012

fileB:
7770001 ABA BANKING JOURNAL.RECORD # = b12822826. OK
7770002 THE ABNF JOURNAL.RECORD # = b13671558. ok
7770003 ACADEMIC EXCHANGE QUARTERLY : AEQ.RECORD # = b14618114. ok
7770004 THE ACADEMY OF MANAGEMENT REVIEW.RECORD # = b12691070. ok
7770005 THE ACCOUNTING REVIEW.RECORD # = b13123269. ok
7770006 "ACCOUNTING, ORGANIZATIONS AND SOCIETY.RECORD " # = b15123236. ok
7770007 "ACTA CRYSTALLOGRAPHICA. SECTION A: CRYSTAL PHYSICS, DIFFRACTION,
7770008 ADAPTED PHYSICAL ACTIVITY QUARTERLY : APAQ.RECORD # = b13274272. ok
7770009 ADMINISTRATION IN SOCIAL WORK.RECORD # = b12754225. ok
7770010 ADMINISTRATIVE SCIENCE QUARTERLY.RECORD # = b13123415.
7770011 ADOLESCENCE.RECORD # = b13171288. ok
7770012 ADVANCES IN NURSING SCIENCE.RECORD # = b12795896. ok

Comment on Re^2: using grep to search an array

Replies are listed 'Best First'.
Re^3: using grep to search an array by John M. Dlugosz (Monsignor) on May 23, 2011 at 20:53 UTC
OK, so it is supposed to be a prefix. That means the \n at the end of $testit is getting in the way of letting it match. Use chomp inside the loop.	[reply]
Re^4: using grep to search an array by alicatserver (Initiate) on May 23, 2011 at 21:11 UTC
Chomp worked!! thanks	[reply]
Re^5: using grep to search an array by alicatserver (Initiate) on Jun 06, 2011 at 21:54 UTC
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);	[reply]


Keep It Simple, Stupid
	PerlMonks