VPF::Проблемы с HTML::TokeParser - Форум программистов

stan777

Дата 14.2.2007, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 145
Регистрация: 29.1.2007

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) stan777 - 14.2.2007, 12:37

Shaggie

Дата 14.2.2007, 11:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 570
Регистрация: 21.12.2006
Где: outer space

Репутация: нет
Всего: 72

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

)

Код


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

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

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

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

--------------------

Цитата(alina3000 @ 6.3.2014, 10:47

)

Сорри что не по теме

stan777

Дата 14.2.2007, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 145
Регистрация: 29.1.2007

Репутация: нет
Всего: нет

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 145
Регистрация: 29.1.2007

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) stan777 - 14.2.2007, 12:36

stan777

Дата 14.2.2007, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 145
Регистрация: 29.1.2007

Репутация: нет
Всего: нет

вот так

Это сообщение отредактировал(а) stan777 - 14.2.2007, 12:36

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »