🚀 go-pugleaf

Piotr "Macki" Kaminski napisał(a):
>Witam !
>
>Szukam funkcji, biblioteki wykonujacej konwersje z QP na plain 
>text, która by oprócz =XX, rozpoznawala takze =?iso-bleeee 
Ależ proszę bardzo! :-)

sub decodeqp {
    my $t = shift;
    $t =~ s/=([\da-fA-F]{2})/chr hex $1/ge;
    $t =~ s/\_/\ /g;
    return $t ;
}
sub decode {
    my $qp = shift;
    $qp =~ s/=\?iso-8859-.\?Q\?(.*?)\?=/decodeqp($1)/egi;
    return $qp;
}
I proszę mi nie mówić, że to nie programowanie! To powyżej to kawał świetnego
kodu! ;-)))


-- 
-- *Bartosz Jakubski*                   _Sosnowiec_ --
-- Free software is a matter of liberty, not price. --
--     http://www.fsf.org/philosophy                --