File::UtilFile::Util is an easy, versatile, portable file handling module. | |
Download |
File::Util Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Tommy Butler
- Publisher web site:
- http://search.cpan.org/~tommy/Class-OOorNO-0.011/OOorNO.pod
File::Util Tags
File::Util Description
File::Util is an easy, versatile, portable file handling module. File::Util is an easy, versatile, portable file handling module.File::Util provides a comprehensive toolbox of utilities to automate all kinds of common tasks on file / directories. Its purpose is to do so in the most portable manner possible so that users of this module won't have to worry about whether their programs will work on other OSes and machines.SYNOPSIS use File::Util; my($f) = File::Util->new(); my($content) = $f->load_file('foo.txt'); $content =~ s/this/that/g; $f->write_file( 'file' => 'bar.txt', 'content' => $content, 'bitmask' => 0644 ); $f->write_file( 'file' => 'file.bin', 'content' => $binary_content, '--binmode' ); my(@lines) = $f->load_file('randomquote.txt', '--as-lines'); my($line) = int(rand(scalar @lines)); print $lines; my(@files) = $f->list_dir('/var/tmp', qw/ --files-only --recurse /); my(@textfiles) = $f->list_dir('/var/tmp', '--pattern=.txt$'); if ($f->can_write('wibble.log')) { my($HANDLE) = $f->open_handle( 'file' => 'wibble.log', 'mode' => 'append' ); print $HANDLE "Hello World! It's ", scalar localtime; close $HANDLE } my($log_line_count) = $f->line_count('/var/log/httpd/access_log'); print "My file has a bitmask of " . $f->bitmask('my.file'); print "My file is a " . join(', ', $f->file_type('my.file')) . " file." warn 'This file is binary!' if $f->isbin('my.file'); print "My file was last modified on " . scalar localtime($f->last_modified('my.file')); # ...and _lots_ more Requirements: · Perl
File::Util Related Software