print lines from a text file

[lilly07]

I am new to perl. I would like to open a file and print 2,6,10,14.. etc lines of that file content. How to do it? I amm able to open a file and print the contetnts as below:

#!usr/bin/perl
 
$data_file = "test.txt";
open(EXPORTFILE, $data_file) || die("Could not open file!");
 print "Opened $data_file\n";
 
$counter = 0;
while(($line=<EXPORTFILE>) && ($counter<100)) {
 
        if($counter == 0) {
        print "Skip $counter \n";
        $counter++;
        next;
        }
 
        print "COUNTER: $counter \n";
        chomp($line);
        print "$line \n";
        $counter++;
 
}
 
close EXPORTFILE;
exit(0);

Is it possible to skip $line or jump every 4 $line(ie) the lines in that file. Please let me know.

Thanks.

[eWish]

Have a look at the Tie:File module it will be able to achieve what you want.

--Kevin

[nithinpes]

Also, you can read the entire file into an array and later increment the index of the array to print only the desired lines. Each element in the array would be each line in the file.

my @lines = <EXPORTFILE>;
###print lines 2,6,10,14........
for(my $i=1; $i<@lines;) {
  print "$lines[$i]";
  $i+ =4;
}
 
 

[KevinADC]

$. (dollar-sign dot) is the input record line number variable (files start at one unlike arrays, that start at zero). You can use the variable to find specific lines in files, but Tie::File does make it easy to do the same thing. Just keep in mind, the first line of a file is 0 (zero) if you use Tie::File since you are accessing the file as if it were an array.