Re^4: Extracting web data

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]

Comment on Re^4: Extracting web data Select or Download Code

Replies are listed 'Best First'.
Re^5: Extracting web data by zek152 (Pilgrim) on Jun 13, 2011 at 17:12 UTC
I took your strings verbatim and ran my regular expression match. Code and results follow: `@strings = ("PMID: PMID: 4012367", "PMID: doi:10.1093/fampra/cmq003PMI +D: 20215333"); for $string (@strings) { if ($string =~ /PMID: (\d+)/) { print "$1\n"; } } #OUTPUT #4012367 #20215333` [download] I'm not exactly sure what your problem is but my code does what I believe you want to accomplish.	[reply] [d/l]
Re^6: Extracting web data by smandape1 (Acolyte) on Jun 13, 2011 at 17:48 UTC
Hey I got it. I did kinda what you did. I am all new to programming and so was a bit messed. Well, I used the following modification and it worked. `foreach $bar($foo->identifiers()){ if ($bar =~ /PMID: (\d+)/) { print FH "$1\n"; } }` [download] Thank you for your help. Sammed	[reply] [d/l]