Re: I have problems with download scripts, it's trying to print instead of saving the file

Tad McClellan wrote:
E Arredondo wrote: 

$filename = $query->param("photo");
$filename =~ s/.*[\/\\](.*)/$1/;

perldoc File::Basename

Not for parsing the path that comes with a file upload request. File::Basename doesn't have a clue about the platform the file was uploaded from.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
.

Relevant Pages

  • Re: redirect without meta
    ... Tad McClellan wrote: ... it was a CGI problem rather than a Perl ... system interaction, emails, database communication etc. ... Gunnar Hjalmarsson ...
    (comp.lang.perl.misc)
  • Re: Yabba dabba dooo!
    ... AbiWord, OpenOffice, Bluefish, MPlayer, Unreal Tournament ... That makes them unsuitable for my home platform. ... I have no clue what was that supposed to be, ...
    (comp.databases.oracle.server)
  • Re: EOF (novice)
    ... >> There isn't a single clue to be found. ... > recognized varies from platform to platform, from OS to OS, and ... > single right answer that could've been included in the FAQ or in K&R. ...
    (comp.lang.c)
  • Re: Mail::Sender - Attaching output from pipe
    ... Gunnar Hjalmarsson wrote: ... > Tad McClellan wrote: ... > under the same terms as Perl itself. ...
    (comp.lang.perl.misc)
  • Re: Some Questions Asked in Interview
    ... To pass the array to a function. ... To pass a list of arrays to a fucntion. ... Ports vary from platform to platform. ... Not a clue what it means. ...
    (comp.lang.c)