in reply to Why doesn't @ARGV work?
use strict;
# @ARGV is an array, so number of args in an array is $#ARGV+1
# The last element position is $#ARGV.
# Also I like to line up brackets and braces.
my $numargs = $#ARGV+1;
print "numargs = $numargs\n";
if ( $numargs > 0 )
{ for my $a ( @ARGV ) # $a gets assigned to each item in @ARGV.
{ print " $a\n"; }
}
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Why doesn't @ARGV work?
by LloydRice (Beadle) on Jul 17, 2014 at 12:34 UTC | |
by LloydRice (Beadle) on Jul 17, 2014 at 16:01 UTC | |
by LloydRice (Beadle) on Jul 17, 2014 at 16:12 UTC | |
by 2teez (Vicar) on Jul 17, 2014 at 16:38 UTC | |
by Anonymous Monk on Jul 18, 2014 at 07:54 UTC | |
by LloydRice (Beadle) on Jul 19, 2014 at 13:37 UTC | |
|