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: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |