http://qs321.pair.com?node_id=586890


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";

[download]

--
"WHAT CAN THE HARVEST HOPE FOR IF NOT THE CARE OF THE REAPER MAN"
-- Terry Pratchett, "Reaper Man"

Replies are listed 'Best First'.
Re^2: print the array using command line arguements
by lidden (Curate) on Nov 30, 2006 at 07:57 UTC
    The first argument of @ARGV is not the progname
    perl -wle 'print "@ARGV"' 3 4 The progname is in $0
[reply]
[d/l]
[select]
      oh right.

      --
      "WHAT CAN THE HARVEST HOPE FOR IF NOT THE CARE OF THE REAPER MAN"
      -- Terry Pratchett, "Reaper Man"

[reply]
Re^2: print the array using command line arguements
by reneeb (Chaplain) on Nov 30, 2006 at 08:00 UTC
    nope

    #!/usr/bin/perl

use strict;
use warnings;

print "@ARGV\n";

    [download]


    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

    [download]
    Edit: This is an answer to Fengor, not lidden
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom