JackalSR13
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Приветствую!
В конце прошлого года тредовалось написать скрипт, определяющий через URL редиректа URL реальный, т.е. если дано http://c.moreover.com/click/here.pl?z43551590&z=161377, то должно получиться http://www.msnbc.com/news/786057.asp. Я сделал так:
Код:
#! /usr/bin/perl -w
use IO::Socket;
my($socket, $remote);
my($remote_host) = "c.moreover.com";
my($remote_port) = "80";
$remote = IO::Socket::INET->new(
PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp")
or die "Couldn't connect to $remote_host:$remote_port : $@\n";
$remote->autoflush(1);
STDOUT->autoflush(1);
print $remote "HEAD /click/here.pl?z43412696&z=161377 HTTP/1.0\n\n";
while (<$remote>){
print STDOUT $_;
if (/^Location/){
/^Location: (.*)$/;
$url = $1;
}
}
close($remote);
chomp($url);
$url =~ s/\s*$//;
print "URL: $url\n";
|
Сейчас этот способ не работает. Может кто-нибудь помочь новым вариантом?
|
