> >> i don't thing the above will work. try:
> >>
> >> for(split(//)){
> >> if(ord < 32 || ord > 126){
> >> print "Char is non printable char\n";
> >> }else{
> >> print "$_\n";
> >> }
> >> }
I want to do following, if any char is ASCII value of
10 or 13, i want to make that char as null
like following
$_ = "hello\n\t\r world";
for(split(//)){
if(ord() < 32 || ord() > 126){
if (ord() eq 10 ) {
=====> make this char as null
}
if (ord() eq 13 ) {
=====> make this char as null
}
print "Char is non printable char\n";
}else{
print "$_\n";
}
}
__________________________________________________
Do you Yahoo!?
Yahoo! Tax Center - forms, calculators, tips, more
http://taxes.yahoo.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
