Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

my $str3 = $ar->[3]->[1];
print qq{"$str3" - },  (utf8::is_utf8($str3) ? 'UTF8' : 'ASCII'), qq{ 
+\n};
  2. or download this
    $VAR1 = [
          [
...
        ];
"Ƽ®©" - UTF8 
"no unicode" - ASCII