Log :: Procmail. Estensione perl per la lettura di Procmail LogFiles
Scarica ora

Log :: Procmail. Classifica e riepilogo

Log :: Procmail. Tag

spettatore modulo Perl Procmail. logs. lettura log log procmail

Log :: Procmail. Descrizione

Estensione perl per la lettura di Procmail LogFiles Log :: Procmail è un modulo Perl per la lettura di Procmail LogFiles.log :: PROCMAILLOG :: Procmail legge Procmail (1) Accedi e restituisce gli abstracts uno per uno. $ Log = log :: procmail-> nuovo (@files); Costruttore per il lettore di registro Procail. Restituisce un riferimento a un registro :: Procmail oggetto. Il costruttore accetta un elenco di file come parametro. Ciò consente di leggere i record da diversi file in una riga: $ log = log :: procmail-> nuovo ("$ env {home} /. Procmail / log.2", "$ env {home} /. Procmail / Log .1 "," $ env {home} /. Procmail / log ",); Quando $ log raggiunge la fine del file "log", non chiude il file. Quindi, dopo che Procmail elabora alcune mail in arrivo, la prossima chiamata a Avanti () restituirà i nuovi record. $ Rec = $ log-> Avanti restituire un registro :: procmail :: oggetto astratto che rappresenta una voce nel file di registro. RETURN Undef Se non è possibile record nel file. Quando l'oggetto LOG :: PROCMAIL raggiunge la fine di un file e questo file non è l'ultimo dello stack, chiude il file corrente e si apre il successivo. Quando raggiunge la fine dell'ultimo file, il file non è chiuso. La prossima volta il metodo record è chiamato, controllerà di nuovo nel caso in cui siano stati aggiunti nuovi abstract. Procmail (1) Log Sembra come segue: da karen644552@btinternet.com Ven 8 febbraio 20:37:242002 Oggetto: Volatilità del mercato azionario battendoti? (18 @ 2) Cartella: / var / spool / mail / book 2840 Alcuni messaggi informativi possono essere inseriti da Procmail (1) nel file di registro. Se l'attributo errori è vero, queste linee vengono restituite una alla volta. Con errori abilitati, devi verificarlo Avanti () restituisce effettivamente un registro :: Procmail :: Oggetto astratto. Ecco un esempio: $ log-> errori (1); # recupera dati while ($ Rec = $ log-> next) {# se è una linea di errore se (! REF $ REC) {# questo non è un registro, ma un messaggio informativo, fare qualcosa con esso successivo; } # # normale elaborazione del registro} $ log-> push ($ file ); Spingere uno o più file in cima all'elenco dei file di registro da esaminare. Quando registro :: Procmail esaurisce gli abstract per tornare (cioè raggiunge la fine del file), si apre in modo trasparente il file successivo (se ce n'è uno) e continua a restituire nuovi abstract. $ Log-> errori () ; Impostare o ottenere il flag di errore. Se impostato, quando il metodo successivo () restituirà la stringa trovata nel file di registro, invece di ignorarlo. Stai attento: è una stringa semplice, non un registro :: Procmail :: Oggetto astratto. L'impostazione predefinita non restituisce nessun errore. $ FH = $ LOG-> FH () Restituisce il fileHandle Attualmente aperto, da cui la prossima chiamata a successiva () tenterà di leggere un record. $ Selezionare = $ Log-> Seleziona () Return A IO :: Seleziona oggetto che guarda il file Handhandle attualmente aperto. Non dovresti usare Aggiungi () o rimuovere () sull'oggetto IO restituito :: Seleziona. Avvertenza aggiuntiva per MSWIN32, NetWare, DOS, VMS, RISCOS e BEOS: su tali sistemi, selezionare () restituisce undef. (Controllare EXT / IO / T / IO_SEL.T nelle fonti Perl per i dettagli. Suggerimento: cerca il messaggio 4-arg Select è valido solo sulle prese.) Log :: Procmail :: Abstractlog :: Procmail :: Abstract è a classe che tiene le informazioni astratte. Dal momento che l'abstract hold da, data, oggetto, cartelle e informazioni di dimensioni, tutto ciò può essere accessibile e modificato attraverso il (), data (), soggetto (), cartella () e dimensione () metodi.log :: Procmail: : Successivo () Restituisce un registro :: Procmail :: Abstract Object.log :: Procmail :: Affissi Abstract Il log :: Procmail :: Gli accessori dell'oggetto astratti sono denominati da (), data (), soggetto (), cartella () e taglia (). Restituiscono le informazioni pertinenti quando vengono chiamate senza argomentazione e impostano il loro primo argomento altrimenti. # conteggio della posta ricevuta per cartella mentre ($ REC = $ log-> next) {$ folder {$ Rec-> cartella} ++} L'accessor sorgente () restituisce il nome del file di registro o la rappresentazione della stringa della maniglia, Se è stato dato un fileHandle. $ Rec-> YMD () Restituisce la data nel modulo YYYYYMMMMDHHHMMSS in cui ogni campo è ciò che pensi che sia. Questo metodo è di sola lettura.Exampleshere è un esempio di Procmail Biff-Like Script, per gentile concessione di Ian Langworth: # / usr / bin / perl -w usa rigoroso; Usa il registro :: Procmail; Usa Constant LogFile => "$ env {home} /procmail.log"; Utilizzare costante Valid_Folders => ; My $ Format = "\% 8s: \% - 30.30s /% s \ n"; My $ log = log :: procmail-> nuovo (logfile); $ log-> errori (1); while ($ log-> Seleziona-> Can_read) {My $ Rec = $ log-> Avanti; # Errore? Warn "$ rec \ n", dopo a meno che Ref $ Rec; # ignora le cassette postali che non ci interessa il prossimo a meno che GREP {$ _ EQ $ Rec-> cartella} @ {Valid_Folders ()}; # Stampa dati PrintF $ Formato, da => $ Rec-> da; PrintF $ Formato, soggetto => $ Rec-> Oggetto, $ Rec-> cartella; } Sinossi Utilizzo log :: procmail; My $ log = nuovo registro :: procmail 'procmail.log'; # Loop su ogni astratto mentre (il mio $ Rec = $ log-> next) {# Fai qualcosa con $ Rec-> cartella, $ Rec-> Dimensione, ecc.} Requisiti: · Perl.

Log :: Procmail. Software correlato