AUTOR PREGUNTA #1
Publicado 06 agosto 2014 - 03:57
Usando perl y regular expressions cómo puedo saber el numero de ocurrencias de un archivo y una lista?
-
¿Tienes la misma pregunta? Yo también
PREGUNTAS SIMILARES
#2
Publicado 07 agosto 2014 - 17:20
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
AUTOR PREGUNTA #4
Publicado 07 agosto 2014 - 17:44
Implementado Joel, gracias
