Re: help regarding Comparision of two lines

On 26 Sep, 20:38, yit...@xxxxxxxxxxxxxxxxxxxxx (Yitzle) wrote:
On 9/26/07, raaki <hemanth...@xxxxxxxxx> 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 it occuered.can you help me with that

puts \$conCheckFail
\"#-------------------------------------------------\"\n"; # 5th time
occurance of puts...
puts \$conCheckFail \"# CONNECTIVITY CHECK ERRORS FOR PORT TYPE address
\"\n";
puts \$conCheckFail
\"#-------------------------------------------------\"\n"; # 6th
time occurance of puts...

i try to write the code as below .trying to compare the above line
last part as a string and print the statements but after printing the
print statements the 6 th occurance is printing again .can u help in
any way solving this either when the 6th time it appeared i needto
print my print statements and rest of the file text need to be the
same...

rename "$ARGV[0]", "$ARGV[0].tmp";
open INPUT, "$ARGV[0].tmp";
open OUTPUT, "> $ARGV[0]";
while (<INPUT>) {
if ($_=~"PORT TYPE address") {
print ..
print ..
print ..
print ..
} else {
print OUTPUT "$_";
};
}
unlink "$ARGV[0].tmp";

rename "$ARGV[0]", "$ARGV[0].gate";

I am a bit unclear about what you are trying to do.
If you want to search for the string "PORT TYPE address", the code you
have looks good.
If you want to find the 6th occurrence, you could you a counter.

My input file:
--- START ---
1: puts $conCheckFail "#-------------------------------------------------"\n";
2: puts $conCheckFail "#-------------------------------------------------"\n";
3: puts $conCheckFail "#"PORT TYPE address""\n";
4: puts $conCheckFail "#-------------------------------------------------"\n";
5: puts $conCheckFail "#-------------------------------------------------"\n";
6: puts $conCheckFail "#-------------------------------------------------"\n";
7: puts $conCheckFail "#-------------------------------------------------"\n";
8: puts $conCheckFail "#-------------------------------------------------"\n";
--- END ---

Code:
--- START ---
#!/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 file\n";
while (<$FH>) { # Search for this string and print out the line that has it
print if ( /"PORT TYPE address"/);}

close $FH;

print "***\n";

open $FH, "< $ARGV[0]" or die "Can't open file\n";
my $count = 0;
while (<$FH>) { # Count lines with this string and print the 6th line
with this string
$count++ if ( /conCheckFail/);
print if $count == 6;}

--- END ---

Output:
--- START ---
3: puts $conCheckFail "#"PORT TYPE address""\n";
***
6: puts $conCheckFail "#-------------------------------------------------"\n";
--- END ---- Hide quoted text -

- Show quoted text -

hi Yitzle,

thanks for the answer. i try to explain detailly.i had a file which i
have to replace and write some more lines so i started writing a perl
script..
my file is more or less like ..

strat------------
puts $conCheckFail "#--------------------------------------------"
puts $conCheckFail "# MEMORY CLOCKS"
puts $conCheckFail "#--------------------------------------------"
.....
.....
.....


puts $conCheckFail
"#-------------------------------------------------"
puts $conCheckFail "# FOR PORT TYPE address"
puts $conCheckFail
"#-------------------------------------------------" (# 6th time
appearing)
.....
.....
.....
#----------------------
#FORCING RESET
#----------------------
.....
.....
end

i need to print some lines after the appearence of "puts
$conCheckFail" for the 6th time and the continuation must be the
same.i use print statement for using this.the code i wrote is below


rename "$ARGV[0]", "$ARGV[0].tmp";

open INPUT, "$ARGV[0].tmp";

open OUTPUT, "> $ARGV[0]";
while (<INPUT>) {
my $count == 0;
if ($_=~/puts$conCheckFail/) {
$count ++ ;
};

if ( $count == 6) {

print.....
print....

} else {
print OUTPUT "$_";
};
}
}
can u help me with the errors in this code..

thasnkyou

.

Relevant Pages