NetSDS::Util::File (3pm)

        use NetSDS::Util::File qw(file_read);

        my $passwd = file_read('/etc/passwd');

        file_move('/etc/passwd', '/tmp/find_this');

\*(C`NetSDS::Util::File\*(C' 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.

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 \s-1API\s0 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"; 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); Paramters: input file name, output file name Returns: This function copy file to new location. 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'); 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); 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";

} 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!";

}

None yet

Unknown yet

IO::Handle, IO::Scalar, IO::File, File::Spec, File::Copy, File::Path, system()

1. Implement more detailed error handling

Valentyn Solomko <[email protected]>

Michael Bochkaryov <[email protected]>