I have a thing driving me NUTS.... trying to detect a ' in a variable
with regex, and either strip it out or at least detect and error out.
for instance, this just does NOT work.
$UploadedImage = 'badname\'s.jpg' ;
if ( $UploadedImage =~ m/'/ ) {
&Warning_Status( $cCgiStatusFile ,
"Cannot upload file with \' in the filename , ".
"you MUST rename the file before upload!".
"\nPlease use the browser \"Back\" button, and ".
"try again after changing filename.\n" );
exit ;
}
How do I match the ' ?
thanks,
d
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
