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

[Paweł Sikora]

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

-- 
The only thing necessary for the triumph of evil
  is for good men to do nothing.
                                           - Edmund Burke