The actual code is extensive, so I created a smaller version to demonstrate the ARGV problem.
#!/perl/bin/perl -w
# IEL - Interface Engine Lite
# IELmqsvr - Interface MQ Series Server script
# - This script establishes a tcp/ip socket with the rece
+iving system and interagates
# the MQ Series Queue for transactions to send.
# - Creation Date - 8/30/05
# - Modification Log -
#
# This section declares system Modules and Variables
require 5.002;
use IO::Select;
use Env;
use IO::Handle;
use strict;
use Errno qw(EAGAIN);
use IO::Socket;
use sigtrap;
my ($INAME);
$INAME = $ARGV[0];
print STDOUT "ARGV = @ARGV - 0 = $ARGV[0]\n";
exit;
Here is a sample run.
C:\IEL\bin>ARGVtst.pl LHW_TST
Use of uninitialized value in concatenation (.) or string at C:\IEL\bi
+n\ARGVtst.
pl line 23.
ARGV = - 0 =
C:\IEL\bin>
Once again any help will be appreciated. |