EJ: 80.80.80.80:8000
Estoy intentando hacer un código que me recoja la IP y el puerto por separado y me las guarde en una variable.
Using perl Syntax Highlighting
#!/usr/bin/perl
use IO::Socket;
use LWP::UserAgent;
use HTTP::Request;
$host="HOST";
chomp $host;
$final=$host;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $final);
$doc = $ua->request($req)->as_string;
($ip, $puerto) = $doc =~ m/\'(\w+)\:(\w+)\'/simo;
print "$ip:$puerto";
use IO::Socket;
use LWP::UserAgent;
use HTTP::Request;
$host="HOST";
chomp $host;
$final=$host;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $final);
$doc = $ua->request($req)->as_string;
($ip, $puerto) = $doc =~ m/\'(\w+)\:(\w+)\'/simo;
print "$ip:$puerto";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Pero no me funciona.