in reply to Regex Extraction Help
Here's another option:
use Modern::Perl; my $dat = 'DR Pfam; PF00070; Pyr_redox; 2.'; my $info = (split '; ', $dat)[1]; say $info;
Output:
PF00070
Hope this helps!
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Regex Extraction Help
by Flexx (Pilgrim) on Aug 09, 2012 at 17:26 UTC | |
by Kenosis (Priest) on Aug 09, 2012 at 19:05 UTC | |
by Flexx (Pilgrim) on Aug 09, 2012 at 22:08 UTC | |
by Kenosis (Priest) on Aug 09, 2012 at 22:16 UTC | |
by invaderzard (Acolyte) on Aug 10, 2012 at 14:45 UTC | |
by Kenosis (Priest) on Aug 10, 2012 at 16:09 UTC |
In Section
Seekers of Perl Wisdom