Shell Programming and Scripting

Use of uninitialized value $ENV{"COUNTRYCD"} in concatenation (.) or string at /GIS_ROOT/custom/tables/DBread_vendor.pl line 50.

echo -n "Enter the Country Code - "
read COUNTRYCD
 
echo -n "Enter Start date in YYYY-MM-DD format - "
read STARTDATE[/FONT][/SIZE]
echo -n "Enter End date in YYYY-MM-DD format - "
read ENDDATE
 
echo -n "Enter the Vendor Number-"
read VENDNUM
 
export STARTDATE
export ENDDATE
export VENDNUM

my $DRSQL = "SELECT dest_batch_name FROM Document WHERE dest_batch_name LIKE '$ENV{'COUNTRYCD'}' AND LEFT(entity_ref_id,6) = '$ENV{'VENDNUM'}'[
AND (batch_create_ts BETWEEN '$ENV{'STARTDATE'}' AND '$ENV{'ENDDATE'}')";

perl -e 'print "$ENV{USER}\n"'

use Data::Dumper;
print Dumper \%ENV;

#!/usr/bin/perl

use strict;
use warnings;

print "Enter the Country Code - ";
my $countrycd = <stdin>;
chomp $countrycd;
#always validate user input

print "Enter Start date in YYYY-MM-DD format - ";
my $startday = <stdin>;
chomp $startday;
#always validate user input
$startday =~ /\d{4}-\d{2}-\d{2}/ || die "The format for start date is YYYY-MM-DD: $startday was entered\n";

print "Enter End date in YYYY-MM-DD format - ";
my $endday = <stdin>;
chomp $endday;
#always validate user input
$endday =~ /\d{4}-\d{2}-\d{2}/ || die "The format for end date is YYYY-MM-DD: $endday was entered\n";

print "Enter the Vendor Number -";
my $vendnum = <stdin>; # read from stdin user input
chomp $vendnum; # remove the ENTER pressed by user
#always validate user input

my $drsql = "SELECT dest_batch_name FROM Document WHERE dest_batch_name LIKE '$countrycd' " .
            "AND LEFT(entity_ref_id,6) = '$vendnum' " .
            "AND (batch_create_ts BETWEEN '$startday' AND '$endday')";

...
export STARTDATE
export ENDDATE 
export VENDNUM
# now start perl from here, so it gets the just defined environment variables
perl ...