[tpm] Perl and Unicode [do not read this from a terminal]
Liam R E Quin
liam at holoweb.net
Fri May 1 14:21:25 PDT 2009
On Fri, 2009-05-01 at 16:43 -0400, Antonio Sun wrote:
> Thanks a lot for clarification, Abram.
> Anyone knows how to split an Unicode string into individual characters
> with Perl? E.g., from "骆驼" to '骆' & '驼'?
#! /usr/bin/perl -w
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
More information about the toronto-pm