Select Code to Download

Select or download this

[me@host me]$ cat C:\\temp\\testtmp.tmp
ABCD_060824010101.DAT
EFGH_060824010101.DAT
HIJK_060824010101.DAT
060824010101[me@host me]$

Select or download this

   my $valuFileName="ABCD_060824010101.DAT";
   my $distFileName="EFGH_060824010101.DAT";
...
   open(TMP_FILE, ">", $tmp_file) or die "failed to write '$tmp_file':
+ $!\n";
   print TMP_FILE join("\n", $valuFileName, $distFileName, $tranFileNa
+me, $busnDate);
   close TMP_FILE;