Re: Extracting web data

Your use of '^' is causing problems. '^' marks the beginning of an line and '$' marks the end of a line ("the buck stops here").

If the PMID is always numeric simply use:

if($foo->identifiers() =~ /PMID: (\d+)/) {print FH "$1\n";}
[download]

Update: reworded post.

Comment on Re: Extracting web data Download Code

Replies are listed 'Best First'.
Re^2: Extracting web data by smandape1 (Acolyte) on Jun 13, 2011 at 14:37 UTC
Thank you for your reply. Well, I tried using the above code but it doesn't seem to work. I getting the same output as below. `http://www.ncbi.nlm.nih.gov/pubmed/4012367 PMID: PMID: 4012367 http://www.ncbi.nlm.nih.gov/pubmed/20215333 PMID: doi:10.1093/fampra/cmq003PMID: 20215333 http://www.ncbi.nlm.nih.gov/pubmed/20429974 PMID: PMID: 20429974 http://www.ncbi.nlm.nih.gov/pubmed/20338007 PMID: doi:10.1111/j.1600-0838.2009.01081.xPMID: 20338007 http://www.ncbi.nlm.nih.gov/pubmed/17438827 PMID: PMID: 17438827 http://www.ncbi.nlm.nih.gov/pubmed/17447555 PMID: PMID: 17447555` [download] Also, the PMID is always a number.	[reply] [d/l]
Re^3: Extracting web data by zek152 (Pilgrim) on Jun 13, 2011 at 14:42 UTC
Did you uncomment the if statement and comment the other print? The code I posted cannot print non numeric data. If the regular expression I provided does not match anything then please provide exactly what `$foo->identifiers()` prints.	[reply] [d/l]
Re^4: Extracting web data by Anonymous Monk on Jun 13, 2011 at 17:02 UTC
Yes, I did uncomment the if statement and comment the other print. But, I didn't get any output. $foo-> identifiers() prints the following output. `PMID: PMID: 4012367` [download] it prints this if its only PMID else, if there are two identifiers it prints both the doi and the PMID as follows `PMID: doi:10.1093/fampra/cmq003PMID: 20215333` [download]	[reply] [d/l] [select]
Re^5: Extracting web data by zek152 (Pilgrim) on Jun 13, 2011 at 17:12 UTC
Re^6: Extracting web data by smandape1 (Acolyte) on Jun 13, 2011 at 17:48 UTC


laziness, impatience, and hubris
	PerlMonks