Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: How to Parse a Text into HoA

by pg (Canon)
on Nov 01, 2005 at 15:06 UTC ( #504600=note: print w/ replies, xml ) Need Help??


in reply to How to Parse a Text into HoA

You need to: 1)remember the $fname across loops, so define it outside; 2)also you need to my %hoa; 3) there is no need to define that $content.

use Data::Dumper; use strict; use warnings; my %hoa; my $fname; while (my $line = <DATA>) { chomp $line; if ($line =~ /^[a-z]/ ) { $fname = $line; } elsif ($line =~ /^[0-9]+,/) { push @{$hoa{$fname}}, $line; } } print Dumper(\%hoa); __DATA__ >data set dm01 >instances 0,-869,foofoofoofoofoofoofoofoo,28 0,-853,barbarbarbarbar,14 >data set yst02 >instances 0,-1566,quxquxquxqux,9 0,-1545,bembembem,9 0,-1394,birbirbirbir,9 >data set mus03 >instances 0,-1274,tingtingtingting,11 0,-1220,tongtongtong,11 0,-475,bubububu,11 0,-459,catcatcatcatcat,11


Comment on Re: How to Parse a Text into HoA
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://504600]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2014-08-23 12:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (173 votes), past polls