Re: shift @ARGV not working


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: shift @ARGV not working

by blue_cowdawg (Monsignor)

on May 09, 2013 at 18:47 UTC ( [id://1032817]=note: print w/replies, xml )

Need Help??

in reply to shift @ARGV not working

#!/usr/bin/perl -w 
use strict;

foreach my $i(0..$#ARGV){
        printf "\$ARGV[%d] = \"%s\"\n",$i,$ARGV[$i];
}

while(my $arg=shift @ARGV){
        printf "%s\n",$arg;
}

#
# -------------- 8< snip! 8<-------------
$ ./shifty.pl a b c d e f g
$ARGV[0] = "a"
$ARGV[1] = "b"
$ARGV[2] = "c"
$ARGV[3] = "d"
$ARGV[4] = "e"
$ARGV[5] = "f"
$ARGV[6] = "g"
a
b
c
d
e
f
g
[download]

I think the issue you are a having is you didn't shift prior to setting $argument.

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

Comment on Re: shift @ARGV not working Download Code

Replies are listed 'Best First'.
Re^2: shift @ARGV not working by Anonymous Monk on May 09, 2013 at 19:15 UTC
Howdy blue_cowdawg, How could you miss that? The issue he was having is variable scope issue. How does the OP think he would be able to print the variable, when it was scoped to the if block? Moreover, if the OP has used strict and warnings, he would have seen the red gauge I think you need a break from the keyboard. You are working to hard...	[reply]
Re^3: shift @ARGV not working by Anonymous Monk on Apr 04, 2024 at 13:13 UTC
Also, the OP did "`shift` before setting `$argument`", because the assignment is processed from right to left.	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1032817]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others chilling in the Monastery: (4)

As of 2024-04-25 16:43 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found