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

[Quickest]

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

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