Re: Alternative zu fetchmail
Hi,
* Guenter Mittler <gmi@federa.de>:
> Volker Katz schrieb:
> > ...
> >ich denke, Du suchst das hier:
> >http://ex-parrot.com/~chris/stuff/popexpire
> >Angeblich löscht das Skript alle eMail, die ein bestimmtes Alter haben per POP. Ich habe es selbst noch nicht ausprobiert.
> >Solltest Du es ausprobieren, berichte doch mal!
> >HTH!
> >Gruß Volker
> Da war ich auch schon drauf gestossen, scheint leider nicht richtig zu
> funktionieren:
>
> perl popexpire.pl
> Possible precedence problem on bitwise & operator at pop3.pl line 39.
>
> Bin leider kein Perlcrack, aber es scheint was mit dem vorangegangen
> regulären Ausdruck zu un haben. Jedenfalls loescht es keine Mails.
das & muss durch ein && ersetzt werden, sodass Zeile 39 dann so
aussieht:
if ($y < $yf || ($y == $yf && ($m < $mf || ($m == $mf && $d < $df)))) {
Jetzt hab ich aber:
| login: at ./popexpire line 25.
| Use of uninitialized value in numeric eq (==) at
| /usr/share/perl/5.8/Net/POP3.pm line 301 during global destruction.
| Use of uninitialized value in numeric eq (==) at
| /usr/share/perl/5.8/Net/POP3.pm line 302 during global destruction.
und das verstehe ich nicht.
Stefan
Reply to: