File Coverage

blib/lib/File/ReadSimple.pm

Criterion	Covered	Total	%
statement	9	83	10.8
branch	0	32	0.0
condition			n/a
subroutine	3	14	21.4
pod	0	11	0.0
total	12	140	8.5

package File::ReadSimple;

use 5.006;
use strict;
use warnings;

require Exporter;

#our @ISA = qw(Exporter);
our (@ISA, @EXPORT, $VERSION);
@ISA = qw(Exporter);
@EXPORT = qw(file_read file_read_line file_bulk_read_line file_read_last_lines file_read_first_lines file_read_odd_lines file_read_even_lines file_grep_word file_grep_word_line_no file_tail file_word_replace );
$VERSION = "1.0";
# Preloaded methods go here.

sub file_read {
open ( FILEREAD, "@_" ) || die "File not found" ;
while ( readline *FILEREAD )
{
  print $_;
}
close ( FILEREAD );
}

sub file_read_line {
my $linenumber = $_[1] -1;
open ( FILEREADLINE, "$_[0]" ) || die "File not found" ;
my @lines = ;
print $lines[$linenumber];
close ( FILEREADLINE );
}

sub file_bulk_read_line {
my $linestart = $_[1] - 1;
my $lineend = $_[2];
open ( FILEBULKREAD, "$_[0]" ) || die "File not found" ;
my @line = ;
while ( $linestart < $lineend )
{
   print $line[$linestart];
   $linestart = $linestart + 1;
}
close ( FILEBULKREAD );
}

sub file_read_last_lines {
my $linestart = $_[1];
open ( LASTLINES, "$_[0]" ) || die "File not found";
my @li = ;
while (  $linestart > 0 )
{
  print $li[-$linestart];
  $linestart = $linestart - 1;
}
close ( LASTLINES );
}

sub file_read_first_lines {
open ( FIRSTLINES, "$_[0]" ) || die "File not found";
my @li = ;
my $line = 0;
while ( $line < $_[1] )
{

    print $li[$line];
     $line = $line + 1;
}
close ( FIRSTLINES );
}

sub file_read_odd_lines {
  open ( ODD, $_[0]) || die "File not found";
  my @data = ;
  my $i = "1";
  my $size = $#data + 1;
  while ( $i <= $size )
  {
    print "$data[$i]";
    $i = $i + 2;
   }
close ( ODD );
}

sub file_read_even_lines {
  open ( EVEN, "$_[0]" ) || die "File not found";
  my @data = ;
  my $i = "0";
  my $size = $#data + 1;
  while ( $i <= $size )
  {
    print "$data[$i]";
    $i = $i + 2;

  }
close ( EVEN );
  }

sub file_grep_word {
open ( FILEGREP, "$_[0]" ) || die "File not found" ;
while ( readline *FILEGREP )
{
  print $_ if ( $_ =~ /$_[1]/ );
}
close ( FILEGREP );
}

sub file_grep_word_line_no {
my $no = "1";
open ( FILEGREPNO, "$_[0]" ) || die "File not found" ;
while ( readline *FILEGREPNO )
{

  print "$no:$_ " if ( $_ =~ /$_[1]/ );
  $no = $no + 1;
  }
close ( FILEGREPNO );
}

sub file_word_replace {
open ( GREPREPLACE, "$_[0]" ) || die "File not found" ;
while ( readline *GREPREPLACE )
{
if ( $_ =~ /$_[1]/ )
{
$_ =~ s/$_[1]/$_[2]/;
print $_;

}
}
close ( GREPREPLACE );
}



sub file_tail {
my $no = "1" ;
open ( FILETAIL, "$_[0]") || die "File not found";
my @lines = ;
my $start = $#lines;
#my $first = $lines[-1];
#my $len = length ($first );
print $lines[-1] if ( length($lines[-1]) > 0 );
while ($no > 0 )
{
	my @new_lines = ;
  my $end = $#new_lines;
	if ( $start =! $end )
	{
  print $new_lines[-1];
}
}
close(FILETAIL);
}




1;
__END__