> -----Original Message-----
> From: Crowder, Rod [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, September 27, 2001 5:37 AM
> To: Perl Beginners List (E-mail)
> Subject: File::Basename Under W98
>
>
> 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>
per the docs, basename() doesn't allow regexes;
use a literal suffix or use fileparse() instead.
$BaseName = basename($SourceFile, '.txt');
($BaseName) = fileparse($SourceFile, '\..*');
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
