line number and first occurence of a pattern

[mercuryshipzz]

Hi,

My objective is to get the line number of the first occurance of the search pattern.


my test.txt contains:

..... ..................
total rows....
................... ..
total rejected rows: 40
total rejected rows: 50
total rejected rows: 80
total rejected rows: 90

total discarded rows: 40
................. ..
................. ..
................. ..

i want to get the line number of first occurance of "total rejected rows:" and the value next to it that is 40 in this case.
i beleive the awk command in this program returns the last value of the line ie., 40 in this case.
And $. returns the corresponding line number.



these are the errors i got while executing this program:
Errors:

String found where operator expected at search2.pl line 19, near "awk '{print NF ":" $0}'"
(Do you need to predeclare awk?)
syntax error at search2.pl line 19, near "awk '{print NF ":" $0}'"
Execution of search2.pl aborted due to compilation errors.

can somebody help me with this?

thanks,
Mercury.

 
#!/usr/bin/perl
 
use strict;
use warnings;
sub search_pattern
{
 
my $file_name = $_[0];
 
my $search = $_[1];
open(LOGFILE, $_[0]) or die("Error: cannot open file '$_[0]'\n");
 
 
 
while (<LOGFILE>) {
    chomp($_);
 
    if (/$search/) {
    awk '{print NF ":" $0}' #Value of the last field
        print "\n$."  # prints the line number
    }
}
}
 
my $file_n ="test.txt";
 
my $search_p = "total rejected rows:";
 
&search_pattern($file_n, $search_p);
 
 
 

[mehj123]

Hi,

My objective is to get the line number of the first occurance of the search pattern.


my test.txt contains:

..... ..................
total rows....
................... ..
total rejected rows: 40
total rejected rows: 50
total rejected rows: 80
total rejected rows: 90

total discarded rows: 40
................. ..
................. ..
................. ..

i want to get the line number of first occurance of "total rejected rows:" and the value next to it that is 40 in this case.
i beleive the awk command in this program returns the last value of the line ie., 40 in this case.
And $. returns the corresponding line number.



these are the errors i got while executing this program:
Errors:

String found where operator expected at search2.pl line 19, near "awk '{print NF ":" $0}'"
(Do you need to predeclare awk?)
syntax error at search2.pl line 19, near "awk '{print NF ":" $0}'"
Execution of search2.pl aborted due to compilation errors.

can somebody help me with this?

thanks,
Mercury.

 
#!/usr/bin/perl
 
use strict;
use warnings;
sub search_pattern 
{
 
my $file_name = $_[0];
 
my $search = $_[1];
open(LOGFILE, $_[0]) or die("Error: cannot open file '$_[0]'\n");
 
 
 
while (<LOGFILE>) {
    chomp($_);
 
    if (/$search/) {
    awk '{print NF ":" $0}' #Value of the last field
        print "\n$."  # prints the line number
    }
}
}
 
my $file_n ="test.txt";
 
my $search_p = "total rejected rows:";
 
&search_pattern($file_n, $search_p);
 
 
 

Hi,

You should be running the awk command by enclosing it in `(back ticks).. eg

`awk \'{print NF ":" $0}\'`

But i guess there is some syntax error in the statement.. You might get more details at this link

On the other hand, if you are not soo keen on using awk, this code also provides the same solution

#!/usr/bin/perl
 
use strict;
use warnings;
 
sub search_pattern
{
    my $file_name = $_[0];
 
    my $search = $_[1];
 
    open(LOGFILE, $_[0]) or die("Error: cannot open file '$_[0]'\n");
 
    while (<LOGFILE>)
    {
        chomp($_);
 
        if (/$search/)
        {
            my($line,$occ) = split(/:/,$_);
            print "Occurence : $occ\n";
            print "Line number : $.\n";
        }
    }
}
 
my $file_n ="test.txt";
my $search_p = "total rejected rows:";
&search_pattern($file_n, $search_p);
 

Hope this helps,

Mehjabeen

[numberwhun]

First, Mercury,

Why does this sound like a homework question? But, since you provided code, at least you aren't looking for the answers without doing some work.

While I see that mehj123 has provided a Perl solution, I have not looked at it to see if it works.


mehj123,

Please know that while I understand you are just providing alternatives, this is the Perl forum and not the AWK forum. The user was looking for a Perl solution to their issue.

Regards,

Jeff

[mercuryshipzz]

thanks a lot Mehjabeen....

works great....

[mehj123]

mehj123,

Please know that while I understand you are just providing alternatives, this is the Perl forum and not the AWK forum. The user was looking for a Perl solution to their issue.

Regards,

Jeff

Hi Jeff,
Will keep it in mind in future.. But I thought since Mercury had provided the code and all that was needed was a split function, I gave the solution.
Anyways, Thanks for the feedback :)

Thanks
Mehjabeen