![]() |
|
Модераторы: korob2001, ginnie |
![]()
|
|
| burakov |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 554 Регистрация: 28.7.2006 Репутация: нет Всего: нет |
Есть задача выкачать файлы из сайта,
Файлы защищены javascript конструкцией типа Пример одного файла... <a href="javascript:if(confirm('fetch_download.php?mfile=644&osCsid=14eab84a3c2f4c0af2c34d94dc973c9e \n\nThis file was not retrieved by Teleport Pro, because it did not meet the project\'s file type specifications. \n\nDo you want to open it from the server?'))window.location='fetch_download.php?mfile=644&osCsid=14eab84a3c2f4c0af2c34d94dc973c9e'" tppabs="fetch_download.php?mfile=644&osCsid=14eab84a3c2f4c0af2c34d94dc973c9e">файл</td></tr> Как можно выкачать данный файл при помощи Perl.??? Спасибо |
|||
|
||||
| infarch |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 526 Регистрация: 13.3.2009 Репутация: нет Всего: 1 |
В конце всех процессов проихсодящих на клиенте находится http запрос. Вам надо изучить алгоритм его формирования и сделать аналогичный. Возможно вам поможет Tamper data или еще какой снифер.
|
|||
|
||||
| burakov |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 554 Регистрация: 28.7.2006 Репутация: нет Всего: нет |
Спасибо.
С помощью Tamper Data вычислил, что нужно этому сайту А не подскажите модуль Perl для работы с http заголовками? |
|||
|
||||
| infarch |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 526 Регистрация: 13.3.2009 Репутация: нет Всего: 1 |
Настолько подробно я с этим не баловался. может LWP и все с ним связанное?
|
|||
|
||||
| chaos |
|
|||
![]() Серийный программист ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2979 Регистрация: 7.7.2004 Где: Екатеринбург Репутация: нет Всего: 44 |
||||
|
||||
| burakov |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 554 Регистрация: 28.7.2006 Репутация: нет Всего: нет |
Да
единственно не совсем понятно, как это должно работать
Когда мне эти http заголовки менять ??? перед getstore??? Мне нужно добавить в заголовок Referer. Или я чего не так понимаю... |
|||
|
||||
| krypt3r |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 359 Регистрация: 9.6.2009 Репутация: нет Всего: 16 |
Разве шла речь об LWP::Simple? LWP::UserAgent + default_headers, perldoc LWP::UserAgent
|
|||
|
||||
![]()
|
| Правила форума "Perl: CGI программирование" | |
|
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Perl: разработка для Web | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |