Ramprasad A Padmanabhan wrote:
>
> Hello all,
Hello,
> I am sure this must have been asked before But I cant find it
>
> How do I find if
> $str has any special chars ( I mean above 127 in the ascii range )
>
> I do not want to do an ord of each character
>
> like while($str=~/(.)/g) { return('found') if(ord($1) > 127) }
if ( $str =~ tr/\x80-\xFF// ) {
print "\$str contains non-ASCII characters.\n";
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
