Print message perl number of regex matches

[learingperl01]

Hello all,

I am trying to figure out how to print a message depending on the number of regexes that were matched...either the count or the number that were matched.

Example

if I am running a initial if statement with 5 regex. Depending on the number of matched regex I would like to print a different message. How can I go about doing that. Right now I have the sample code below which prints the actual regex that was matched, so in addition to printing what is shown below I would like to print at the end the number of the regexes that were matched. So for example if one,two,four matches then I would like to print a total of 3 regex matched.

Thanks in advance for the help.

if ( $string_found =~ /one|two|three|four|five/gim ) {
    if ( $string_found =~ /one/ ) {
        print "One";
    }
    if ( $string_found =~ /two/ ) {
        print "Two";
    }

 

[feherke]

Hi

A hint : capture the matches :

[u]  DB<1> [/u]$string_found='Two beer, or not two beer.'

[u]  DB<2> [/u]@match=($string_found=~/(one|two|three|four|five)/gim);

[u]  DB<3> [/u]print "found ",scalar @match," matches : ",join ", ",@match;
found 2 matches : Two, two

Feherke.

http://rootshell.be/~feherke/

 

[KevinADC]

Is this school work?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[learingperl01]

no, trying to add some additional logic to my script. Didn't want to paste/copy my entire script for something this simple.

 

[KevinADC]

Sample data would be helpful...

my %counts;#<- declare where/as needed in your script

if ( $string_found =~ /\b(one|two|three|four|five)\b/gio ) {
   $counts{$1}++;
}

# later......
foreach my $key (keys %counts) {
   print "$key = $counts{$key}\n";
}

------------------------------------------
- Kevin, perl coder unexceptional!