[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[Perl] Wie NEUE Nachrichten in IMAP ermitteln?



Hello Perl-Programmierer,

bin gerade dabei ein kleines Tool zu schreiben bei dem  ich  von  ausge-
wählten Mailfoldern die Anzahl der NUEN  und  ALLER  messages  ermittlen
muß.

Ich verwende dazu Net::IMAP::Simple

Nun, gibt es eine bessere (und schnellere) Möglichkeit, als die folgende

1)  $imap->select($MAILFOLDER)
2)  $imap->list()
    gibt einen hash auf die messages zurück =>TOTAL messages
3)  $imap->seen($MESSAGE)
    auf JEDER message => gelesene messages.
    (warum gibt es das nicht als new()?)

und dann die $SEEN von den $TOTAL abziehen um die neuen zu bekommen.

Das problem ist dabei, das meine

    INBOX.ML_devel.linux-kernel@vger_kernel_org/

gut mal 20.000 messages durchschnittlich  hat,  bevor  sie  ins  Archive
vergeschoben werden.  Dann noch das pollen von so um die 150  Mailfolder
und ich versterbe an Altersschwäche...

Hat jemand eine Idee, wie man das ganze schneller machen kann?

Eventuell auch andere Perl-Bibliothek?

Thanks, Greetings and nice Day/Evening
    Michelle Konzack
    Systemadministrator
    24V Electronic Engineer
    Tamay Dogan Network
    Debian GNU/Linux Consultant


-- 
Linux-User #280138 with the Linux Counter, http://counter.li.org/
##################### Debian GNU/Linux Consultant #####################
Michelle Konzack   Apt. 917                  ICQ #328449886
+49/177/9351947    50, rue de Soultz         MSN LinuxMichi
+33/6/61925193     67100 Strasbourg/France   IRC #Debian (irc.icq.com)

Attachment: signature.pgp
Description: Digital signature


Reply to: