🚀 go-pugleaf

On 7 Sep 1999 19:04:40 GMT, migo@zse.edu.pl (Bartosz Jakubski) wrote:

>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! ;-)))

I jak tego uzyc ?? Moje wiedza o Perlu niewiele wykracza poza 
#perl -ne "print if/bleble/" ;)))


-- 
Piotrek

"I didn't really bounce Eeyore. I had a cough, and I happened 
to be behind Eeyore, and I said "Grrrr-oppp-ptschschschz."