Re^5: Extracting web data

[zek152]

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.

[smandape1]

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