Rechercher une page de manuel
NetSDS::Util::File.3pm
Langue: en
Version: 2010-05-25 (ubuntu - 24/10/10)
Section: 3 (Bibliothèques de fonctions)
NAME
NetSDS::Util::File - file related utilitiesSYNOPSIS
use NetSDS::Util::File qw(file_read); my $passwd = file_read('/etc/passwd'); file_move('/etc/passwd', '/tmp/find_this');
DESCRIPTION
"NetSDS::Util::File" module contains some routines for files and directories processing tasks like creating, reading, writing, copying and moving files and catalogs.This module of cource uses such well known things like File::Spec, File::Path, File::Copy and others.
EXPORTED FUNCTIONS
- is_handle($var) - check if argument is a file handle
- Paramters: some variable
Returns: 1 if it's file handle or undef otherwise
if (is_handle($var)) { reset_handle($fh); }
- reset_handle($fh) - reset file handle
- Paramters: file handle
Returns: nothing
This function tries to set filehandle to begin of file and set binmode on it.
my $fh = file_open('/etc/passwd'); ... do something with file ... reset_handle($fh); # We can read it from the beginning
- file_open($file) - open file
- Paramters: file name or file handle
Returns: file handle
This function provides unified API for opening files.
my $f = file_open('/etc/passwd');
- file_read($file) - read file to scalar
- Paramters: file name or file handle
Returns: scalar content of file
This function provides ability to read file content to scalar variable.
my $data = file_read('/etc/passwd'); print "Passwords file: $data\n";
- file_write($file, $data) - write scalar data to file
- Paramters: file name or open file handle
Returns: length of written data or undef in case of error
my $data = 'This should be file'; file_write('/tmp/file.dat', $data);
- file_copy($in_file, $out_file) - copy file
- Paramters: input file name, output file name
Returns:
This function copy file to new location.
- file_move($in_file, $out_file) - move file
- Paramters: input file name, output file name
Returns: 1 or undef
This function moves old file to new location.
- file_temp($dir) - create temporary file
- Creates new temp file and return its handle
- dir_create($dir) - create directory with parents
- Paramters: directory name
Returns: directory name or undef
# Will create all parent catalogs if necessary dir_create('/var/log/NetSDS/xxx');
- dir_delete($dir) - remove directory recursive
- Paramters: directory name
Returns: dir name or undef if error
print "We need no libs!"; dir_delete('/usr/lib');
- dir_read($dir, $ext) - read files list from catalog
- Paramters: directory name, extension of files to read
Returns: list of files in catalog
my @logs = @{ dir_read('/var/log/httpd', 'log') }; print "Logs are: " . join (', ', @logs);
- dir_read_recursive($dir, $ext, [$res]) - read all files list recursive
- Paramters: $start catalog, $extension
Returns: list of files with extension from parameters
my $tpls = dir_read_recursive('/etc/NetSDS', 'tmpl'); foreach my $tpl (@$tpls) { pritn "Template: $tpl\n"; }
- exec_external($prog, [$param1, ... $paramN]) - execute external program
- Paramters: pragram name, arguments list (see perldoc -f system)
Returns: 1 if ok, undef otherwise
This function calls system() with given parameters and returns 1 if everything happened correctly (program executed and returned correct result).
if (exec_external('/bin/rm', '-rf', '/')) { print "Hey! We removed the world!"; }
EXAMPLES
None yetBUGS
Unknown yetSEE ALSO
IO::Handle, IO::Scalar, IO::File, File::Spec, File::Copy, File::Path, system()TODO
1. Implement more detailed error handlingAUTHOR
Valentyn Solomko <pere@pere.org.ua>Michael Bochkaryov <misha@rattler.kiev.ua>
Contenus ©2006-2024 Benjamin Poulain
Design ©2006-2024 Maxime Vantorre