$full_path ='A:\dir\file.jpg';
$filename  = basename($full_path);   # file.jpg
[download]

my ( $filename ) = ( $path =~ /(\w+(?:\.\w+)?)$/ );
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

use strict;
use warnings;

my @path = split(/\\/, "c:\\windows\\desktop\\pic3.jpg");
print pop(@path);
[download]

Note the escaped "\" character.

----
Coyote

@pathtofile = split(/\\/, $path);
$file =  pop(@pathtofile);

$path here can be parsed from the form
[download]

A split will only work, if the filename is delimited by a backslash ('\'). Under DOS/Windows, there is still the nasty and often overlooked possibility of having a filename like c:myfile.ext, which is a valid filename, meaning a file on the drive c: in the current directory for drive c:.

So the split should at least be on [\\:], but if we want real portability, I second the use of File::Basename, which is in the standard Perl distribution.

Another function is splitpath from File::Spec.

use File::Spec;
($volume,$directories,$file) = File::Spec->splitpath( $path );
# process $file
[download]

This will of course work for / (unix), \ (win) and : (mac), unlike your regex. Still so should File::Basename.

(fastolfe) gemina:~$ cat test
use File::Basename;

fileparse_set_fstype('MSWin32');   # Because I'm on Unix

while (<DATA>) {
        chomp;
        printf("%20s %s\n", $_, basename($_));
}

__DATA__
a:\pic3.jpg
a:\some\dir\pic.jpg
a:\some\other\pic
\blah\pic.
a:\pic
a:pic.jpg
a:\pic3.

(fastolfe) gemina:~$ perl test
         a:\pic3.jpg pic3.jpg
 a:\some\dir\pic.jpg pic.jpg
   a:\some\other\pic pic
          \blah\pic. pic.
              a:\pic pic
           a:pic.jpg pic.jpg
            a:\pic3. pic3.
[download]

So if File::Basename is working properly, perhaps your input is messed up somehow? Are you reading your filenames from a file perhaps and forgetting to chop off the newline?

Let me explain in a little more detail what I'm trying to do. I have a form that writes to a text database. In that form, I have file upload fields that are used solely to get filenames for a photographic tour. When the names are written to the database, they have to have their paths chopped off. Those upload fields don't upload images because I couldn't get an upload script working that would upload that many images at once... The filenames are written to a text file (after having their paths chopped off) that tells what files need to be uploaded. Any path works so long as it has some folder in the path. Eg: A:\pic3.jpg would not work, whereas A:\test\pic3.jpg would.

What was the path when it was uploaded from a floppy?

Duplicate post.