Добрый день! Есть хэш-массивов из N(not const), необходимо на его основе сформировать html таблицу.print $q->table({-border=>undef},{-name=>'table1'},
caption('When Should You Eat Your Vegetables?'),
Tr({-align=>CENTER,-valign=>TOP},
td ($hash{'example'}[0]) <-- первый массивчик
td ($hash{'example'}[1]) <-- второй массивчик
..............................................
td ($hash{'example'}[N]) <-- N-ый массивчик
)
);Как это сделать? Или подскажите как добавить/удалить элемент из таблицы. И еще как удалить весь name
Для начала экземпляром какого класса является $q и вообще что за модуль для таблиц вы используете? Непонятно в виде чего вы хотите содержимое, скажем, $hash{'example'}[0] в _одном_ поле <td></td>
А экземпляром какого класса он может? По-моему только CGI (в данном контексте)
Вы таки знаете весь CPAN наизусть и твердо уверены, что других вариантов нет? :)
Согласен что скорее всего это CGI, а точнее что синтаксис похож на работу с таблицами в CGI. Судя по фразе 'When Should You Eat Your Vegetables?' аффтар просто выдрал кусок из доки по CGI, разумеется не потрудившись разобраться и исказив синтаксис. Учитывая этот кусок и предыдущие посты аффтора я не удивлюсь если $q на самом деле у него не принадлежит к CGI или вообще к какому либо классу.
>Вы таки знаете весь CPAN наизусть и твердо уверены, что других вариантов
>нет? :)
>Согласен что скорее всего это CGI, а точнее что синтаксис похож на
>работу с таблицами в CGI. Судя по фразе 'When Should You
>Eat Your Vegetables?' аффтар просто выдрал кусок из доки по CGI,
>разумеется не потрудившись разобраться и исказив синтаксис. Учитывая этот кусок и
>предыдущие посты аффтора я не удивлюсь если $q на самом деле
>у него не принадлежит к CGI или вообще к какому либо
>классу.Angra ничего умного от вас, к сожалению, я не услышал. Да это экзампл, а если вы такой большой знаток perl то брависсимо и к сожалению - могли б и сами найти где он приводится. А попросту писать ничего незначимые комментарии - отстутствие интеллекта.
Ну конечно с точки зрения МД задавание уточняющих вопросов это не умно. Вот если бы я был ясновидцем(дабы увидеть весь код МД) и телепатом(дабы понять чего именно МД хочет) и сразу дал бы верный ответ, то тогда, может быть, МД соизволил бы признать это умным, а то, глядишь, и присутствие интеллекта бы отметил. Зато теперь МД твердо уверен, что его оскорбили, унизили и вообще плюнули в душу. Теперь он будет носится с этой обидой по всем топикам как дурак с писанной торбой.P.S. Ни для одного веб-проекта мне не понадобился CGI.pm, для одних он слишком громоздок, для других примитивен.
>[оверквотинг удален]
>Вот если бы я был ясновидцем(дабы увидеть весь код МД) и
>телепатом(дабы понять чего именно МД хочет) и сразу дал бы верный
>ответ, то тогда, может быть, МД соизволил бы признать это умным,
>а то, глядишь, и присутствие интеллекта бы отметил. Зато теперь МД
>твердо уверен, что его оскорбили, унизили и вообще плюнули в душу.
>Теперь он будет носится с этой обидой по всем топикам как
>дурак с писанной торбой.
>
>P.S. Ни для одного веб-проекта мне не понадобился CGI.pm, для одних он
>слишком громоздок, для других примитивен.К сожалению,вы не единственный МК, который носится по топикам и вставляет ума всем подряд в виде разных умных сообщений. Если не хотите быть униженным, то не начинайте это делать с другими людьми.
Отвечаю сам себе@headings = ('1','2','3','4','5');
@rows = th(\@headings);for($n=0;$n<=$#{$hash{$_[0]}};$n++)
{
push(@rows,td({-size=>'5',-height=>'20',nowrap},$hash{$_[0]}[$n]));
}
print $q->table({-name=>'table2',-border=>1,-width=>'100',-height=>'30',-cellspacing=>'1',-cellpadding=>'1'},
caption(b('Information about selected device')),
Tr({-align=>CENTER,-valign=>TOP},\@rows)
);