#!/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; } } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/