[Mario Garcia]

Usando perl y regular expressions cómo puedo saber el numero de ocurrencias de un archivo y una lista?

[Julian10]

Es una solucion un poco larga pero funciona bien:

use strict;
use warnings;
my @regexes = ( qr/b/, qr/a/, qr/foo/, qr/quux/, );
my %matches = map { $_ => 0 } @regexes;
while (my $line = <DATA>) {
for my $regex (@regexes) {
next unless $line =~ /$regex/; $matches{$regex}++; } }
for my $regex (@regexes) {
print "$regex matched $matches{$regex} times\n"; } __DATA__ foo bar baz

[Joel7]

Esta es una solución mucho mas corta:

my @list = /$my_regex/g;
if (@list) {
# codigo aqui
print "Numero de ocurrencias: " . scalar @list . "\n"; }

[Mario Garcia]

Implementado Joel, gracias