Re: print the array using command line arguements

[Fengor]

in reply to print the array using command line arguements

The problem in your code is the line my @new = @array[join(",",@ARGV)]; because the first element of @ARGV is the program name Fengor writes a 100 times ksh is not perl try

#!/usr/bin/perl

use strict;
use warnings;

my @array = ( 11,12,13,14,15);

#my @new = @array[join(",",@ARGV)];
#my @new = @array[1,3];
my @new = @array[$ARGV[0],$ARGV[1]];
print "@new\n";

[lidden]

The first argument of @ARGV is not the progname
perl -wle 'print "@ARGV"' 3 4
The progname is in $0

[Fengor]

oh right.

[reneeb]

nope



#!/usr/bin/perl

use strict;
use warnings;

print "@ARGV\n";



Output:


~/entwicklung 14> perl argv.pl  1
1
(reneeb) Thu Nov 30 09:05:18 [-bash]
~/entwicklung 15> perl argv.pl  1 3
1 3
(reneeb) Thu Nov 30 09:06:06 [-bash]
~/entwicklung 16> ./argv.pl 1
1
(reneeb) Thu Nov 30 09:06:10 [-bash]
~/entwicklung 17> ./argv.pl 1 3
1 3

Edit: This is an answer to Fengor, not lidden