Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Deciphering the output from Data::Dumper

by Limbic~Region (Chancellor)
on Dec 15, 2007 at 01:20 UTC ( #657153=note: print w/replies, xml ) Need Help??


in reply to Deciphering the output from Data::Dumper

DigitalKitty,
One of the issues you have is that you have not given names to your keys. Instead, you have used a value as a key. This is why the output of Data::Dumper is confusing. Consider this alternative:
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %data; while (<DATA>) { chomp; my ($ln, $fn, $score) = split ' '; $data{$ln} = {fn => $fn, score => $score}; } print Dumper(\%data); # Show just last names print "$_\n" for sort keys %data; # Show name and score for my $ln (sort keys %data) { my ($fn, $score) = @{$data{$ln}}{qw/fn score/}; print "$ln\t$fn\t$score\n"; } __DATA__ Lateur Bart 97 Pierce Jerrad 96 Unknown planetscape 101 Miller Katie 86

Cheers - L~R

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (2)
As of 2021-04-16 21:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?