🚀 go-pugleaf

Piotr "Macki" Kaminski in pl.comp.os.linux.programowanie wrote:
>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/" ;)))

Wywołujesz po prostu 

$dane_zdekodowane = decode($zmienna_z_tekstem_w_qp)

Przem

-- 
Baby, instant soup doesn't really grab me.
Today I need something more sub-sub-sub-substantial.
							R.E.M