File::Util

File::Util is an easy, versatile, portable file handling module.
Download

File::Util Ranking & Summary

Advertisement

  • Rating:
  • 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