ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Eugene V. Sofronov 2:5020/400 23 May 2001 02:32:30
To : All
Subject : Выцепление реального URL...
--------------------------------------------------------------------------------
Приветствую!
Дано: URL с редиректом, например
http://www.hotscripts.com/cgi-bin/jump.cgi?ID=1
Hадо: вычислить реальный URL. В данном случае это будет
http://www.vietbot.com/explore/product/
Использую HTTP::UserAgent таким образом:
$ua = new LWP::UserAgent;
$ua -> agent("Mozilla/5.0" . $ua->agent);
$req = new HTTP::Request 'GET' => "$tmpurl";
$req->header('Referrer' => 'http://www.hotscripts.com');
$res = $ua->request($req);
$url = $res->base;
где $tmpurl = "http://www.hotscripts.com/cgi-bin/jump.cgi?ID=1".
Получаю следующее:
Can't use string ("URI::URL") as an ARRAY ref while "strict refs" in use
at /usr/local/lib/perl5/site_perl/5.005/URI/WithBase.pm line 41.
По-английски я понимаю, но смысл не доходит ;( Что я делаю не так?
Заранее спасибо!
--
Eugene V. Sofronov / E-Mail: ace@lglobus.ru / ICQ UIN : 17269496
E-Mail redirector: jackal-sr13@mail.ru (always up) -=/ SR 13 /=-
-=> np: Masami Okui - Kiss in the Dark
--- ifmail v.2.15dev5
* Origin: -=/ SR 13 /=- (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
