Ver Tema

ebidrey · 2011-12-28 16:09 @715

Buenas tardes. Este es mi primer post. Junto con saludarles, quisiera saber si alguien conoce una forma de comparar si un fichero tiene un párrafo completo de otro fichero. Es decir:

Fichero 1:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

<etiqueta>

mi nombre es

ebidrey

<etiqueta>

Fichero 2:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

hola

<etiqueta>

mi nombre es

ebidrey

<etiqueta>

y soy nuevo

en perl en español

La idea es que al comparar los ficheros, el script me diga si lo que está entre <etiqueta> es EXACTAMENTE lo mismo o no.

De antemano, muchas gracias.

explorer · 2011-12-29 07:54 @371

Bienvenido a los foros de Perl en español, ebidrey.

Por comparar, hay muchas formas. Con expresiones regulares, con index(), mirando línea a línea, etc.

¿No tienes algo de código ya hecho?

ebidrey · 2011-12-29 11:17 @512

Muchas gracias por tu respuesta, ahora he escrito algo de código:

Syntax: [ Download ] [ Hide ]

while(<PATTERN>){ push(@pat,$_); } # Archivo "patrón a buscar" en un array
while(<INPUT>){ push(@inp,$_); } # Archivo donde quiero buscar el patrón
foreach (@inp)
{
if($_ =~ /patron_de_busqueda/)
{
push(@between, $counter);
}
$counter++;
}
my $end = pop(@between) - 1;
my $start = pop(@between) + 1;
my @new_inp;
my $i;
for($i = $start; $i <= $end; $i++)
{
push(@new_inp,$inp[$i]); #se ingresa al nuevo array lo que está entre líneas start y end
}
is(@pat, @new_inp, "Added code is equal to the pattern");
#luego se compara cada elemento de @new_imp con @pat

¿Existirá algo más óptimo? Me parece que sí.

explorer · 2011-12-29 13:22 @598

A ver... a ver...

En el primer fichero, solo hay un párrafo, y tenemos que buscar cuántas veces aparece ese párrafo en el segundo fichero, ¿no?

En cuanto a tu código... creo que no hace nada de eso...

ebidrey · 2011-12-29 13:36 @608

lo que hace el codigo es ingresar un file grande a un array. Luego de esto, a este array, se le extrae solo lo que está dentro de determinadas etiquetas, por ejemplo, entre la etiqueta <hola> y la etiqueta <hola>. Este contenido se ingresa a otro array, que es un subconjunto de el array grande. Luego, con este array subconjunto, se compara con el file patron y, si son iguales, el resultado es verdadero.

Gracias por la respuesta.

Pd: La comparacion final no la puse debido a la trivialidad.

ebidrey

ebidrey · 2011-12-29 13:46 @615

Creo que no respondí bien a tu pregunta.

En un file (file1) hay un párrafo, y la idea es buscar si es que aparece exactamente igual en otro file (file2), pero que claramente posee un número superior de líneas, por ejemplo:

File 1:

Syntax: [ Download ] [ Hide ]

señor
estoy buscando una
solucion a
mi problema
en perl

File 2:

Syntax: [ Download ] [ Hide ]

esto es lo que debo
sacar del gran
arreglo
<hola>
señor
estoy buscando una
solucion a
mi problema
en perl
<hola>
esto también
debo
sacarlo del gran
arreglo

Entonces, lo rojo del file1, quiero determinar si es lo mismo que hay dentro de las etiquetas azules del file2. Necesito saber si es que no tiene ninguna variación. Espero que se entienda bien.

Muchas gracias.

explorer · 2011-12-29 18:25 @809

Bueno, yo tengo una solución, siguiendo más o menos tus indicaciones:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use diagnostics;
 
 
my $fichero1 = '<etiqueta>
mi nombre es
ebidrey
<etiqueta>';
 
my $fichero2 = 'hola
<etiqueta>
mi nombre es
ebidrey
<etiqueta>
y soy nuevo
en perl en español';
 
# extracción de la etiqueta (este paso se puede obviar si la etiqueta siempre es la misma)
my($etiqueta) = $fichero1 =~ /<(.+?)>/;
 
# extracción del contenido de la etiqueta (lo mismo que antes)
my($parrafo1) = $fichero1 =~ /(<$etiqueta>.+?<$etiqueta>)/s;
 
# comprobamos si existe el párrafo
if (-1 != index $fichero2, $parrafo1) {
    say "Encontrado";
}
else {
    say "No encontrado";
}
 
__END__

ebidrey · 2011-12-30 08:29 @395

Muchas gracias, eres un monstruo del Perl, estoy muy impresionado con el lenguaje y con el foro también. Nos veremos muy seguido.

Feliz Año Nuevo

Gracias.

Publicidad

Socializa