PDA

View Full Version : Replace message encoding (+)


creep
Thu 20th Jul '00, 1:53am
I need replace email message from win1251 to koi8r encoding.
In use perl im create file cyrillic.h, here is content:


$tab{"KOI"}="áâ÷çäå³öúéêëìíîïðòóôõæèãþûý\377ùøüàñÁÂ×ÇÄÅ£ÖÚÉÊËÌÍ ÎÏÐÒÓÔÕÆÈÃÞÛÝßÙØÜÀÑ";
$tab{"WIN"}="ÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞßàáâãä叿çèéêëìíîï ðñòóôõö÷øùúûüýþ\377";

sub convert {
my($Src, $Dst, $Buf) = @_;
local $Result=$Buf;
eval "\$Result =~ tr/$tab{$Src}/$tab{$Dst}/";
return $Result;
}

1


Were heed im use:

$touser=convert('WIN','KOI', $touser);
$subject=convert('WIN','KOI', $subject);
$messagebody=convert('WIN','KOI', $messagebody);

How can create this with PHP

Thx