File::Util es un módulo de manejando de archivo fácil, versátil, portátil.

File::Util proporciona una caja de herramientas completa de herramientas para automatizar todas las clases de tareas comunes en el archivo / directorios. Su objetivo es hacer así en la manera más portátil posible de modo que los usuarios de esta costumbre de módulo tengan que preocuparse de si sus programas trabajarán en otro OSes y máquinas.

SINOPSIS

use File::Util;
mi ($f) = Archivo:: Util-> nuevo ();

mi ($content) = $f-> load_file (foo.txt);

$content = ~ s/this/that/g;

$f-> write_file (
archivo => bar.txt,
contenido => $content,
bitmask => 0644
);

$f-> write_file (
archivo => file.bin, contenido => $binary_content, - binmode
);

mi (@lines) = $f-> load_file (randomquote.txt, - cuando-líneas);
mi ($line) = int (rand (escalar @lines));

$lines de letra [$line];

mi (@files) = $f-> list_dir (/var/tmp, los qw/-únicamente de archivos - blasfeman de nuevo/);
mi (@textfiles) = $f-> list_dir (/var/tmp, - modelo =. txt$);

si ($f-> can_write (wibble.log)) {

mi ($HANDLE) = $f-> open_handle (
archivo => wibble.log,
el modo => añade
);

¡$HANDLE de letra "Hola Mundo! Su", escalar localtime;

$HANDLE cercano

}

mi ($log_line_count) = $f-> line_count (/var/log/httpd/access_log);

letra "Mi archivo tiene un bitmask de". $f-> bitmask (my.file);

letra "Mi archivo es un". juntura ($f-> file_type (my.file)). "archivo".

¡advierta que Este archivo es binario! si $f-> isbin (my.file);

letra "Mi archivo era última modificado en".
escalar localtime ($f-> last_modified (my.file));

# ... y _lots_ más