Help for this page
# Tye + Juerd in id=204874 sub slurp { local( *ARGV, $/ ); @ARGV = shift; <> }; # slurp a bunch of files @files = do { local(@ARGV, $/) = @filenames; <> };
# get the indexes of items in an array @foo{ @foo } = 0 .. $#foo; ... $i++ while $_[$i] ne $target; return $i==$#_ ? undef : $i }
www.com | www.net | www.org
No recent polls found