🚀 go-pugleaf

Tue, 07 Sep 1999 13:44:29 GMT, Piotr "Macki" Kaminski napisal(a):
>  Szukam funkcji, biblioteki wykonujacej konwersje z QP na plain 
>  text, która by oprócz =XX, rozpoznawala takze =?iso-bleeee 
strstr i szeregowo konwersje?

-- 
Sebastian Zagrodzki                s.zagrodzki@sith.mimuw.edu.pl
UIN 1770835                        http://sith.mimuw.edu.pl/~zagrodzki

A co mnie obchodzi co pomysla inni...

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                --

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

Dzięki !

Teraz bede musial to wlaczyc do programu w Cpp :((((((


-- 
Piotrek

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

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."

EHLO Piotr!

[07 Sep 99] Piotr "Macki" Kaminski->All
 PK> Szukam funkcji, biblioteki wykonujacej konwersje z QP na plain
 PK> text, która by oprócz =XX, rozpoznawala takze =?iso-bleeee

=?iso...
to konwencja do enkapsułowania qp w nagłówki pocztowe.
Możesz przekonwertować całość na qp (zacytować znaki =), wyciąć te rzeczy (przy
okazji zamieniając w zakodowanym stringu podkreślenia `_' na spacje) i normalnie
zdekodować przez QP.

____\___\___
(_(\|,|_|,|_ [ /o)\ | GCS/S/TW/P d? s+:- a19 UL++++/H L++(++++) PGP- ]
    |   | |. [ \(o/ | t+++  5+ X- R-  b+  E- W++ PE  PS  D-  !r>r+++ ]

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