What's wrong with @ARGV

karlgoethebier has asked for the wisdom of the Perl Monks concerning the following question:

Hi, please take a look at this little snippet:

use Data::Dumper;

my $dir=$ARGV[0];

print Dumper(\@ARGV);

print $dir;

print shift;

__END__


D:\tmp\Scripts>z1.pl foo
$VAR1 = [];
Use of uninitialized value $dir in print at D:\tmp\Scripte\z1.pl line 
+12.
Use of uninitialized value in print at D:\tmp\Scripte\z1.pl line 14.

D:\tmp\Scripts>perl z1.pl foo
$VAR1 = [
          'foo'
        ];
foofoo
D:\tmp\Scripte>
[download]

Big surprise!

It works on Linux, Mac and XP.

OS is Windows7 with ActivePerl.

Whats going on here?

Thank you and regards, Karl

«The Crux of the Biscuit is the Apostrophe»

Comment on What's wrong with @ARGV - or with me? Download Code

Replies are listed 'Best First'.
Re: What's wrong with @ARGV - or with me? by choroba (Cardinal) on Jun 12, 2013 at 12:18 UTC
Wrong file association/registry setting not passing arguments? لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]
Re^2: What's wrong with @ARGV - or with me? by karlgoethebier (Abbot) on Jun 12, 2013 at 12:30 UTC
...file association is OK. Regards, Karl «The Crux of the Biscuit is the Apostrophe»	[reply]
Re^3: What's wrong with @ARGV - or with me? by BrowserUk (Patriarch) on Jun 12, 2013 at 12:36 UTC
.file association is OK. Doubtful. Your symptoms are exactly those of a windows system with mis-configured associations. Please post your output from running `assoc .pl` and `ftype Perl` With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]
Re^4: What's wrong with @ARGV - or with me? by blue_cowdawg (Monsignor) on Jun 12, 2013 at 13:02 UTC
Re^5: What's wrong with @ARGV - or with me? by BrowserUk (Patriarch) on Jun 12, 2013 at 13:16 UTC
Some notes below your chosen depth have not been shown here
Re^4: What's wrong with @ARGV - or with me? by karlgoethebier (Abbot) on Jun 12, 2013 at 13:16 UTC
Re^5: What's wrong with @ARGV - or with me? by BrowserUk (Patriarch) on Jun 12, 2013 at 13:21 UTC
Some notes below your chosen depth have not been shown here
Re^3: What's wrong with @ARGV - or with me? by fishmonger (Chaplain) on Jun 12, 2013 at 15:28 UTC
Your .pl file association is correct in regards to executing the script, but is incorrect/incomplete because it doesn't "see" the args passed to the script. Look up the HKEY_CLASSES_ROOT\Applications\perl.exe\shell\open\command entry in the registry. The value should be "C:\Perl\bin\perl.exe" "%1". I suspect that yours is missing the "%1" EDIT: Sorry, I just saw your .pl association post. It looks correct.	[reply]
Re^4: What's wrong with @ARGV - or with me? by karlgoethebier (Abbot) on Jun 12, 2013 at 15:31 UTC
Re: What's wrong with @ARGV - or with me? by Utilitarian (Vicar) on Jun 12, 2013 at 12:40 UTC
Assuming your file association is correct Windows 7 Enterprise with Perl 5_16 from active state `C:\Users\utillitarian>type test.pl #!/usr/bin/perl $dir=$ARGV[0]; use Data::Dumper; print Dumper(\@ARGV); print "$dir\n"; print shift; C:\Users\utillitarian>perl test.pl foo $VAR1 = [ 'foo' ]; foo foo C:\Users\utillitarian>` [download] Perl's file association is to gvim on this box though `print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."`	[reply] [d/l] [select]


Perl Monk, Perl Meditation
	PerlMonks

What's wrong with @ARGV - or with me?