Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Веб-программирование > Perl
Перезагрузить страницу Как добавить модуль XML::XPath в ActivePerl
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Satell Satell вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 02.01.2008
По умолчанию Как добавить модуль XML::XPath в ActivePerl - 02.01.2008, 15:41

Поставил Active Perl 5.8.8 под винды, при выполнении скрипта ошибка
Can't locate XML::XPath, нету такого модуля
скачал его со span.org, как его установить в мой дистрибутив, просто скопировать в папку XML или нет?
и оттуда ли я его скачал?

я просто скопировал модуль в папку XML, прога выдаёт ошибку Undefined subroutine &main::xmlescape line32


Код:
#!/usr/bin/perl -w -Ilib

use strict;

# модули для получения информации из XML и доступа к
# веб-ресурсам, соответственно
use XML::XPath;
use LWP::UserAgent;

# верхняя и нижняя части страницы
#require "./page-template.pl";

# библиотека функций. например для обработки полей присланной
# формы
#require "./xml-lib.pl";

print "Content-Type: text/html;charset=utf-8\n\n";

#print &header;

# обработка полей формы
#my %params = &parse_form;


#my $host  = $params {'host'};
#my $query = $params {'query'};

my $host='riabinoviy.info';
my $query='шансон';

#замена символов на ескейп последовательности, возможно библа xml встала неправильно
my $query_esc = xmlescape($query);
my $host_esc  = xmlescape($host);

#тут узнать что делает
$host =~ s[^http://|www\.][];

# готовим запрос
my $ua = LWP::UserAgent->new;
$ua->agent("Bond, James Bond/0.07");

my $exit  = 1;

$exit = 0 if $ENV{'REQUEST_METHOD'} eq 'POST';

my $reqid = undef;
my $page  = 0;
my $found = 0;
my $pages = 20;

print "<table width='100%'><tr><td width='16%'/><td>";

#  мы должны получить место сервера в выдаче по некому запросу.
# делаем запрос по десять ссылок на страницу и запрашиваем 50
# страниц. при нахождении сервера останавливаемся и выдаем его
# место в выдаче
while (not $exit and $page < $pages and $host)
{
    my $reqid_tag = '';
    $reqid_tag = "    <reqid>$reqid</reqid>\n\n"
      if (defined $reqid and $reqid);

    # XML запрос
    my $doc = <<DOC;
<?xml version='1.0' encoding='utf-8'?>
<request>
    <query>$query_esc</query>
    <page>$page</page>
    $reqid_tag
    <maxpassages>0</maxpassages>
    <groupings>
        <groupby attr='d' mode='deep' groups-on-page='10' docs-in-group='1' curcateg='-1'/>
    </groupings>
</request>
DOC

    my $req = HTTP::Request -> new
     # ( POST => 'http://xmlsearch.yandex.ru/cgi-bin/xmlsearch.pl' );
      ( POST => 'http://xmlsearch.yandex.ru/cgi-bin/xmlsearch.pl');
    $req -> content_type ('application/xml');
    $req -> content ("$doc");

    # отправляем запрос
    my $response = $ua -> request ($req);

    if ( $response->is_success )
    {
        #print $response -> content;
        
        my $doc = XML::XPath -> new ( xml => $response -> content );

        # пробуем получить ошибку
        my $error = $doc -> findvalue ('/yandexsearch/response/error');
        if ("$error")
        {
            print "Возникла следующая ошибка: ", $error, "
\n";
            $exit = 1;
            last;
        }
        
        $reqid = $doc -> findvalue ('/yandexsearch/response/reqid');

        my $pos = 1;
        my @nodes = $doc -> findnodes ('/yandexsearch/response/results/grouping/group/doc/url');
        foreach ( @nodes ) 
        {
            # если URL начинается с имени хоста, выходим из цикла
            if ( $_ -> string_value =~ m/^http:\/\/(www\.)?$host/i )
            {
                $found = $pos + $page * 10;
                $exit = 1;
                last;
            }
        
            $pos++;
        }
    
        $page++;
    }
  
    else
    {
        print "внутренняя ошибка сервера\n";
        $exit = 1;
    }

}

# если что-то найдено, то выводим результат 

if ($found)
{
    print "

сайт &laquo;$host&raquo; находится на месте № $found по запросу &laquo;$query&raquo;</p>

Попробуйте узнать позицию другого сайта!</p>
\n";
}
elsif (defined $host and $host)
{
    print "

сайт &laquo;$host&raquo; находится далее, чем на ". $pages*10 ." месте в выдаче &laquo;Яндекса&raquo; по запросу &laquo;$query&raquo;</p>

Попробуйте узнать позицию другого сайта!</p>
\n";
}
else
{
    print "

Узнайте позицию сайта в выдаче &laquo;Яндекса&raquo; по запросу!</p>";
}

print "</td></tr></table>";

# выводим форму с запросом.
print <<FORM;
<form method='POST' accept-charset='utf-8'>
    <table width='100%'>
        <tr>
            <td width="16\%"/>
            <td width="75\%">
                <table>
                    <tr>
                        <td><label for='query'>Запрос:</label></td>
                        <td><input type='text' name='query' id='query' value='$query_esc'/>  Пример: волшебные травы</td>
                    </tr>
                    <tr>
                        <td><label for='host'>?Имя сервера:</label></td>
                        <td><input type='text' name='host' id='query' value='$host_esc'/>  Пример: narcom.ru</td>
                    </tr>
                    <tr>
                        <td/>
                        <td><input type="submit" value="??скать!"/></td>
                    </tr>
                </table>
            </td>
            <td width="9\%">
        </tr>
    </table>
</form>
FORM

# дописываем html
print &footer;
Ответить с цитированием
  (#2 (permalink)) Старый
ivanyan ivanyan вне форума
Member
 
Сообщений: 305
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 06.06.2002
По умолчанию 07.02.2008, 14:27

Видимо не хватает ему самого парсера XML, но раз выдает ошибку, занчит копирование в папку XML прошло нормально и модуль программой виден

выход один, попробовать найти полную библиотеку и установить через специальную утилиту для установки модулей (есть в комплекте с перлом), либо проверить совместимость версий ну и не совсем понятно насчет параметра -Ilib

выдержка из мана
-Idirectory specify @INC/#include directory (several -I's allowed)
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
библиотека с поддержкой чистого Xpath Nekkyi DHTML, JavaScript, VBScript 0 19.01.2012 11:06
модуль! кто справится? imported_kristya Pascal 0 28.10.2011 15:48
Модуль лупи Pascal 1 09.09.2011 04:44
модуль памяти lbj Любые вопросы от новичков 2 18.10.2010 22:19
Модуль imported_Yulka Pascal 0 18.04.2010 18:58
Можно ли добавить еще один модуль ОЗУ к моей конфигурации? Cania Любые вопросы от новичков 1 23.09.2008 17:33
Модуль под php-fusion helper Задания за деньги 0 25.07.2006 18:01
libxml+Xpath что это такое Anton_Gusev С/С++ 0 13.04.2005 21:42
ActivePerl & PerlASPX как с ними работать azzm Perl 4 23.06.2004 15:10
Как правильно установить ActivePerl Anonymous Perl 3 14.08.2002 22:02



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