in reply to Re^4: Extracting web data
in thread Extracting web data

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

I'm not exactly sure what your problem is but my code does what I believe you want to accomplish.

Replies are listed 'Best First'.
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"; } }

    Thank you for your help. Sammed