Foro - Perl en Español

por **erv-Z** » 2009-09-20 13:58 @624

Hola a todos, en este día estuve programando unas cosas y tenía un problema: necesitaba comparar el código fuente a ver si eran iguales y al parecer no comparaba bien el código fuente o hay algún error.

Este es mi código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
use HTTP::Request;
 
my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");
 
my $com1 = new HTTP::Request GET =>"http://start.ubuntu.com/9.04/";
my $com2 = new HTTP::Request GET =>"http://www.google.es/";
my $resultado = $ua->request($com1);
my $resultado2 = $ua->request($com2);
$ua->timeout(7) || die "Conecction faield";
my $result = $resultado->content();
my $result2 = $resultado2->content();
 
if ($result == $result2) {
    print "Es igual\n";
                          
    }else{
    print "No son iguales\n";
         }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El resultado es verdadero, no sé por qué sería, porque son diferentes códigos fuente.

El problema está en el '=='.

Ese operador de comparación es para comparaciones NUMÉRICAS. Pero, en cambio, lo que tú quieres hacer es una comparación de CADENAS DE CARACTERES.

El operador de comparación que debes usar es el 'eq'.

El programa te devuelve verdadero porque el perl, al ver que le solicitas una comparación numérica, transforma las dos cadenas de caracteres a números. Casi seguro que el resultado de esa transformación serán dos ceros, así que esa es la razón por la cual siempre te salga la condición como verdadera.

por **erv-Z** » 2009-09-20 14:19 @638

Mil gracias, tenía como un mes en este problema. Muchas gracias, amigo.

Un abrazo.

Foro - Perl en Español

Comprobando código fuente

Comprobando código fuente

Publicidad

Re: Comprobando código fuente

Re: Comprobando código fuente

¿Quién está conectado?