|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Artem Chuprina 2:5020/400 08 Feb 2002 13:49:48 To : Alan Long Subject : Re: OO and CGI.pm -------------------------------------------------------------------------------- Здравствуй, Alan Long. AL> Вот такой вопрос возник, если я использую CGI.pm только в OO режиме, то AL> есть: AL> $q = CGI->new(); AL> и дальше все что нужно вывожу через print $q->.... то как мне правильнее AL> сделать use CGI, что-бы он ничего м мой namespace не присваивал ? use CGI (); как и для любого другого модуля. AL> И потом, есть у меня данные вида: AL> @array = ( AL> { -no => 1, -name => 'Hазвание 1', -dsc => 'описание 1' }, AL> { -no => 2. -name => 'Hазвание 2', -dsc => 'описание 2' }, AL> .... AL> { -no => 33, -name => 'название 33', -dsc => 'описание 33' } AL> ); AL> Хотелось-бы с помощью CGI.pm сделать таблицу вида: AL> <table> AL> <thead> AL> <tr><th>No.</th><th>Hазвание</th><th>Описание</th></tr> AL> </thead> AL> <tbody> AL> <tr bgcolor="#ffffff"><td>1</td><td>Hазвание 1</td><td>описание 1</td></tr> AL> <tr bgcolor="#eeeeee"><td>2</td><td>Hазвание 2</td><td>описание 2</td></tr> AL> ... AL> <tr bgcolor="#ffffff"><td>33</td><td>название 33</td><td>описание AL> 33</td></tr> </tbody> </table> AL> То есть что-бы все четные строки имели один цвет, а не-четные другой. В AL> принципе у меня это уже сделанно, но как-то не совсем красиво, хотелось-бы AL> покороче и по-проще... for (my $i=0, $i<@array; $i++) { print Tr({-bgcolor=>($i%2?"#ffffff":"#eeeeee")}, map(td($array[$i]{"-$_"}),qw(no name dsc)))."\n"; } -- Artem Chuprina Communiware.net RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru --- ifmail v.2.15dev5 * Origin: Talk.Mail.Ru (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/635922fb9a57.html, оценка из 5, голосов 10
|