Perl кроссайт?

Тема в разделе "Perl программирование", создана пользователем LSD, 14 сен 2005.

Статус темы:
Закрыта.
  1. LSD

    LSD Гость

    Возможно ли с помощью перл скрипта скопировать файл с чужого хоста на свой?
     
  2. ????

    ???? Гость

    Для: LSD
    Ключевое слово LWP (Library for the WWW in Perl).
    Код (Text):
    #!/usr/bin/perl

    use strict;
    use warnings;
    use LWP::UserAgent;

    my $url = "http://ya.ru";
    my $agent = new LWP::UserAgent();
    my $request = new HTTP::Request('GET' => $url);

    my $response = $agent->request($request);

    if ($response->is_success())
    {
    print($response->content());
    }
    else
    {
    print("Error: " . $response->status_line());
    }
     
  3. LSD

    LSD Гость

    Спасибо, вроде работает :D
     
  4. desp

    desp Гость

    А как быть, если на все стандартные примеры выдает такой ответ:

    ===================================
    error: 500 Can't connect to www.ya.ru:80 (Timeout) at /usr/home/...
    ===================================

    При этом в firewall сделаны следующие настройки
    ========================================
    ipfw add allow log tcp from any to any 80 out
    ipfw add allow log tcp from any 80 to any in
    ========================================

    :)
     
  5. desp

    desp Гость

    Нда, вижу, что тут много настоящих специалистов...
     
  6. ????

    ???? Гость

    Для: desp
    тут точно нет телепатов
     
Загрузка...
Похожие Темы - Perl кроссайт
  1. Anna_Kashina
    Ответов:
    0
    Просмотров:
    137
  2. SvetlanaL
    Ответов:
    0
    Просмотров:
    410
  3. SvetlanaL
    Ответов:
    0
    Просмотров:
    425
  4. SvetlanaL
    Ответов:
    0
    Просмотров:
    505
  5. SvetlanaL
    Ответов:
    0
    Просмотров:
    606
Статус темы:
Закрыта.

Поделиться этой страницей