Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > спарсить ответ сервера

Автор: GR0Mi 10.4.2010, 16:56

нужно спарсить значение , вот кусок кода от куда нужно спарсить интересует чисто которое в ()

</div>
<h3>
<a href="http://сайт/user/267752/friends/">Друзья (92)</a>
</h3>

пробывал так

Код


=~ /Друзья <span>\((.*)\)<\/span>/;

ошибка

Use of uninitialized value in concatenation (.) or string at

и вот так

Код


<a\s+href="http:\/\/.+?\/friends\/">Друзья\s*\((\d+)\)<\/a>

ошибка

Unrecognized escape \s in character class passed through at
unrecognized character \xC4 in column 59 at

помогите решить проблемку

Автор: nIkTo 10.4.2010, 17:27

Код


#!/usr/bin/perl -w
use strict;

my $str = '</div>
<h3>
<a href="http://сайт/user/267752/friends/">Друзья (92)</a>
</h3>';

print $1 if ($str =~/">Друзья \((\d*)\)</)

Автор: GR0Mi 10.4.2010, 17:37

Цитата(nIkTo @ 10.4.2010, 17:27)

Код


#!/usr/bin/perl -w
use strict;

my $str = '</div>
<h3>
<a href="http://сайт/user/267752/friends/">Друзья (92)</a>
</h3>';

print $1 if ($str =~/">Друзья \((\d*)\)</)

не подходит строка http://сайт/user/267752 постоянно меянется нужно спарсить именно количество друзей
вот похожий код

Код


<div id="votesInfo">
<a id="votesIco" title="Твои голоса" href=сайт">
<span class="ico"></span><span id="votesInfoCount">0</span>
</a>
</div>

спарсил вот так

Код


my ($vote) = $resp =~ /<span id="votesInfoCount">(\d+)<\/span>/;

а вот спарсить друзей не получается

Автор: nIkTo 10.4.2010, 17:41

любая строка которая содержит :

Цитата

">Друзья (_число_)<

подойдёт под регулярное выражение :

Цитата

">Друзья $(\d*)$<

то есть подойдут строки :

Цитата

<a href="http://сайт/user/267752/friends/">Друзья (92)</a>
<a href="http://сайт/user/187476/friends/">Друзья (92)</a>
тут_что_угодно">Друзья (92)<и_тут_тоже

Автор: GR0Mi 10.4.2010, 17:52

Цитата(nIkTo @ 10.4.2010, 17:41)

любая строка которая содержит :

Цитата

">Друзья (_число_)<

подойдёт под регулярное выражение :

Цитата

">Друзья $(\d*)$<

то есть подойдут строки :

Цитата

ПЕрвый раз имею дело с регулярками. чтот не вьеду немножко. прочитал стьи всеранво не понятно.
вот сделал запрос

Код


my ($frend) = $resp =~ />Друзья \((\d*)\)<;

куча ошибок. также
unrecognized character \xC4 in column 59 at
кодировка страници windows-1251

Автор: White_Eagle 10.4.2010, 18:12

nIkTo дал вам правильную регулярку.

попробуйте так

Код


my ($frend) = $resp =~/">Друзья \((\d*)\)</;

забыли в конце "/"

Автор: GR0Mi 10.4.2010, 22:03

и снова ошибки...
запрос верен. теперь ошибка
use of uninitialized value $frend in concatenation <.> or string at lina 60
то есть в регулярку передается неинициализированное значение
вот 60 строка
print "[ + ] [vote=$vote];[Friends=$frend]\n";

сори если мои вопросы ламерские. раньше работал на дельфи сейчас нужно на perl

Автор: shamber 11.4.2010, 19:49

GR0Mi, вам сказали, что в ваших запросах проблемы с состалениями регулярок. почитайте про них чтоли.
Люди дают вам правильные примеры smile

вы же приводите только сообщения об ошибках не приводя свой код,

Цитата

вот 60 строка
print "[ + ] [vote=$vote];[Friends=$frend]\n";

кто ж его знает что у вас там в первых 59
телепат только вчера в отпуск отъехал smile

Автор: GR0Mi 20.4.2010, 16:50

зачем остальной код. если он полностью рабочий. а проблема только в регулярке
вот кусок кода.
остальное я думаю не нужно

Код


 my $resp = $ua->post("http://сайт/user/login/",
                            ["timestamp" => time,
                             "user_email" => $mail,
                             "user_password" => $pass,
                             "submitBtn" => "%C2%EE%E9%F2%E8",
                             "redirect"  => "%2F",
                             "submitted" => "1",])->as_string;
wf($file, $resp);

if ($resp =~ "domain=.сайт")
         {
         $resp = $ua->get('http://сайт/index.php')->as_string;
$resp =~ /<div id="moneyInfo">.*?<span><\/span>(\d+\.)<small>(\d+)<\/small>.*?<\/div>/smi;
my $money = $1 . $2;
my ($vote) = $resp =~ /<span id="votesInfoCount">(\d+)<\/span>/;
my ($frend) = $resp =~/">Друзья \((\d*)\)</;

wf($good_mails, "$mail;$pass        money=$money;vote=$vote\n");
            print "[ + ] $mail;$pass;[money=$money];[vote=$vote];[Friends=$frend]\n";
            
         }
        else
        {
            print "[ - ] $mail;$pass\n";
        }
      }
}

Автор: ming 24.4.2010, 21:23

а кто будет экранировать кавычки в регулярке?
my ($frend) = $resp =~/\">Друзья $(\d*)$</;

Автор: Pfailed 24.4.2010, 21:29

Цитата(ming @ 24.4.2010, 21:23

)

а кто будет экранировать кавычки в регулярке?

Зачем экранировать кавычки в регулярке?

Автор: GR0Mi 29.4.2010, 10:27

давно уже все решил. теперь столкнулся что в ругулярке знак $

<div>Общий заработок: <span>$5.03</span></div>

Код


$resp =~ /<div>Общий заработок: <span>\$(\d+\.)(\d+)<\/span><\/div>/smi;

        my ($money) = $1 . $2;

usr of ininitialized velue $1 и $2

Автор: shamber 29.4.2010, 11:12

GR0Mi, а просто . поставить? Вас ведь валюта не интересует

Автор: GR0Mi 29.4.2010, 11:30

в смысле? вместо $ точку поставить?

Автор: shamber 29.4.2010, 11:38

GR0Mi, да

Автор: GR0Mi 29.4.2010, 11:52

страница откуда парсим

<div>Общий заработок: <span>$5.03</span></div>
мой код

Код


 $resp =~ /<div>Общий заработок: <span>.(\d+.\d+)<\/span><\/div>/;

        my ($money) = $1 . $2;

ошибки
usr of ininitialized velue $1
usr of ininitialized velue $2

Автор: shamber 29.4.2010, 12:05

Регулярки обе правильные. проблемы в другом месте

Автор: GR0Mi 29.4.2010, 12:07

самому интересно
проверил вот тут . все нормально

http://codepad.org/NK3sZLWK

а в моем коде что то не хочит. проверил нужную страницу скрипт получает ето значение есть. но почему то не парсит его

Автор: GR0Mi 29.4.2010, 12:53

проблему решил. заключалась в том. что кодировка страници utf-8