Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

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

by giulienk (Curate)
on Feb 03, 2002 at 13:37 UTC ( #143054=note: print w/ replies, xml ) Need Help??


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!(?:.*\\|.*\/)?(.+)$!;
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


Comment on Re: CGI.pm's upload gives local filename, not file itself
Download Code
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"
    or you could use split, or many other options. :)

    jarich

      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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://143054]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (14)
As of 2014-08-29 12:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (280 votes), past polls