[tpm] Perl and Unicode [do not read this from a terminal]

[Liam R E Quin]

On Fri, 2009-05-01 at 16:43 -0400, Antonio Sun wrote:
> Thanks a lot for clarification, Abram.
> 
> BTW, 
> 
> Anyone knows how to split an Unicode string into individual characters
> with Perl? E.g., from "骆驼" to '骆' & '驼'?

#! /usr/bin/perl -w
use strict;

use utf8;
binmode(STDOUT, ":utf8");

my $input = "骆驼";

print join("<->", split(//, $input)), "\n";

-- 
Liam Quin - XML Activity Lead, W3C, http://www.w3.org/People/Quin/
Pictures from old books: http://fromoldbooks.org/
Ankh: irc.sorcery.net irc.gnome.org www.advogato.org