Re^2: Getting a file's extension in an upload form

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)

Comment on Re^2: Getting a file's extension in an upload form Select or Download Code