Re: 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"

Comment on Re: print the array using command line arguements Select or Download Code

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]
Re^3: print the array using command line arguements by Fengor (Pilgrim) on Nov 30, 2006 at 08:03 UTC
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]


There's more than one way to do things
	PerlMonks