[room] Perl & parsers & вложенные одинак овые теги
Доброго времени суток!
Пробую из страницы вот такого типа: class=no_need>NOT NEEDEDNEED THIS вытащить текст. Должно
получится NOT NEEDEDNEED THIS . В любом случае получается NOT NEEDED
Где я не прав?
Искал "perl parse nested tags", но ничего полезного не нашел...
Скрипт 1:
-
#!/usr/bin/perl -w
use HTML::Parser ();
sub start_handler
{
my $tagname = shift; my $self = shift; my $att = shift;
if ($att->{'class'}){
if ($tagname eq "div" && $att->{'class'} eq "view_text") {
$self->handler(text => sub { print shift }, "dtext");
$self->handler(end =>
\&stop_handler,"tagname,self,attr");
}
}
}
sub stop_handler
{
my $tagname = shift;
my $self = shift;
my $att = shift;
if ($tagname eq "div"){
$self->eof;
}
}
my $p = HTML::Parser->new();
$p->handler( start => \&start_handler, "tagname,self,attr");
$p->parse_file(shift || die) || die $!;
print "\n";
-
Скрипт 2:
-
#!/usr/bin/perl -w
use strict;
use HTML::TokeParser;
my $p = HTML::TokeParser -> new(shift || die) || die $!;
while (my $token = $p -> get_tag('div')) {
my $class = $token -> [1]{class} || '';
if ($class eq 'view_text') {
my $text = $p -> get_trimmed_text("/div");
print $text;
}
}
print "\n";
-
Скрипт 3 (тут вроде что-то как надо (->dump), сам текст не выводится)
-
#!/usr/bin/perl -w
use HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new; # empty tree
my $test = HTML::TreeBuilder->new; # empty tree
$tree->parse_file(shift || die);
$test = $tree;
$test = $test->find_by_attribute('class','view_text');
$test->dump;
$test->as_HTML;
$test->as_text;
$test->as_XML;
$tree->dump;
$tree->as_HTML;
<>___
smoke-room mailing list
smoke-room@lists.altlinux.org
https://lists.altlinux.org/mailman/listinfo/smoke-room
[room] perl
Чем народ пользуется для анализа различных мест в работе перловых скриптов?
В частности интерисует анализ мест типа
use Net::SMTP;
...
$smtp = Net::SMTP->new('mail.host.ru', Debug =>1);
$smtp->auth('[EMAIL PROTECTED]', '***');
$smtp->mail('[EMAIL PROTECTED]');
$smtp->recipient ('[EMAIL PROTECTED]')
Вроде eval можно забзать... но чтение perldoc -f eval пока не
просветлило. Может кто поделится примером?
___
smoke-room mailing list
smoke-room@lists.altlinux.org
https://lists.altlinux.org/mailman/listinfo/smoke-room
Re: [room] perl
Напишите at@
On 8/4/06, Anton Gorlov <[EMAIL PROTECTED]> wrote:
> Хм.. почему может не рабоать такая констуркция
> #!/usr/bin/perl
> while (<`ls`%>) {
> print;
> };
>
> Иделогически вроде всё верно..под редхатом 7.3 точно работает.
> а под
> perl-base-5.8.4-alt2.M24.1
>
> [EMAIL PROTECTED] system]# ./4.pl
> [EMAIL PROTECTED] system]#
>
>
> --
>np: Darkseed - The Sealing Day
> ___
> smoke-room mailing list
> smoke-room@lists.altlinux.org
> https://lists.altlinux.org/mailman/listinfo/smoke-room
___
smoke-room mailing list
smoke-room@lists.altlinux.org
https://lists.altlinux.org/mailman/listinfo/smoke-room
[room] perl
Хм.. почему может не рабоать такая констуркция
#!/usr/bin/perl
while (<`ls`%>) {
print;
};
Иделогически вроде всё верно..под редхатом 7.3 точно работает.
а под
perl-base-5.8.4-alt2.M24.1
[EMAIL PROTECTED] system]# ./4.pl
[EMAIL PROTECTED] system]#
--
np: Darkseed - The Sealing Day
___
smoke-room mailing list
smoke-room@lists.altlinux.org
https://lists.altlinux.org/mailman/listinfo/smoke-room
Re: [room] perl [JT] Re: Пар очка вопросов
On Sun, Feb 05, 2006 at 03:52:09AM +0400, Aleksey Korotkov wrote: > MS> Две знакомых конторы с большими любителями перла позъезжали > MS> на Java, посмотрев на перспективы perl6. > Там что-то не так? Решили, что всё это грустно и то ли малоосмысленно, то ли туманно перспективно. Народ долго и скорее счастливо писал на perl5 (скорее около веба, но не только). > И стоило именно туда съезжать? Просто не в курсе. Явки, пароли? Не знаю, да и народ сомневался. Общий смысл был скорее манагерский -- "больно, дорого, но хоть предсказуемо" (и не надо много чего писать самим). Явки, если интересно с прикладной точки зрения -- пишите, сдам. -- WBR, Michael Shigorin <[EMAIL PROTECTED]> -- Linux.Kiev http://www.linux.kiev.ua/ ___ smoke-room mailing list smoke-room@lists.altlinux.org https://lists.altlinux.org/mailman/listinfo/smoke-room
Re: [room] perl [JT] Re: Парочка во просов
On Sat, 4 Feb 2006 18:46:14 +0200 Michael Shigorin wrote: MS> Две знакомых конторы с большими любителями перла позъезжали MS> на Java, посмотрев на перспективы perl6. Там что-то не так? И стоило именно туда съезжать? Просто не в курсе. Явки, пароли? MS> PS: просьба с обсуждениями языков и редакторов _сразу_ MS> ориентироваться на перебирание в [EMAIL PROTECTED] Ну тогда задам вопрос. -- С уважением, Алексей Коротков mailto:[EMAIL PROTECTED] ___ smoke-room mailing list smoke-room@lists.altlinux.org https://lists.altlinux.org/mailman/listinfo/smoke-room
[room] perl [JT] Re: Парочка вопросов
On Thu, Feb 02, 2006 at 02:25:53PM -, Aleksander N. Gorohovski wrote: > >>Да что Вы такое говорите? Лучше чем Perl вам уж точно не > >>найти. Очень советую. > >Не пугайте новичков, люди после таких советов считают Linux > >сложным :) А манагеры думают, стоило ли слушать совета. Две знакомых конторы с большими любителями перла позъезжали на Java, посмотрев на перспективы perl6. > Ну проще и компактнее чем Perl я уже давно не встречал. https://lists.altlinux.org/mailman/listinfo/ruby :-) PS: просьба с обсуждениями языков и редакторов _сразу_ ориентироваться на перебирание в [EMAIL PROTECTED] Можно даже без собственно перебирания. :-) -- WBR, Michael Shigorin <[EMAIL PROTECTED]> -- Linux.Kiev http://www.linux.kiev.ua/ ___ smoke-room mailing list smoke-room@lists.altlinux.org https://lists.altlinux.org/mailman/listinfo/smoke-room
