Detect non ascii character

[pho01]

How do I replace any non ascii characters with a question mark? (?)

We have xml interface to submit incidents in, and it doesn't accept any non ascii characters. I want to replace all non ascii chars with a (?) before submitting?

Anyone knows the search pattern for non ascii char? or Perl function to do such that?

Thanks!

 

[MacTommy]

Why don't you take a look at what

$sMyString =~ s/[i]pattern[/i]/[i]replacement[/i]/g

does?

 

[pho01]

I know, just don't know what the pattern should be for non-ascii?

or non english characters....

there're lots of non english characters out there, can't capture them all...

 

[travs69]

I don't know if this is the best way.. but's how I figured out how to do it.

use POSIX qw(isprint);

if (isprint($char)){
print "$char\n";;
}


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[prex1]

If by non ascii you mean all characters above chr(127), this is what you need:
[tt]$str=~tr/\200-\377/?/;[/tt]

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[rvBasic]

This is probably somewhat more general:

$nonasc="\x{999}";
$str="$nonasc character $nonasc replaced by ? $nonasc";
$str=~s/\P{IsASCII}/?/g;
print "$str\n";

_________________________________
In theory, there is no difference between theory and practice. In practice, there is. [attributed to Yogi Berra]