VPF::HTML::TableExtract получение значений ячеек

shamber

Дата 11.6.2009, 21:53 (ссылка)

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

Загрузка ...

Эксперт

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

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

А вообще где в вашем скрипте use utf8; недавно обсуждали по поводу Encode utf и прочее поищите. Почитайте

Лучше использовать Encode::from_to("кодировка файла","utf",$var);
Или так

Это сообщение отредактировал(а) shamber - 11.6.2009, 22:08

mario315

Дата 12.6.2009, 14:36 (ссылка)

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

Загрузка ...

Новичок

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

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

shamber, спасибо, глянул поиск. Тем и вправду предостаточно.

mario315

Дата 12.6.2009, 17:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Проблема была в редакторе. Даже не знаю в какой кодировке он сохранял. Заюзал другой - стало все нормально.

Зюзе

Дата 16.6.2009, 13:12 (ссылка)

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

Загрузка ...

Новичок

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

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

mario315, получить значения ячеек можно так:
my $t = $te->first_table_found;
$t->cell(0,0);
$t->cell(0,1); и т.д...

mario315

Дата 19.6.2009, 17:35 (ссылка)

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

Загрузка ...

Новичок

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

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

Появилось два вопроса

ПЕРВЫЙ

Начинаю так

Код


$ts -> rows();

Что дальше делать не знаю. Если выводить на печать, ты выводит количество массивов, соответствующих количеству строк.
А как просто получить количество строк?

ВТОРОЙ

Если в ячейки таблицы содержится html-код, как его получить?

Попробовал сделать как http://search.cpan.org/~msisk/HTML-TableEx...TableExtract.pm, но из- за строки

Код


use HTML::TableExtract qr(tree);

вылетает ошибка

Код


Unknown mode '(?-xism:tree)'
 at tableextract.pl line 4
BEGIN failed--compilation aborted at tableextract.pl line 4.

как тут быть?

Это сообщение отредактировал(а) mario315 - 19.6.2009, 17:47

shamber

Дата 20.6.2009, 14:10 (ссылка)

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

Загрузка ...

Эксперт

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

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

количество строк

Код


my $count;
   $count = @$count = $ts->rows;

ginnie

Дата 22.6.2009, 13:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

Цитата(shamber @ 20.6.2009, 14:10

)

$count = @$count = $ts->rows;

Может лучше

Код


$count = () = $ts->rows;

хотя самый лучший (по читаемости) вариант

Код


my @rows = $ts->rows;
my $count = @rows;

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

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

shamber

Дата 22.6.2009, 14:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(ginnie @ 22.6.2009, 13:04

)

хотя самый лучший (по читаемости) вариант

согласен.

Cyr

Дата 3.11.2015, 13:41 (ссылка)

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

Загрузка ...

Новичок

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

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

удалено

Это сообщение отредактировал(а) Cyr - 3.11.2015, 14:49

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