Hi,

Here is something that am trying with perl

#! /opt/third-party/bin/perl

open(fh, "s") || die "unable to open the file <small>";

@ch = ();
$i = 0;

while( $content = <fh> )
{
  if( $i <= 5 ) {
    push(@ch, $content);
    $i++;
  }
  else {
    $i = 1;
    foreach(@ch) {
      print "The file content is $_";
    }
    @ch = ();
  }
}

foreach(@ch) {
  print "The file content is $_";
}

exit 0

Would you provide a test file and the expected output?

Thanks!

Here is what you have asked for

>cat s

>>perl script.pl

if( $i <= 6 )

I dont think this is the right way to do by altering the index counter value as the value suggested will not work for files of different sizes and different lines

In your script when control is within the else loop you are not assigning the line read from the file.
Thats why cbihong has added the line

$ch = ($content);

Do you mean this?

while( $content = <fh> )
{
  if( $i <= 5 ) {
    push(@ch, $content);
    $i++;
  }
  else {
    $i = 1;
    foreach(@ch) {
      print "The file content is $_";
    }
    @ch = ($content);
  }
}