Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: List manipulation

by Not_a_Number (Parson)
on May 31, 2012 at 18:47 UTC ( #973586=note: print w/ replies, xml ) Need Help??


in reply to List manipulation

use 5.010; my %parsed; while ( <DATA> ){ my @tmp = split; $parsed{$tmp[0]}{x1}++ if $tmp[1] eq '1_x'; $parsed{$tmp[0]}{c3}++ if @tmp > 2; } for my $k ( sort keys %parsed ) { say join ' ', $k, $parsed{$k}->{x1}, $parsed{$k}->{c3}; } __DATA__ A 1_x 9_z A 1_x A 1_x g_z B 2_c B 1_x 1_z C 1_x 1_z C v_x 8_z

Update: The output part of the above code breaks for a given ID if (a) '1_x' never appears in column 2, or (b) '1_x' appears in column 2 but there is never a third column for this ID. To understand what I mean, add the following lines to __DATA__:

D v_x s_x E 1_x

Solution: change the line in the for loop to:

  say join ' ', $k, $parsed{$k}->{x1} || 0, $parsed{$k}->{c3} || 0;


Comment on Re: List manipulation
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (16)
As of 2014-11-25 21:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (158 votes), past polls