Select Code to Download

#!perl -w         # "-w" turns on all sorts of warnings about probable
+ errors. 
<br>
...
}

&listdirectory($dir);

read_import_test.pl

...
r:\\40K\\A400332S3_05.pdf
r:\\40K\\A400396S1_07.pdf
r:\\40K\\A400396S2_07.pdf

C:\Perl\Weir_scripts>perl -c import_prod.pl Ambiguous use of eval => r
+esolved to "eval" => at ..\lib/re.pm line 81. Perl 5.006 required--th
+is is only version 5.00307, stopped at ..\lib/File/Basena me.pm line 
+142. BEGIN failed--compilation aborted at ..\lib/File/Basename.pm lin
+e 142. BEGIN failed--compilation aborted at import_prod.pl line 3. 
C:\Perl\Weir_scripts>perl -v This is perl, version 5.003_07

C:\Perl\Weir_scripts>set IMAN
IMAN_BIN=c:\ugs\tceng912\bin
...
ORACLE_HOME=c:\ugs\tceng912
ORACLE_SERVER=wilmsntch5
ORACLE_SID=test

C:\UGS\tceng912\bin>dir perl.exe
Volume in drive C has no label.
...
07/02/1998 03:32 PM 87,040 perl.exe
1 File(s) 87,040 bytes 0 Dir(s) 12,339,765,248 bytes free 
C:\UGS\tceng912\bin>perl -v This is perl, version 5.003_07