Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re^2: printing hash values, (don't need the keys)

by GrandFather (Sage)
on Jul 06, 2006 at 22:32 UTC ( #559685=note: print w/replies, xml ) Need Help??

in reply to Re: printing hash values, (don't need the keys)
in thread printing hash values, (don't need the keys)

If you omit the chomp then you can:

my $data_file = "ActiveItems2.txt"; open(DAT, $data_file) || die("Could not open file: $!"); my %seen; $seen{$_}++ while <DAT>; print for sort keys %seen; close(DAT);

Another interesting variant (although it may suffer the slurp problem) is to use a hash slice:

@seen{<DAT>} = (); # Hash slice assignement print for sort keys %seen;

It's worth seeing the hash slice a few times to remember that it is there and what the syntax is. Like many things in Perl, occasionally it is exactly what you need to achieve a clean solution to a problem. Perhaps not in this case though. :)

DWIM is Perl's answer to Gödel

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://559685]
[jedikaiti]: Pretty!

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (11)
As of 2018-03-20 16:12 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (254 votes). Check out past polls.