TT#72350 move default values to post-getopt

This makes it possible to load values from a config file but also
override them at the CLI.

Change-Id: Ie05c6fccb64d3b9edc8974a24669fb79feca7c0b

utils/rtpengine-ctl

@@ -6,9 +6,8 @@ use warnings;
 use IO::Socket::INET;
 use Getopt::Long;
 
-my $argumentstring = "";
-my $ip = "127.0.0.1";
-my $port = 9900;
+my $ip;
+my $port;
 
 my $optret = GetOptions(
     'help|h'              => sub { showusage(); exit 0; },
@@ -16,11 +15,11 @@ my $optret = GetOptions(
     'port=i'              => \$port,
 );
 
-if ($ip =~ s/:(\d+)$//) {
+if ($ip && $ip =~ s/:(\d+)$//) {
     $port = $1;
 }
 
-$argumentstring = "@ARGV";
+my $argumentstring = "@ARGV";
 $argumentstring = trim($argumentstring);
 
 if (!$argumentstring || !$optret || $port <= 0 || $port > 65535) {
@@ -28,6 +27,9 @@ if (!$argumentstring || !$optret || $port <= 0 || $port > 65535) {
     exit 1;
 }
 
+$ip //= '127.0.0.1';
+$port //= 9900;
+
 # create a connecting socket
 my $socket = new IO::Socket::INET (
     PeerHost => $ip,