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

[download]

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";
         }
        }

    [download]

    Thank you for your help. Sammed

[reply]
[d/l]

In Section Seekers of Perl Wisdom