Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Веб-программирование > Perl
Перезагрузить страницу Разрабоать на языке Perl агент пользователя
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
катя-катерина катя-катерина вне форума
Новичок
 
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.12.2009
По умолчанию Разрабоать на языке Perl агент пользователя - 08.12.2009, 22:54

у меня задание
Разрабоать на языке Perl агент пользователя, который получает по запросу пользователя получает заданные информационные ресурсы. Агент должен функционировать в интерактивном режиме, распознавая и поддерживая следующие основные команды:
- получить заданный информационный ресурс с сервера и разместить его в файле;
- получить заданный информационный ресурс и вывести его содержимое на экран;
- получить сведения о заданном информационном ресурсе и вывести их на экран;
первые две вроде работают, а 3-й пункт не соображу....помогите пожалуйста!


Код:
#!/usr/bin/perl

use LWP::Simple;
use HTTP::Request;
use HTTP::Response;
use URI::Heuristic;

sub web_browser()
{
    my ($first)=$_[0];
    my ($second)=$_[1];
    my ($tre)=$_[2];

    print "Введите URL\n";
    my $raw_url=<STDIN>;
    chomp($raw_url);

     my $url=URI::Heuristic::uf_uristr($raw_url);
     $|=1;

    my $browser = LWP::UserAgent->new();
    $browser->agent("MyAgent");
    my $req = HTTP::Request->new(GET => $url);
    my $response = $browser->request($req);

    die "Can't get $url - ", $response->status_line    unless $response->is_success;

    die "We were expecting HTML, not", $response->content_type     unless $response->content_type eq 'text/html';

    my $html = $response->content;
    if(($first==1)&&($response->is_success))
    {
        open FILE,"+>1.htm";
        printf FILE "$html";
        close FILE;
    }
    if(($second==1)&&($response->is_success))
    {
        system "cls";
        $html =~ s/<[^>]*>//gs;
        $html =~ s/ //gs;
        print $html;
        <STDIN>;
    }
    if(($tre==1)&&($response->is_success))
    {
        system "cls";
         $met =head($url);
         print $met;
         <>
    }
    return 1;
}


while (1)
{
    system "cls";
     print " \n        1. Get a resource from the server and store it in a file.\n";
     print "        2. get resers with server and bring it to the screen.\n";
     print "        3. obtain information about the resource and bring it to the screen.\n";
     print "        4. Exit\n\n";

     $p=<STDIN>;
     chomp($p);

     if($p=='1')
     {
         &web_browser(1,0,0);
    }
    if($p=='2')
     {
        &web_browser(0,1,0);
     }
    if($p=='3')
     {
        &web_browser(0,0,1);
     }
     if($p==4)
     {
         print"exit\n";
         last;
     }

}
Ответить с цитированием
  (#2 (permalink)) Старый
катя-катерина катя-катерина вне форума
Новичок
 
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.12.2009
По умолчанию 18.12.2009, 00:37

ну кто-нить помогите!!!!!!!!!!!!!!!!!!!
Ответить с цитированием
  (#3 (permalink)) Старый
IL_Agent IL_Agent вне форума
Member
 
Аватар для IL_Agent
 
Сообщений: 2,015
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.07.2005
По умолчанию 18.12.2009, 10:02

а что выводит ?
Ответить с цитированием
  (#4 (permalink)) Старый
катя-катерина катя-катерина вне форума
Новичок
 
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.12.2009
По умолчанию 19.12.2009, 00:10

выводит кол-во линий и кол-во байт, а нужно чтоб еще выводил заголовок с помощью Header
Ответить с цитированием
  (#5 (permalink)) Старый
катя-катерина катя-катерина вне форума
Новичок
 
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.12.2009
По умолчанию 19.12.2009, 00:17

дата..сервер, последняя модификация, content-type,content-lenght,accept-ranges что-то типа вроде этого нужно....
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
ivanyan ivanyan вне форума
Member
 
Сообщений: 305
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 06.06.2002
По умолчанию 22.01.2010, 17:18

Не совсем понятно зачем у вас во втором случае указано <STDIN>;
а в третьем вообще указано <>

Скорее всего что-то типо такого вам нужно

Код:
if(($tre==1)&&($response->is_success))
{

     if ($response->is_success) {
         $response->last_modified  and print 'modified: ', scalar(localtime($response->last_modified));
         $response->content_length and print 'size: ', $response->content_length;  
     } else {
         print $response->status_line;
     }
}
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как убрать Daemon Tools Pro Агент из автозапуска Bol Любые вопросы от новичков 2 06.01.2012 14:43
Perl ParadoXD MySQL 1 27.12.2011 18:39
Профиль пользователя СерЕжик Любые вопросы от новичков 2 23.08.2011 17:16
Требуется web-программист (Perl или PHP, готовый переучиться на Perl). офис в Казани uCoz Работа 0 25.01.2011 16:41
Разработать на языке Perl CGI программу-переводчик Rushan Perl 1 21.01.2011 19:06
Агент для Gigabyte MW720 Sk_3D Программы и софт 4 08.04.2010 12:58
агент для тел. sim-sim Программы и софт 4 01.03.2010 00:14
Агент по сборке информации по компьютеру abc_kirov Вопросы начинающих программистов 3 26.07.2009 19:35
Есть ли инструкция пользователя для partition magic 8.0 на русском языке? sergey111 Техническая поддержка 6 11.01.2009 21:33
Globax и майл-агент Leonidos88 Разное 0 27.11.2008 22:31
Агент.ру требуется Java-developer, Москва (з/п договорная от 40000) agent.ru Работа 0 06.10.2008 15:43
Вопрос про агент@mail VladiK Разное 0 24.05.2007 20:24



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов