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.