#!/oracle/product/11.2.0/perl/bin/perl -w
#set global variables
#directories where input file exist
$inputdirectories = '/MCS/MAINFRAME/REFERENCE/';
#directory where files will be moved to after job execution.
#$archivedirectory = '/MCS/MAINFRAME/REFERENCE/archive';
#command to move the files - to be used later.
#$mv_cmd = '/usr/bin/mv';
#Checking the server to connect
if ($ARGV[0] eq 'QA')
{
$ENV{"ORACLE_HOME"} = "/oracle/product/11.2.0";
$ENV{"PATH"} = "$ENV{'PATH'}:/oracle/product/11.2.0/bin";
$ENV{"ORACLE_SID"} = "db112";
#$dbsid = 'db112';
$dbuser = 'zx02169';
# $dbpwd = `/usr/local/pl/perlencrypt.pl -k /kda1/system/ealgorithm -d /sdr1/system/db112zx02169pw`;
}
 
$filepattern = '\d{1,4}.*A0NW9693.NDM.HBIDT.*.AD34XADJ.txt';

 
opendir ( IDIR, $inputdirectories) || die "Error in opening dir\n";
while( ($file = readdir(IDIR))){
        if ($file =~ $filepattern){
then
#Logfile location where it will reside
$logFile= "/MCS/MAINFRAME/REFERENCE/log/procedure_code.log";
#Control file location
$confile="/MCS/MAINFRAME/REFERENCE/control/proc_codes_34.ctl";
print "$dbuser\n";
#print "$dbpwd\n";
system ("/usr/local/pl/perlencrypt.pl -k /kda1/system/ealgorithm -d /sdr1/system/db112zx02169pw | sqlldr userid=$dbuser control=$confile log=$logFile");
print "Complete\n"
}else{
print "Cannot find the file\n";

$filepattern = '\d{1,4}.*A0NW9693.NDM.HBIDT.*.AD34XADJ.txt';

echo '2011040675821.MBT.A0MW9693.NDM.HBIDT.AD38XPRC.txt' | perl -nle 'if(/^(\d{1,4})/) {print $1}'

Unquoted string "echo" may clash with future reserved word at ./test_procedure_codes.pl line 27.
String found where operator expected at ./test_procedure_codes.pl line 27, near "echo '2011040675821.MBT.A0MW9693.NDM.HBIDT.AD38XPRC.txt'"
        (Do you need to predeclare echo?)
Unquoted string "perl" may clash with future reserved word at ./test_procedure_codes.pl line 27.
String found where operator expected at ./test_procedure_codes.pl line 27, near "nle 'if(/^(\d{1,4})/) {print $1}'"
        (Do you need to predeclare nle?)
Scalar found where operator expected at ./test_procedure_codes.pl line 38, near "$logFile"
        (Missing semicolon on previous line?)
syntax error at ./test_procedure_codes.pl line 27, near "echo '2011040675821.MBT.A0MW9693.NDM.HBIDT.AD38XPRC.txt'"
Unmatched right curly bracket at ./test_procedure_codes.pl line 48, at end of line
syntax error at ./test_procedure_codes.pl line 48, near "}"
Unmatched right curly bracket at ./test_procedure_codes.pl line 51, at end of line
Execution of ./test_procedure_codes.pl aborted due to compilation errors.