3.1   Web Encoding & Decoding  3.1.1  Generic Web Encoding 3.2   Character Encoding 3.3   IDN Punycode

Check, if a string is an ASCII string or not

#!/usr/bin/perl -w
$| = 1;
use strict;

my $in = $ARGV[0] || 'foo';

print "\"$in\" is ... ";

if (&is_ascii($in)) {
        print "ASCII\n";
}
else {
        print "Non ASCII\n";
}

sub is_ascii($) {
        for (my $i = 0; $i < length($in); $i++) {
                if (unpack('C', substr($in, $i, 1)) > 127) {
                        return 0;
                }
        }
        return 1;
}

---

See also:
Web encoding decoding

Advanced search tips

---

[ home ] - [ search ] - [ feedback ]

copyright by reto - created with mytexi