Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: get array from getoptions

by ctilmes (Vicar)
on Aug 19, 2008 at 16:59 UTC ( #705269=note: print w/replies, xml ) Need Help??

in reply to get array from getoptions

With the caveat that I'm really sure exactly what you are doing, I reformatted and tweaked a bit:
use strict; use warnings; use Getopt::Long; my $input = { output_type => 'default', files => [], eventlist => [] }; my $p = new Getopt::Long::Parser; $p->configure('pass_through'); my $getoptret = $p->getoptions ( 'files:s@' => $input->{files}, #filename(s) 'eventlist:s@' => $input->{eventlist}, #name of the e +ventlist 'output_directory:s' => \$input->{output_directory}, # desired out +put dir ); die "Error: Give input SEED volume\n" unless defined $input->{files}; foreach (@{$input->{files}}) { die "Error: Missing file" unless -e; } die "Error: Give name of eventlist that should be used\n" unless defined $input->{eventlist}; die "Error: Give output directory\n" unless defined $input->{output_directory}; print "File List: @{$input->{files}}\n"; pritn "Event List: @{$input->{eventlist}}\n"; print "Output Directory: $input->{output_directory}\n";
If you run it like this:

perl -f test_1 -f test_2 -e event1 -e event2 -o outputdir

it will output this:

File List: test_1 test_2 Event: event1 event2 Output Directory: outputdir

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://705269]
[karlgoethebier]: ...because of sausage and luncheon meats...
[karlgoethebier]: ... the ultimate coding experience for everyday people...
[karlgoethebier]: me
[marto]: what a mess
[karlgoethebier]: perhaps i need a zerial?
[Corion]: marto: Heh - I think that's a nice contractual trap, "you will not use other gods/engines besides ours" ;)
[Corion]: But if the base intention was to have CIG as "co-developers" who (have to) contribute changes back to the mainline, it makes sense to have them use no other engine

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2017-12-14 10:31 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (389 votes). Check out past polls.