#!/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
On 26 Sep, 20:38, [EMAIL PROTECTED] (Yitzle) wrote:
> On 9/26/07, raaki <[EMAIL PROTECTED]> wrote:
>
>
>
>
>
> > hi friends
>
> > recently i started learning perl.i need to print some statements after
> > perticular line.in my file there is one line called "puts
> > conCheckFAIL#---"occuri
On 9/26/07, raaki <[EMAIL PROTECTED]> wrote:
> hi friends
>
> recently i started learning perl.i need to print some statements after
> perticular line.in my file there is one line called "puts
> conCheckFAIL#---"occuring number of times.i need to print some
> statements after the 6th time