in reply to A Wayward Variable

Just remove the curlies in

my ($filename, undef, $ext) = fileparse($originalImage, qr({\..*}));

this will give .ext for extension

So to clarify... I think your issue is with the pattern you are using to match what will populate $ext

Pancho

Replies are listed 'Best First'.
Re^2: A Wayward Variable
by kalchas (Acolyte) on Mar 26, 2008 at 18:48 UTC
    Kalchas here, the Anonymous Monk who posted this post, now logged in. Removing the braces did the trick: thanks for your help, Pancho! Also, I benefited from the catch on the missing close paren on the if statement. Thanks for the super-quick help!
[reply]

In Section Seekers of Perl Wisdom