Hello Monks,


I'm not sure what's going on here with this. I've used this method for command line args over and over again
and suddenly now it doesn't seem to be working correctly...?

I'm simply passing in 2 IP Addresses to the script but they are not being assigned to the Variables and
I can't seem to figure out why...


COMMAND:
./test_perl.pl ipAddr=192.168.1.1 server=192.168.5.1

CODE:

#!/usr/bin/perl

use warnings;
use strict;
use File::Copy;
use Getopt::Long;
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;

# TEST --> Print the Args so we can see that they are being passed:
print "\@ARGV: \"@ARGV\"\n\n";

my $srv_address;
my $ip_address;

if ( @ARGV > 0 ) {
    print "GETTING OPTIONS...\n\n";

    GetOptions('ipAddr=s' => \$ip_address,
           'server=s' => \$srv_address
    );
}

print BOLD "    IP Address = " . RESET "$ip_address\n";
print BOLD "SERVER Address = " . RESET "$srv_address\n";

exit 0;
[download]

OUTPUT:

@ARGV: "ipAddr=192.168.5.196 server=192.168.5.1"

GETTING OPTIONS...

Use of uninitialized value $ip_address in concatenation (.) or string 
+at ./test_diff.pl line 25.
IP Address =
Use of uninitialized value $srv_address in concatenation (.) or string
+ at ./test_diff.pl line 26.
SRV Address =
[download]

Does anyone see what I'm doing wrong here...?
Any thoughts would be great!



Thanks in Advance,
Matt