Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Data Structure Question

by bichonfrise74 (Vicar)
on Nov 25, 2009 at 22:42 UTC ( #809451=note: print w/ replies, xml ) Need Help??


in reply to Data Structure Question

Try this.

#!/usr/bin/perl use strict; use Data::Dumper; my %record; while (<DATA>) { next if ( /^Employee/ ); my ($employee, $form, $date) = split( /\s+/ ); $record{$employee}->{$form} = $date; } print Dumper \%record; __DATA__ Employee Form Date 10001 10 20090101 10002 10 20080515 10003 10 20090323 10001 20 20090412 10002 20 20090711


Comment on Re: Data Structure Question
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2014-07-26 05:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (175 votes), past polls