Scope of ARGV

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

Replies are listed 'Best First'.
Re: Scope of ARGV by ikegami (Patriarch) on Nov 28, 2011 at 18:40 UTC
Are you sure you don't empty `@ARGV` before trying to use it in the sub? What you say doesn't appear to be true. `>perl -E"Foo::foo(); package Foo; sub foo { say for @ARGV }" a b c a b c` [download] `@ARGV` is global, even using it's unqualified name. You could also use its fully qualified name, but it's not necessary. `>perl -E"Foo::foo(); package Foo; sub foo { say for @::ARGV }" a b c a b c` [download] `@::ARGV` is also known as `@main::ARGV`.	[reply] [d/l] [select]
Re^2: Scope of ARGV by Anonymous Monk on Nov 28, 2011 at 19:36 UTC
My mistake. I was doing a call to "getopts" , forgetting that it strips ARGV clean. Thanks, John Bobinyec	[reply]
Re: Scope of ARGV by davido (Cardinal) on Nov 28, 2011 at 18:28 UTC
`@main::ARGV` Dave	[reply] [d/l]
Re: Scope of ARGV by toolic (Bishop) on Nov 28, 2011 at 18:39 UTC
I can access @ARGV from a sub in a package from a separate script: `$ cat Foo.pm package Foo; sub p { print "@ARGV\n" } 1; $ $ cat foo.pl #!/usr/bin/env perl use Foo; Foo::p(); $ ./foo.pl abc 123 abc 123 $` [download] Do you get errors or warnings? Show your code and how you call it.	[reply] [d/l]
Re: Scope of ARGV by chromatic (Archbishop) on Nov 28, 2011 at 18:33 UTC
Can you post simple test code? I've taken to starting my programs with: `#!/usr/bin/env perl use Modern::Perl; exit main(@ARGV); sub main { my @args = @_; ... exit 0; }` [download] ... but `@ARGV` is available by name even within `main()`. Improve your skills with Modern Perl: the free book.	[reply] [d/l] [select]