CGI Re: Paths in Perl

[andye]

'course, there's a different issue if you're writing a CGI script which accepts a file upload.

Assuming you want to extract the filename from the pathname, I've been known to use something along the lines of this:

my ($filename) = ($pathname =~ m|[/\\:]([^/\\:]+)$|);

but if anyone has a better solution then I'd be interested to hear it.

andy.

[rob_au]

In the CGI::Upload module, the following code was used to parse the full pathname of the uploaded file - This code makes use of HTTP::BrowserDetect to detect the client operating system from the sent HTTP headers and set the parse behaviour of File::Basename accordingly.

The pertinent code in question ...

use CGI;
use File::Basename;
use HTTP::BrowserDetect;


sub _handle_file {
    my ($self, $param) = @_;
    my $cgi = $self->query;

    #   Determine and set the appropriate file system parsing routines
+ for the
    #   uploaded path name based upon the HTTP client header informati
+on.

    fileparse_set_fstype(
        sub {
            my $browser = HTTP::BrowserDetect->new;
            return 'MSWin32' if $browser->windows;
            return 'MacOS' if $browser->mac;
            $^O;
        }
    );
    my @file = fileparse( $cgi->param($param), '\.[^\.]*' );

    #   Return an undefined value if the file name cannot be parsed fr
+om the
    #   file field form parameter.

    return undef unless $file[0];

    .
    .
    .

}

 

perl -e 'print+unpack("N",pack("B32","00000000000000000000000111100010")),"\n"'