Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -l
use strict;
...

print '$bytes (STDOUT is UTF-8): ', $bytes;
print '$chars (STDOUT is UTF-8): ', $chars;
  2. or download this
    $bytes eq \x{f1} ? no match
$chars eq \x{f1} ? match
  3. or download this
    $bytes: ñ
$chars: 
$bytes (STDOUT is UTF-8): ñ
$chars (STDOUT is UTF-8): ñ