Re^3: GetOpts not working:

There appears to be no benefit to your use of a for loop in that code. Standard hash population means that it isn't needed.

use strict;
use warnings;

my @ARGV = qw(-infile data_in.bin -outfile data_out.bin);

my %args = @ARGV;

print "Infile: $args{-infile}\n", "Outfile: $args{-outfile}" if ( exis
+ts $args{-infile} && exists $args{-outfile} );
[download]

works just the same. HTH.

PS. I wouldn't use @ARGV for a lexical variable name since it ordinarily has a special meaning.

Comment on Re^3: GetOpts not working: Select or Download Code

Replies are listed 'Best First'.
Re^4: GetOpts not working: by james28909 (Deacon) on Dec 10, 2015 at 15:36 UTC
I tested it and it does indeed work. How is this possible? How does it know to put the filenames into their respective places? Does it somehow auto assign a key/value pair? Im just as confused lol, because I thought you had to shift the array to get the next value, but somehow it automatically did it :0 This is what i did: `use strict; use warnings; my %args = @ARGV; print "Infile: $args{-infile}\n", "Outfile: $args{-outfile}" if ( exis +ts $args{-infile} && exists $args{-outfile} );` [download] I fed it '-infile data_in.bin -outfile data_out.bin'. and it almost seems like it has assigned key/value pairs based off of my thought patterns lol <.< I guess what i am asking is, how did it build the hash? and why did `my %args = @ARGV;` build it correctly like that. How is 'data_in.bin' and 'data_out.bin' not a key? if key -infile contains value 'data_in.bin' then what assigned 'data_in.bin' to be its value? there was no shifting or anything to loop through the input args	[reply] [d/l] [select]
Re^5: GetOpts not working: by hippo (Archbishop) on Dec 10, 2015 at 16:08 UTC
Does it somehow auto assign a key/value pair? Essentially, yes. When you assign directly to a hash it expects a list of key-value pairs. This is why you sometimes see the warning "Odd number of elements in hash assignment" because the list must be even-sized so that each key has a corresponding value. These two assignments are effectively the same: `my %foo = ( baz => 1, frob => 'quux' ); my %bar = ( 'baz', 1, 'frob', 'quux' );` [download] There's more about this in List value constructors in perldoc. Does that help?	[reply] [d/l]
Re^6: GetOpts not working: by james28909 (Deacon) on Dec 10, 2015 at 16:30 UTC
Awesome. thanks for the link/info. i thought perl was reading my mind for a min there haha	[reply]