Re^3: Can @ARGV work within Perl functions or is it just for script input?

in reply to Re^2: Can @ARGV work within Perl functions or is it just for script input?
in thread Can @ARGV work within Perl functions or is it just for script input?

Even in those cases, there are usually clearer solutions...

use Getopt::Long qw( GetOptionsFromArray );

sub do_awesome_things {
    GetOptionsFromArray( \@_,
        'files=s' => \my @files,
        'verbose!' => \my $verbose,
    );
    warn "Going to process files @files. "
       . "Verbose is ".( $verbose ? 'ON' : 'OFF' ).".\n";
}

do_awesome_things -v => -file => 'foo.txt', -file => 'bar.txt';
[download]

www.jasonkohles.com
We're not surrounded, we're in a target-rich environment!

In Section Seekers of Perl Wisdom