in reply to Getting a file's extension in an upload form

I've come up with a dirty yet fast solution to this problem. This should get the file's extension (considering whatever is after the last period) and also get rid of any junk that Windows NT appends to the filename when it's being pulled from the Desktop.

@extension = split(/\./,$filename);
$extension = $extension[$#extension];
@extension = split(/\\/,$extension);
$extension = $extension[0];

[download]

So if $filename is something like "C:\Whatever\some horrible.filename.by.me.doc\\NTDesktop\whatever", this will return "doc".

- Ralph

Replies are listed 'Best First'.
Re^2: Getting a file's extension in an upload form
by periapt (Hermit) on Jun 18, 2004 at 13:56 UTC
    Condensing this into a single line, ... (just for fun ;o) ) 
        $extension = (split(/\\/,(split(/\./,$filename))[-1]))[0];
    print "$extension\n";

    [download]
    or the, inevitable, map expression ... 
        ($extension) = map{ split /\\/,$_,2 } (split(/\./,$filename))[-1];
    print "$extension\n";

    [download]

    PJ
    unspoken but ever present -- use strict; use warnings; use diagnostics; (as needed)
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom