Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Generalizing Regex with Multiple Match

by prasadbabu (Prior)
on Nov 25, 2008 at 08:51 UTC ( #725795=note: print w/replies, xml ) Need Help??


in reply to Generalizing Regex with Multiple Match

Hi neversaint,

You have to add while statement to get all the matches.

use strict; use warnings; use Data::Dumper; my %all_entry; while (<DATA>) { chomp; next unless (/^>/); my $line = $_; while ($line =~ /GI\=(\d+)\,(\w+)\,(\d+\-\d+)/g){ push @{ $all_entry{$1}{$2} }, $3; } } print Dumper \%all_entry; output: ------- $VAR1 = { '162960844' => { 'bw' => [ '0-4', '9025576-9025608' ] }, '152989753' => { 'bw' => [ '0-30', '1877925-1877931' ] } };

Prasad

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://725795]
help
Chatterbox?
NodeReaper eats a grue

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2017-09-22 02:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (255 votes). Check out past polls.

    Notices?