Script :: Toolbox Script :: Toolbox, günlük iş komut dosyaları için bir perl çerçevesidir.
Şimdi İndirin

Script :: Toolbox Sıralama ve Özet

Script :: Toolbox Etiketler

çerçeve Perl modülü perl Perl çerçeve iş komut dosyaları

Script :: Toolbox Açıklama

Script :: Toolbox, günlük iş komut dosyaları için perl çerçevesidir. Script :: Toolbox, günlük iş komut dosyaları için bir perl çerçevesidir.Synopsis Script :: Toolbox QW (: hepsi); Veya Script :: Toolbox QW (Açık Günlük Çıkış Tablosu Kullanımı Dir Dosya Sistemi) $ E = Script :: Toolbox-> Yeni (); # # Günlük # log ("Günlük Mesajı"); # STDERR LOG ("Günlük Mesajı", 'Stderr'); # STDERR LOG ("Günlük Mesajı", 'stdout'); # log to stdout log ("Günlük mesajı", '/ tmp / x'); # log to / tmp / x log ("Günlük mesajı", yeni IO :: dosya "/ tmp / xxx"); # log to / tmp / xxx script :: araç kutusu-> yeni ({logdir => {mod => '= s', desc => 'log dizini', mand => 1, default => '/ var / log' }}); Log ("günlük mesajı"); # log /var/log/.log log ("Günlük mesajı", 'syslog', 'şiddeti', 'tag'); # Log Via Syslogd # # Baskı Formated Tablolar gibi: # baskı "n", @ {$ t}; $ t = $ e-> tablo (); $ t = $ e-> tablo (, '|'); $ t = $ e-> tablo (, , , ; $ t = $ e-> tablo ({'unvanı' => 'hash örneği', 'kafa' => , 'veri' => , , ]}); $ T = $ e-> tablo ({'tıcılı' => 'otomatik sütun kafaları (F1, F2, F3)', 'veri' => }); # # komut satırı seçenekleri # $ TB = Script :: Toolbox-> Yeni ({dosya => {mod => '= s', desc => 'açıklama', mand => 1, default => '/ bin / kedi '}}); $ dosya = tb-> getOpt ('dosya'); # DEPRICATED, aşağıdaki $ dosyayı kullanın = tb -> {'dosya'}; $ old = tb-> setopt ('newfile'); Kullanım (); # Tüm seçenekler için bir kullanım mesajı yazdırın # Varsa, ayrıca yazdırın da POD kullanımı ('Kullanım için ek bir metindir'); # # # # # # $ Arrref = dir ('/ tmp'); # Hepsi hariç. ve .. $ arrref = dir ('/ tmp', '. * patt'); # Hepsi Eşleşen Patt $ arrref = dir ('/ tmp', '!. * patt'); # Hepsi eşleşmiyor Patt # # # # # # $ arrref = dosya ('Yolu / to / dosya'); # Dosyayı Array $ arrref = dosyasını okuyun ("/ bin / ps |"); # COMAND Stdout'u okuyun ("> PATH / TO / Dosya", 'Eski içeriği geçersiz kılma'); Dosya ("yol / / to / dosya", 'bunu dosyaya ekle'); Dosya ("Yolu / To / Dosya", $ arrref); # APRAY ELEMANSLARI DOSYA ("YOL / TO / DOSYA", $ ARRRER, $ RECSP); # APRAY ELEMANSLARI DOSYA ("PATH / TO / DOSYA", $ hashref, $ recsep, $ fieldsep); # Temel değer satırları dosyası ("| / bin / kedi", "hello world.n") olarak ekleyin; $ filehandle = tmpfile (); # Yeni Geçici Dosyayı Aç $ Arrref = tmpfile ($ dosyaandle) # Temp'u oku Tüm dosyayı # # miscelleanous # exit (1, "Çıkış mesajı"); # döndürme 1 ile çıkın, # log () $ FH = Open ("> / tmp / xx") ile # yazma mesajı yazın; # Bir IO :: dosya nesnesini döndür: # / tmp / xx ile açılan # / tmp / xx ile açılan LogFile girişi ile Kalıp Kalıbın B $ FH = OPEN ("/ BIN / PS |"); # Bir IO :: dosya nesnesi # döndürün logfile girişi ile ölün. $ şimdi = şimdi (); PRINTF "GÜNÜ:% D MON:% d Year:% D Wday:% D Yday:% D ISDST:% D Sn:% D Min:% D Saat:% D", $ Now -> {mday}, $ Şimdi -> {mon}, $ şimdi -> {yıl}, $ şimdi -> {wday}, $ şimdi -> {{yday}, $ şimdi -> {sn}}, $ şimdi -> {sec}, $-> {min}, $ şimdi -> {saat}; $ şimdi = şimdi ('"% a,% b% d,% y"'); # 10 Ekim 2005 Pazartesi = Head1 AbstractBhis modülü günlük görevler için "İsviçre Ordu Bıçağı" olmalıdır. Ana hedefler, komut satırı işleme, otomatik kullanım mesajları, sinyal yakalama (günlük kaydı), basit günlüğe kaydetme, basit veri biçimlendirme, basit dizin ve dosya işleme. }) · Test T03_Exit'te hata düzeltme

Script :: Toolbox İlgili Yazılım