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]>

Reply via email to