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

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

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

Автор: stan777 14.2.2007, 11:26

Почему прога выходит раньше, чем печатает мне тип тега($ttype) и тег($tag), "Form" ?
Теперь работает спасибо

Автор: Shaggie 14.2.2007, 11:36

Цитата(stan777 @ 14.2.2007, 11:26

)

Код


if($tag="form" && $ttype eq "E" ){exit;}

Наверное, поэтому

Добавлено @ 11:38
И что изменилось? Второй код идентичен первому.

Добавлено @ 11:39
врубился...

Автор: stan777 14.2.2007, 11:45

Цитата(Shaggie @ 14.2.2007, 11:36)

Цитата(stan777 @ 14.2.2007, 11:26

)

Код


if($tag="form" && $ttype eq "E" ){exit;}

А почему когда я пытаюсь вставить внутрь цикла while(){

Код


if($tag eq "input"){
        print  "im here\n";
        print $attr->{'name'};
        }

}
perl пишет что я испотльзую не инициализированую величину $attr ?
Разве здесь я ее не инициализирую my($tag, $attr, $attrseq, $rawtxt) = @{ $token }; ?

Автор: stan777 14.2.2007, 12:01

Вот так мне удается получить первый <input >
Но появилась новая проблема он получает только первый <input >, а остальный нет.
а так как выглядит это так:
<Form >
         <input > # этот я получаю остальные нет, почему ведь my $token2 = $p->get_tag("input"); так как стоит my должна же обновлятся $token2 !
         <input >
         <input >
         <input >
</Form>

Автор: stan777 14.2.2007, 12:29

вот так