printing first occurence of a input line

[REGYS]

Hi guys,
I'm trying to print the first occurence of an input line in a log file using an if statement and an index function. Check it out.

if (index($0,"MS Position Req(msgLen=23)")>0 ){
my_string = $0;
split(my_string,time,":");
substr($1,2,7);
split($1,t,":");
$1=(t[2]*60)+ t[3];
print "MS Position:",$1;
As a result all the input lines with "MS Position Req" get printed instead of the first occurence just like i wish.
Can someone help me

 

[mikevh]

Put an exit statement after the print and the program will exit after the first execution of the if block.

Or set a flag in a BEGIN block and change it in the if block, e.g.

[b]BEGIN {first = 1}[/b]
if ([b]first[/b] && index($0,"MS Position Req(msgLen=23)")>0 ){
    my_string = $0;
    split(my_string,time,":");
    substr($1,2,7);
    split($1,t,":");
    $1=(t[2]*60)+ t[3];
    print "MS Position:",$1;
    [b]first = 0[/b]
}

 

[mikevh]

You need braces around that if block, of course...

[b]BEGIN {first = 1}[/b]
[b]{[/b]
    if ([b]first[/b] && index($0,"MS Position Req(msgLen=23)")>0 ){
        my_string = $0;
        split(my_string,time,":");
        substr($1,2,7);
        split($1,t,":");
        $1=(t[2]*60)+ t[3];
        print "MS Position:",$1;
        [b]first = 0[/b]
    }
[b]}[/b]