61
Perl / varias coincidencias en una sola linea
« en: Junio 20, 2011, 07:47:00 pm »
Saludos Terricolas!
aver os comento..me gustaria contar las veces que se repite una palabra en la linea, comentando el ejercicio , tengo un fichero con varias lineas y entre ellas busco cuantas veces esta "PRUEBA" pero solo consigo saber si aparece en la linea.
while(<FICHERO>){
$dat = $_;
$contador += 1 if $dat =~ m/PRUEBA/g;
}
He colocado /g pensando que alomejor me reconocería las distintas veces que la ve pero nada, tambien he probado a guardar la salida de $dat =~ m/PRUEBA/g en otra variable para saber cual es la salida por si cambia dependiendo de las palabras que encuentre pero sin resultados xDD , he probado a meter la expresion en un while($dat =~ m/PRUEBA/g) pero tampoco. Haber si me hechais una mano.
Salud!
aver os comento..me gustaria contar las veces que se repite una palabra en la linea, comentando el ejercicio , tengo un fichero con varias lineas y entre ellas busco cuantas veces esta "PRUEBA" pero solo consigo saber si aparece en la linea.
while(<FICHERO>){
$dat = $_;
$contador += 1 if $dat =~ m/PRUEBA/g;
}
He colocado /g pensando que alomejor me reconocería las distintas veces que la ve pero nada, tambien he probado a guardar la salida de $dat =~ m/PRUEBA/g en otra variable para saber cual es la salida por si cambia dependiendo de las palabras que encuentre pero sin resultados xDD , he probado a meter la expresion en un while($dat =~ m/PRUEBA/g) pero tampoco. Haber si me hechais una mano.
Salud!