Hi Perl monks,
I am new bee to perl, I am struck with issue where the code was working perfect until I upgraded the perl version from 5.14.4 to 5.22.3 on cygwin platform. The same script working fine on the other server with perl 5.14.4. Even on perl 5.22.4 strangely the code works fine for couple of runs and fails after . I tried debugging, but I am not sure where its going wrong, please help me understating why the issue arised after the upgrade.
Below is the code reference, I have posted only part of the code here as its very big script.
#!/usr/bin/perl # $Header: # my %CONFIG_PARAMS; my $mapattach; # grab the map attach from the conf file while (my ($key , $value) = each(%CONFIG_PARAMS)) { if ($file =~ /$key/) { $mapattach = $value; } } # is there a map attach for this file? unless (defined $mapattach) { #Println "Could not find the map attachment for $file, please c +heck the configuration file and try again"; Println "WARN : Ignoring $file, not found in the config file"; } # construct aicommand $aicommand = qq{"$ENV{'OT_DIR'}/bin/inittrans" -cs $ENV{'OT_QUEUE +ID'} -at $attach -DINPUT_FILE=$cpfile -DMESSAGE=$mapattach -DBYPASS=O +TINOByp.att};
In the above code, "$mapattach" variable is not piking up the value, hence throwing the error "Ignoring $file, not found in the config file";" even when file is there in the CONFIG_PARMS file .kindly help me how can I fix this issue.
thanks & Regards
Sri
In reply to Code Issue after Upgrading the perl from 5.14.4 to 5.22.3 by Srinath
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |