Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://809451]
help
Chatterbox?
[ambrus]: Ok, so Prima has a postscript-like coordinate system
[Corion]: ambrus: Yes, which kinda makes sense because Prima also has Postscript output or something, I think

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2016-12-09 10:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (150 votes). Check out past polls.