Este es mi código:
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.
