Your slurp:
@files = { local(@ARGV, $/) = @filenames; <> }; # missing 'do'
Should actually be:
@files = do { local(@ARGV, $/) = @filenames; <> };
And your index hash:
@foo{ @foo } = 0 .. @foo; # off-by-one error
Should be:
@foo{ @foo } = 0 .. $#foo;
In reply to Re^2: Common Perl Idioms
by revdiablo
in thread Common Perl Idioms
by eric256
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |