Re: Having trouble loading a hash with map

[Utilitarian]

#!/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 ;)

[AnomalousMonk]

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',