File :: Log. Un semplice logger orientato all'oggetto
Scarica ora

File :: Log. Classifica e riepilogo

File :: Log. Tag

modulo Perl perl logger orientato agli oggetti dati di registro logger orientato agli oggetti

File :: Log. Descrizione

Un semplice logger orientato all'oggetto File :: Log è una classe Perl che fornisce metodi per registrare i dati in un file. Esistono un numero di parametri che possono essere passati per consentire la configurazione del file Logger.synopsis di utilizzo :: LOG; # Bella formato, tutti i parametri My $ Log = File :: Log-> Nuovo ({debug => 4, # Imposta il livello di debug LogFilename => 'mylogfile.log', # Definisce il registro del file logfilemode => '>' , # '>>' APPEND o '>' Overwrite DatetimeStamp => 1, # TimeStamp Registrare voci di dati STDERRRERERRECT => 1, # Redirect STDERRR al file di registroFILE => 1, # Utilizzare il file di registro come file predefinito FileHandle LogFileDateTime = > 1, # Timestamp Il registro nome file appname => 'myapplicationname', # il nome dell'applicazione PIDStamp => 1, # timbrare i dati del registro con il processo ID StoreexptExt => 1, # Store internamente All Exp Text Msgprepend => ' ', # Testo per antepondere a ciascun messaggio Say => 1, # MSG () e EXP () Methode agiscono come il comando Perl6 Dy # (predefinito OFF) richiesto da Aaleem Jiwa # Tuttavia potrebbe essere meglio usare solo il dire ) # metodo }); # Istanza minima, nome logfile in base al nome dell'applicazione My $ LOG = file :: log-> nuovo (); # Utilizzo tipico, impostare il livello di debug e il file del registro (dire da un file di configurazione) My $ LOG = File :: Log-> Nuovo (Debug => $ Debuglevel, logfilename => $ logfilename,); # Messaggio di stampa nel file di registro se il debug è> = 2 $ log-> msg (2, "Aggiungi questo al file di registro se debug> = 2 \ n"); # Messaggio di stampa nel file di registro se il debug è> = 2 (ma in un modo perl6) $ log-> Dì (2, "Aggiungi questo al file di registro se debug> = 2"); # Stampa un messaggio Eccezione (errore) nel file di registro $ Log-> exp ("Qualcosa è andato storto \ n"); # Chiudi il file di registro (opzionale all'uscita) $ Log-> Chiudi (); # Cambia il livello di debug, catturando il vecchio valore $ OLEDDEBUGVALUE = $ LOG-> DebugValue ($ NewDebugValue); $ CORRENTEBUGVALUE = $ LOG-> DebugValue (); # Ottieni tutto il testo delle eccezioni (in modo da poter fare qualcosa con tutti gli errori, ad esempio e-mail) $ Allexceptions = $ log-> getExptExt (); $ NumeroRors = $ log-> expcnt (); # Quante volte ha $ log-> EXP sono stati chiamati requisiti: · Perl. Cosa c'è di nuovo in questa versione: · Aggiornato makefile.pl per includere prereq per la codifica poiché ricevevo gli errori del tester CPAN. Nessuna modifica del codice

File :: Log. Software correlato