Wyciągnięcie 'Tematu e-maila' bez pl krzaczków ?

[Quickest]

On Fri, 19 Dec 2003 14:03:29 +0100
Paweł Sikora <pluto w ds14.agh.edu.pl> wrote:

> On Friday 19 of December 2003 13:57, Quickest wrote:
> > On Fri, 19 Dec 2003 13:18:35 +0100
> >
> > Paweł Sikora <pluto w ds14.agh.edu.pl> wrote:
> > > On Friday 19 of December 2003 12:43, Quickest wrote:
> > > > On Fri, 19 Dec 2003 11:41:37 +0100
> > > >
> > > > Paweł Sikora <pluto w ds14.agh.edu.pl> wrote:
> > > > > On Friday 19 of December 2003 11:21, Quickest wrote:
> > > > > > Otóż sęk w tym, że sama zamiana nic nie da, bo polskie znaki nie są
> > > > > > zapisywane jako "ą" "ę" itp. tylko w ISO-8859-2, czyli ą np, to:
> > > > > > =B1 Przykład:
> > > > > >
> > > > > > Subject: =?ISO-8859-2?Q?Chrz=B1szcz_=B6nieg,_=E6ma,_=BCre,_=BFart?=
> > > > > > ;)
> > > > >
> > > > > ktorys z modulow perla perl-MIME*/perl-Mail(Tools?)
> > > > > robi to pieknie w 2-3 wierszach kodu.
> > > >
> > > > Znalazłem coś takiego:
> > > >
> > > > use MIME::Words qw(:all);
> > > >  $decoded = decode_mimewords("wyb=?iso-8859-2?Q?=F3r zespo=B3?=u");
> > > >
> > > > Tylko nie mam zielonego pojęcia jak skorzystać z tego modułu, gdzie mam
> > > > to wstawić aby poprawnie działało i w jakiej formie, przed poleceniem
> > > > 'formail', za, w osobnym pliku ???
> > >
> > > zobacz to:
> > >
> > > # konwerter.pl
> > > #!/usr/bin/perl
> > > use MIME::Words qw(:all);
> > > print(decode_mimewords(\*STDIN));
> > >
> > > cat przykladowy.eml | egrep '^Subject:' | konwerter.pl
> >
> > [quickest w danger quickest]$ cat test | egrep '^Subject:'
> > Subject: =?ISO-8859-2?Q?Chrz=B1szcz_=B6nieg,_=E6ma,_=BCre,_=BFart?= ;)
> >
> > [quickest w danger quickest]$ cat konwerter.pl
> > #!/usr/bin/perl
> > use MIME::Words qw(:all);
> > print(decode_mimewords(\*STDIN));
> >
> > [quickest w danger quickest]$ cat test | egrep '^Subject:' | ./konwerter.pl
> > ARRAY(0x80607e4)
> >
> > [quickest w danger quickest]$ cat test | egrep '^Subject:' | ./konwerter.pl >
> > test1 [quickest w danger quickest]$ cat test1
> > ARRAY(0x80607e4)
> >
> > Co tu jest nie tak ??? Zrobiłem tak jak mówiłeś.
> 
> a przypisz najpierw do $zmiennej = decode... i pozniej print($zmienna).
> 
 
Nie qmaty jestem w tych sprawach, tak to ma być ?:

#!/usr/bin/perl
use MIME::Words qw(:all);
$zmienna = decode_mimewords;
print($zmienna(\*STDIN));

[quickest w danger quickest]$ cat test | egrep '^Subject:' | ./konwerter.pl
[quickest w danger quickest]$ cat test | egrep '^Subject:'
Subject: =?ISO-8859-2?Q?Chrz=B1szcz_=B6nieg,_=E6ma,_=BCre,_=BFart?= ;)
[quickest w danger quickest]$

Niewiem co zwaliłem ale nadal nie chodzi, tak jak powinno.

-- 
Jakub "Quickest" Kozicki
.mailto: q u i c k e s t <at> d a n g e r <dot> e u <dot> o r g  
RLU: #273864 | "Los jest ślepy, ale trafia bez pudła."