Fichier :: journal Un simple enregistreur orienté objet d'objet
Télécharger maintenant

Fichier :: journal Classement & Résumé

Fichier :: journal Mots clés

Module Perl perl encadrement orienté objet données de journal enregistreur orienté objet

Fichier :: journal La description

Un simple enregistreur orienté objet File :: Le journal est une classe Perl fournissant des méthodes pour enregistrer les données à un fichier. Il existe un certain nombre de paramètres pouvant être transmis pour permettre la configuration du fichier LOGGER.SYNOPSIS d'utiliser :: journal; # Joli format, tous les paramètres mon $ log = Fichier :: LOG-> NOUVEAU ({DEBUG => 4, # Définissez le niveau de débogage LOGFILENAME => 'MYLOGFILE.LOG', # Définir le nom de fichier logfilemode => '>' ' , # '>>' Ajouter ou '>' Overwrite DateTimeMestamp => 1, # Entrées de données du journal horodatage STDRERREDIRECT => 1, # Rediriger STDRER dans le fichier journalfeuillefileFile => 1, # Utilisez le fichier journal comme fichier de fichiers de fichier par défaut = > 1, # Timestamp le nom du journal nom AppName => 'MyApplicationName', # Le nom de l'application PIDSTAMTAMP => 1, # Stampez les données du journal avec l'ID de processus StoreExptext => 1, # Stockez en interne tous les EXP Text MSGPePend => ' ', # Texte à préparer à chaque message Say => 1, # msg () et exp () méthode de méthode, comme la commande Perl6 Say # (par défaut) demandée par Aaleem Jiwa # Cependant, il pourrait être préférable de simplement utiliser le mot " ) # méthode }); # Nom minimal, nom de fichier logfile basé sur le nom de l'application My $ Log = Fichier :: Log-> Nouveau (); # Utilisation typique, définissez le niveau de débogage et le nom de fichier de journal (disons à partir d'un fichier de configuration) My $ journal = fichier :: journal> nouveau (débogu => $ débugevel, nomfilename => $ logfilename, id); # Imprimer le message au fichier journal si le débogage est> = 2 $ LOG-> msg (2, "Ajoutez ceci au fichier journal si débogage> = 2 \ n"); # Message d'impression au fichier journal si le débogage est> = 2 (mais d'une manière perl6) $ LOG-> SAY (2, "Ajoutez ceci au fichier journal si débogage> = 2"); # Imprimer une exception (erreur) Message au fichier journal $ Connexion -> exp ("quelque chose s'est mal passé \ n"); # Fermer le fichier journal (facultatif à la sortie) $ Connexion> Fermer (); # Changer le niveau de débogage, capturant l'ancienne valeur $ olddebugvalue = $ Log-> Debugvalue ($ Newdebugvalue); $ CouranteDebugvalue = $ Log-> Debugvalue (); # Obtenir tout le texte des exceptions (afin que vous puissiez faire quelque chose avec toutes les erreurs, par exemple les envoyer par courrier électronique) $ allexceptions = $ Log-> getExtText (); $ Numberemerrors = $ Log-> EXPCNT (); # Combien de fois a $ log-> exp faut des exigences: · Perl Quoi de neuf dans cette version: · MakeFile.PL mis à jour pour inclure PREREQ pour encoder au fur et à mesure que je recevais des erreurs de testeurs en CPAN. Aucun changement de code

Fichier :: journal Logiciels associés