Сообщения

1

Perl / Имя получаемого файла.

« : 28 Февраля 2003, 19:45:04 »

YES!!!
Big THANKS!!!

PS Будешь в питере - с меня пиво!
=)

2

Perl / Имя получаемого файла.

« : 28 Февраля 2003, 19:23:23 »

Насколько я понял из прочтения этих манов там без HTTP::Request->new(GET $url) не обойтись. В принципе вот этот код выдает то, что нужно:
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
printf "%s", $response->base();

но я так и не понял скачивает ли он при этом файл или нет. Судя по продолжительности ответа - скачивает. Кто-нить подскажет так ли это? И как подправить, чтобы не скачивал?

3

Perl / Имя получаемого файла.

« : 28 Февраля 2003, 17:35:40 »

Почти. Точнее - я получаю запрос вида http://www.test.com/ - т.е. мне не известен имя файла, кот. мне отдаст сервер (index.htm, default.htm ...)
так вот хочется его таки узнать не скачивая. и во втором случае - я получаю URL (http://www.softodrom.ru/get.php?id=1706&action=dl), кот. на самом деле приводит к файлу под именем wwr_rus.rar. Вот эти-то мне имена и нужны до закачки их к себе.

4

Perl / Имя получаемого файла.

« : 28 Февраля 2003, 16:35:57 »

Есть проблемка, решение которой я так и не нашел ни в манах ни в инете.
От пользователей приходят URl для скачивания. Требуется узнать конечное имя получаемого файла.
К примеру имеем запрос:
http://www.google.com/
так вот нужно конечное имя файла (без его закачки)
index.htm
И главное - чтобы распознавались вот такие урлы:
http://www.softodrom.ru/get.php?id=1706&action=dl
который вообще должен возвращать имя wwr_rus.rar

Заранее премного благодарен за ответы.