in reply to utf8 encoding bug?
sub test2 () { print "-"x20, "\n"; print $_[0], "\n"; print "Before = ", unpack ("U*", ${text}), "\n\n"; my $tmp = ${dcy[1]}; $text=~s/${a_lc_diaeresis[1]}/$tmp/g; $tmp = ${acy[1]}; $text=~s/${a_lc_grave[1]}/$tmp/g; print "After = ", unpack ("U*", ${text}), "\n\n"; print $text, "\n\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: utf8 encoding bug?
by hv (Prior) on Feb 25, 2003 at 18:49 UTC |