Tengo prueba.htm:
Using html4strict Syntax Highlighting
- <title>Probando</title>
- <br>Simple movimiento</br>
- <meta http-equiv="refresh" content="0;URL=http:/127.0.0.1/saludo.htm">
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Y el código de saludo.htm:
Using html4strict Syntax Highlighting
- <br>Bienvenido a mi web</br>
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Y mi programita Perl
Using perl Syntax Highlighting
- use LWP::UserAgent;
- use HTTP::Request;
- use LWP::Simple;
- my $tor = "http://127.0.0.1/prueba.htm";
- 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 $http = new HTTP::Request GET =>$tor;
- my $rer = $ua->request($http);
- $ua->timeout(10);
- sleep 30;
- my $re = $rer->content();
- print $re;
- if ($re =~/Bienvenido a mi web/) {
- print "OK";
- } else {
- print "NO";
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Lo que yo quiero es verificar si cuando entro a prueba.htm ésta tiene "Bienvenido a mi web"
después de un tiempo. ¿Cómo lo haría?
