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."

Replies are listed 'Best First'.
Re^2: Having trouble loading a hash with map
by AnomalousMonk (Archbishop) on May 03, 2012 at 18:58 UTC

    If the File::Slurp module is not available, I find the
        do { local $/;  <> }
    expression preferable due to narrower, thus better controlled, scoping. (In original reply, lexical  my %hash; was defined within, accessed from outside of a block.) 

    >perl -wMstrict -le
"use Data::Dumper;
 ;;
 my %hash =
   map { chomp; $_ => '1' } split /(\s+|\W+)/, do { local $/;  <> };
 ;;
 print Dumper \%hash;
"  new_ib1.txt  | head -10
$VAR1 = {
          '' => '1',
          'BIG' => '1',
          'you' => '1',
          'model' => '1',
          'NOT' => '1',
          ',' => '1',
          'understand' => '1',
          'MY' => '1',
          '2' => '1',

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom