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

I'm trying to find a way to remove a file extension from a file in Win32. I'm reading in a directory's listing and want to remove the .asc extension from each asci file and verify there is a corresponding .log file (named exactly the same except the extension)

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]
      Than use move to move em. Bada Bing Bada Bang!
[reply]
      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]

Back to Seekers of Perl Wisdom