Dosya :: log Basit bir nesne yönelimli bir logger
Şimdi İndirin

Dosya :: log Sıralama ve Özet

Dosya :: log Etiketler

Perl modülü perl ağaç kesicisi nesne odaklı Günlük verileri nesne yönelimli logger

Dosya :: log Açıklama

Basit bir nesne yönelimli bir logger Dosya :: log, verileri bir dosyaya kaydetmek için yöntemler sağlayan bir Perl sınıfıdır. Logger'ın yapılandırmasına izin verecek bir dizi parametre vardır. # Güzel format, tüm parametrelerim $ log = file :: log-> yeni ({debug => 4, # Set debug seviyesini ayarla logfilename => 'mylogfile.log', # Günlük dosya adını tanımla logfileMode => '>' , # '>>' quiend veya '>' '' '' üzerine yazma DatetimesTamp => 1, # TimesTamp Günlüğü Veri Girişleri StderrRedirect => 1, # stderr Stderr DefaultFile => 1, # günlük dosyasını varsayılan fileandle logfiledatetime olarak kullanın = > 1, # TimesTamp Günlük Dosya Adı APPNAME => 'MyApplicationName', # Uygulamanın adı PIDSTAMP => 1, # Günlük verilerini Proses ID StoreEexptexText => 1, # Store Dahili olarak Tüm Exp Metin Msgprepend => ' ', # Metin Her mesaja hazırlanacak, diyor => 1, # msg () ve exp () metodu, Aaleem Jiwa tarafından istenen komut (varsayılan kapalı), ancak söyleyişini kullanmak daha iyi olabilir ( ) # yöntem }); # Minimal örnek, uygulama adına göre logfile adı $ log = file :: log-> new (); # Tipik kullanım, hata ayıklama seviyesini ayarlayın ve günlük dosya adını ayarlayın (bir config dosyasından söyleyin) $ log = file :: log-> Yeni (debug => $ debuglevel, logfilename => $ logfilename,); # Hata ayıklama> = 2 $ log-> msg (2, "Eğer hata ayıklama> = 2 \ n") ise, hata ayıklama yapılması durumunda günlük dosyasına mesaj yazdırın; # Hata ayıklama> = 2 (ancak perl6 yolunda) $ log-> deyinse (2, "deyin. # Bir İstisna (Hata) Mesajını Günlük Dosyasına Yazdır $ Log-> Exp ("Bir şeyler yanlış gitti \ n"); # Günlük dosyasını kapatın (isteğe bağlı çıkışta) $ log-> close (); # Hata ayıklama seviyesini değiştirin, eski değeri yakalayın $ OldDebugValue = $ log-> DebugValue ($ NewdeBugValue); $ currentDebugValue = $ log-> debugvalue (); # Tüm istisnaları alın. $ NumuresErrors = $ log-> expcnt (); # Kaç kez $ LOG-> EXP gereksinimleri denir: · Perl Bu sürümde yenilikler: · PEFILE.PL, CPAN test cihazı hatalarını aldığım için kod çözme işlemi dahil etmek için. Kod değişmez

Dosya :: log İlgili Yazılım