find a word in a file

[donny750]

hi,

I've a file text and i want to find how many times i've this

|WARNING|

in my file.

How can i do ?
I unix i use grep and perl ??

Thanks

 

[spookie]

my @arr = `grep '|WARNING|' <filename>` ;
print scalar(@arr) ;

--------------------------------------------------------------------------
I never set a goal because u never know whats going to happen tommorow.

 

[stevexff]

Not using an array:

use strict;
use warnings;
my $count;

while (<>) {
   $count++ if (/\|WARNING\|/);
}

print $count;

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[donny750]

thanks
i've found and make this

#!/usr/bin/perl

use strict;

my $numbers = 0;
my $infile = 'example.log';
open DATA, $infile or die $!;
foreach  my $intext (<DATA>) {
if ( $intext =~ m/|WARNING\/ )
{
$numbers ++;
}
}
        
        print "Found it : ". $numbers ."\n";

 

[KevinADC]

better written as:

#!/usr/bin/perl

use strict;
my $numbers = 0;
my $infile = 'example.log';
open DATA, $infile or die $!;
while(my $intext = <DATA>) {
   $numbers++ while ($intext =~ m/\|WARNING\|/g);
}
print "Found it : ". $numbers ."\n";

- Kevin, perl coder unexceptional!

 

[KevinADC]

try that again:

#!/usr/bin/perl

use strict;
my $numbers = 0;
my $infile = 'example.log';
open DATA, $infile or die $!;
while(my $intext = <DATA>) {
   $numbers++ while ($intext =~ m/\|WARNING\|/g);
}
print "Found it : ". $numbers ."\n";

- Kevin, perl coder unexceptional!

- Kevin, perl coder unexceptional!

 

[donny750]

thanks kevin for your
I want to learn the perl and i learn a lot there
while your solution is better ?
She find if there are two expression in the same line ??

 

[donny750]

i try your solution and it s better
if i've 2 or 3 times the expression in the same line
she find it
beacause you have had "/g" ???
thanks

 

[KevinADC]

donny750, you had this:

if ( $intext =~ m/|WARNING\/ )
{
$numbers ++;
}

which is not correct. The pipe character '|' is a special character in perl that means 'or', as in: 'this or that' (this|that). If you are searching for a pipe in a string you have to escape it with backslash \| so perl doesn't think it means 'or'.

and yes, the 'g' modifier means to find all occurances of the pattern. Using a 'while' loop with the 'g' modifier allows you to increment a counter for all the occurances that match:

$numbers++ while ($intext =~ m/\|WARNING\|/g);

- Kevin, perl coder unexceptional!