Re: help regarding Comparision of two lines

#!/usr/bin/perl

use warnings;
use strict;

# Make sure we got a valid file in $ARGV[0]
die "Wrong usage\n" unless (defined $ARGV[0] and -f $ARGV[0]);

open my $FH, "< $ARGV[0]" or die "Can't open $ARGV[0] : $!\n"; # I
think it was #!...

my $count = 0;
my $linesPrinted = 0;
while (<$FH>) { # Count lines with this string and print the 6th line
with this string
$count++ if ( /puts$conCheckFail/);
if ( $count <= 6 and $linesPrinted <= 6 ) {
$linesPrinted++; # Count lines printed. Stop after 6
print;
}
}
.

Relevant Pages