Cargando

Saber numero de ocurrencias en archivo y lista




Pulsa corazón para recibir avisos de nuevas Respuestas

  AUTOR PREGUNTA

Publicado 06 agosto 2014 - 04: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
  • Volver arriba

 

Publicado 07 agosto 2014 - 18: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


 

Publicado 07 agosto 2014 - 18:21
Esta es una solución mucho mas corta:

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


   AUTOR PREGUNTA

Publicado 07 agosto 2014 - 18:44
Implementado Joel, gracias


X