E R skribis 2007-10-17 15:56 (-0500): > for (my $i = 0; $i < length($x); $i++) { > $new .= chr(ord(substr($x, $i, 1))); > }
utf8::downgrade(); -- Met vriendelijke groet, Kind regards, Korajn salutojn, Juerd Waalboer: Perl hacker <[EMAIL PROTECTED]> <http://juerd.nl/sig> Convolution: ICT solutions and consultancy <[EMAIL PROTECTED]>