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

The behavior of sending the entire filepath to the server is peculiar to Internet Explorer. So you should filter the filename with a regex to have a valid filename. Something like the following could do: 
my ($new_file_name) = $full_path_name =~ m!(?:.*\\|.*\/)?(.+)$!;

[download]
Update: well, it seems your problem was of another nature and already been solved: it's a bad habit to post before reading the full thread... sorry
$|=$_='1g2i1u1l2i4e2n0k',map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g

Replies are listed 'Best First'.
Re: Re: CGI.pm's upload gives local filename, not file itself
by jarich (Curate) on Feb 03, 2002 at 22:54 UTC
    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"

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

    jarich

[reply]
[d/l]
      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]};

      [download]
      $|=$_='1g2i1u1l2i4e2n0k',map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g
[reply]
[d/l]

In Section Seekers of Perl Wisdom