File::Basename Under W98

[Crowder, Rod]

I am trying to use the File::Basename module to strip off the suffix of a
file, and use the base with different suffixes for output and log files.

if I Give the file name "XYZData.txt", Basename returns the full name not
the "XYZData" string, leaving me with a log file "XYZData.txt.log"

Any Ideas as to what I am doing wrong?


Rod CROWDER

Mailto:[EMAIL PROTECTED]
Tel: +44-1293-584145
Mob: +44-7711-553080
Fax: +44-1293-584994
 


<SNIP>
print ("Enter name of source file :");
$SourceFile = <>;
chomp $SourceFile;
open( STDIN, "<$SourceFile") or die;
File::Basename::fileparse_set_fstype("MSWin32");
$BaseName = File::Basename::basename($SourceFile, '\..*');
$ImportFile = $BaseName.".imp";
$LogFile = $BaseName.".log"; 

</SNIP>



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]