Help for this page

Select Code to Download


  1. or download this
    $ perl -C -wE 'use Unicode::GCString;use Unicode::Normalize;$t="Hütte"
+; say "\$t[$t]"; print length("$t"), "\n";$g=Unicode::GCString->new("
+$t"); say "\$g[$g]"; print $g->columns, "\n"; say $g->chars;'
  2. or download this
    $ perl -C -wE 'use utf8; use Unicode::GCString;use Unicode::Normalize;
+$t="Hütte"; say "\$t[$t]"; print length("$t"), "\n";$g=Unicode::GCStr
+ing->new("$t"); say "\$g[$g]"; print $g->columns, "\n"; say $g->chars
+;'