Re: Re: CGI.pm's upload gives local filename, not file itself

[jarich]

in reply to Re: CGI.pm's upload gives local filename, not file itself
in thread CGI.pm's upload gives local filename, not file itself

Or you could use File::Basename which I believe is standard with the Perl distributions.

use File::Basename;
my $new_file_name = basename($full_path_name, 'jpg|JPG');
       # or
$new_file_name = basename($full_path_name, '\..*');
       # but this will return "James" from
       # "James.John.jpg"

or you could use split, or many other options. :)

jarich

[giulienk]

Using File::Basename isn't that easy indeed, cause you got to suggest him the operating system of the client.
You can do it by checking CGI server variables but i prefer the regex way, it's more straight forward IMHO.
Maybe split solution could be more readable, even if less efficient:

my $new_file_name = pop @{[split /\/|\\/, $full_path_name]};

$|=$_='1g2i1u1l2i4e2n0k',map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g