Re: Having trouble loading a hash with map

in reply to Having trouble loading a hash with map

#!/usr/bin/perl -w

use strict;
use Data::Dumper;
{
   local $/;  # unset the input record seperator in order to slurp the
+ contents of STDIN
   my %hash;
   %hash = map { chomp; $_ => '1' } split /(\s+|\W+)/, <>;
}

print Dumper(\%hash); # because that's how it's supposed to be used ;)
[download]

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

In Section Seekers of Perl Wisdom