Removing File Extensions

cybermack72 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Removing File Extensions by rjray (Chaplain) on Feb 27, 2002 at 22:50 UTC
Look at File::Basename. This is a part of the Perl core. --rjray	[reply]
Re: Removing File Extensions by vek (Prior) on Feb 28, 2002 at 00:01 UTC
For example: `use File::Basename; # your code here my ($name, $dir, $extension) = fileparse ($theActualFile, '\..*');` [download] HTH	[reply] [d/l]
Re: Re: Removing File Extensions by ignatz (Vicar) on Feb 28, 2002 at 00:11 UTC
Than use move to move em. Bada Bing Bada Bang!	[reply]
Re: Re: Removing File Extensions by grummerX (Pilgrim) on Feb 28, 2002 at 14:49 UTC
If you need to do any manipulation involving the path, check out File::Spec. I have found the catfile and splitpath functions to be particularly useful. -- grummerX	[reply]
Re: Removing File Extensions by YuckFoo (Abbot) on Feb 28, 2002 at 18:07 UTC
You can also use substitution to build the log filename. `$logfile = $file; $logfile =~ s/\.asc$/.log/;` [download] Or maybe you already have a regex to determine if you have a valid ascii filename: `if ($file =~ m{(.*)\.asc}) { $logfile = "$1.log"; }` [download] YuckFoo	[reply] [d/l] [select]