| Dosya :: util Dosya :: UTIL, kolay, çok yönlü, taşınabilir bir dosya işleme modülüdür. |
Şimdi İndirin |
Dosya :: util Sıralama ve Özet
- Lisans:
- Perl Artistic License
- Yayıncı adı:
- Tommy Butler
- yayıncı web sitesi:
- http://search.cpan.org/~tommy/Class-OOorNO-0.011/OOorNO.pod
Dosya :: util Etiketler
Dosya :: util Açıklama
Dosya :: UTIL, kolay, çok yönlü, taşınabilir bir dosya işleme modülüdür. Dosya :: UTIL, kolay, çok yönlü, taşınabilir bir dosya kullanımı modülüdir. File :: UTIL, dosya / dizinlerdeki her türlü ortak görevi otomatikleştirmek için kapsamlı bir araç kutusu sağlar. Amacı, bu modülün kullanıcılarının, programlarının diğer OSES ve makineleri üzerinde çalışıp çalışmayacağı konusunda endişelenmemesi gerekmeyecek şekilde en taşınabilir şekilde bunu yapmaktır. ($ f) = dosya :: util-> yeni (); benim ($ içeriği) = $ f-> load_file ('foo.txt'); $ içerik = ~ s / bu / g; $ f-> write_file ('file' => 'bar.txt', 'içeriği' => $ içerik, 'bitmask' => 0644); $ f-> write_file ('file' => 'file.bin', 'İçerik' => $ Binary_Content, '- Binmode'); benim (@lines) = $ f-> load_file ('randomquote.txt', '--as-lines'); benim ($ satır) = int (RAND (SCALAR @LINES)); $ satırları yazdırın; benim (@Files) = $ f-> list_dir ('/ var / tmp', qw / --files-sadece --Recurse /); benim (@textFiles) = $ f-> list_dir ('/ var / tmp', '--pattern = .txt $'); if ($ f-> CAN_WRITE ('wibble.log')) {benim ($ tanıtıcısı) = $ f-> open_handle ('file' => 'wibble.log', 'mode' => 'quibend'); Yazdır $ "Hello World! Bu", Scalar Yerel Zaman; Kapat $ Kolu} My ($ log_line_count) = $ f-> line_count ('/ var / log / httpd / access_log'); "Dosyamın bir bit maskesi var" yazdırın. $ f-> bitmask ('my.file'); "Dosyam bir" yazdırın. Katıl (',', $ f-> file_type ('my.file')). " dosya." 'Bu dosya ikili!' $ f-> isbin ('my.file') ise; "Dosyamın en son değiştirildi" yazdırın. SCALAR Yerel Zaman ($ f-> last_modifiye ('my.file')); # ... ve _lots_ daha fazla Gereksinimler: · Perl
Dosya :: util İlgili Yazılım