Laurent Coudeur wrote:
Trying to clean up a mass of replacement

here is a small bit

$export=~s/\\'F5/�/gi;
$export=~s/\\'F6/�/gi;
$export=~s/\\'F7/�/gi;
$export=~s/\\'F8/�/gi;
$export=~s/\\'F9/�/gi;
$export=~s/\\'FA/�/gi;
$export=~s/\\'FB/�/gi;
$export=~s/\\'FC/�/gi;

Try replacing those with:

    $export =~ s/\\'(\w\w)/chr hex $1/eg;

perldoc -f hex
perldoc -f chr

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




Reply via email to