Using perl Syntax Highlighting
- #!usr/bin/perl
- use LWP::UserAgent;
- my $nave = LWP::UserAgent->new();
- $nave->timeout(5);
- $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
- getproxy();
- sub getproxy {
- my $code = toma("http://www.proxys.com.ar/index.php?act=list&port=&type=&country=&page=1");
- if($code=~/<tr class="cells" onmouseover="this.className='cells2'" onmouseout="this.className='cells'">(.*?)<\/tr>/sig) {
- my $porcion = $1;
- chomp $porcion;
- print $porcion;
- if($porcion=~/<td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td>/sig) {
- my($id,$ip,$port,$type,$pais,$fecha) = ($1,$2,$3,$4,$5,$6);
- print "$ip:$port:$pais\n";
- }}
- }
- sub toma {
- return $nave->get( $_[0] )->content;
- }
- #The End ?
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El problema está en la segunda expresión regular de la cual quiero sacar cada dato que está entre los <td>.
El texto del que quiero extraer es este
Using html4strict Syntax Highlighting
<td >1</td>
<td>203.117.130.15</td>
<td>80</td>
<td>Elite</td>
<td> Vietnam</td>
<td>Hoy</td>
<td><a href="index.php?act=whois&ip=203.117.130.15" target="_blank"><span cl
ass="sp_link">WHOIS</span></a></td>
<td>203.117.130.15</td>
<td>80</td>
<td>Elite</td>
<td> Vietnam</td>
<td>Hoy</td>
<td><a href="index.php?act=whois&ip=203.117.130.15" target="_blank"><span cl
ass="sp_link">WHOIS</span></a></td>
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
¿ Alguien me puede ayudar ?
