NAME

SysAdmin::File - Perl IO::File wrapper module..

SYNOPSIS

use SysAdmin::File;

## Declare file object
my $file_object = new SysAdmin::File(name => "/tmp/test.txt");

## Read file and dump contents to array reference
my $array_ref = $file_object->readFile();

foreach my $row (@$array_ref){
	print "Row $row\n";
}

## Write to file
my @file_contents = ("First Line", "Second Line");
$file_object->writeFile(\@file_contents);

## Append file
my @file_contents_append = ("Third Line", "Fourth Line");
$file_object->appendFile(\@file_contents_append);

## Check File Exist
my $file_exist = $file_object->fileExist();

if($file_exist){
	print "File exists\n";
}

## Declare directory object
my $directory_object = new SysAdmin::File(name => "/tmp");

## Check Directory Exist
my $directory_exist = $directory_object->directoryExist();

if($directory_exist){
	print "Directory exists\n";
}
			    

DESCRIPTION

This is a sub class of SysAdmin. It was created to harness Perl Objects and keep code abstraction to a minimum.

SysAdmin::File uses IO::File to interact with files.

METHODS

new()

## Declare file object
my $file_object = new SysAdmin::File(name => "/tmp/test.txt");

readFile()

## Read file and dump contents to array reference
my $array_ref = $file_object->readFile();

foreach my $row (@$array_ref){
	print "Row $row\n";
}

writeFile()

## Write to file
my @file_contents = ("First Line", "Second Line");
$file_object->writeFile(\@file_contents);

appendFile()

## Append file
my @file_contents_append = ("Third Line", "Fourth Line");
$file_object->appendFile(\@file_contents_append);

fileExist()

## Check File Exist
my $file_exist = $file_object->fileExist();

directoryExist()

## Declare directory object
my $directory_object = new SysAdmin::File(name => "/tmp");

## Check Directory Exist
my $directory_exist = $directory_object->directoryExist();

if($directory_exist){
	print "Directory exists\n";
}

SEE ALSO

IO::File - supply object methods for filehandles

AUTHOR

Miguel A. Rivera

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.