A small script that could help beginners trying to build command-line programs in Perl:

use List::Util qw(first);

foreach $arg (@ARGV) {
 $_ = $arg;
 if (/^-/)
 {
 print "$arg is an invocation option\n";
 #Eliminate invocation options from @ARGV before we run the <> operator
 splice @ARGV, first { @ARGV[$_] eq $arg } 0..$#ARGV, -1;
 }
}

while (<>) {
 chomp;
 print "It was $_ that I saw\n";
}

Related protips

Have a fresh tip? Share with Coderwall community!