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";
}
Written by Jean-Rémy Duboc
Related protips
Have a fresh tip? Share with Coderwall community!
Post
Post a tip
Best
#Perl
Authors
janosgyerik
25.11K
Jean-Remy Duboc
12.22K
Sponsored by #native_company# — Learn More
#native_title#
#native_desc#