On Nov 5, 2009, at 19:18, Shlomi Fish wrote:
if ( !$filename ) { print $q->header ( ); print "There was a problem uploading your file.\n"; exit; }This is invalid HTML. It does not matter here a lot, though.
Yeah, you could use: print $q->h2('There was a problem uploading your file.');
my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );
You may want to look at File::Basename for this type of file name parsing, it works really well:
use File::Basename; my $filename = basename $path-with-file; Jeremiah -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
