Perl практика

         

Другие вызывающие последовательности.


Прокручиваемый список:

print scrolling_list( -NAME =&gt "flavors", -VALUES =&gt [qw(mint chocolate cherry vanilla peach)], -LABELS =&gt { mint =&gt "Mightly Mint", chocolate =&gt "Cherished Chocolate", cherry =&gt "Cherry Cherry", vanilla =&gt "Very Vanilla", peach =&gt "Perfectly Peach", }, -SIZE =&gt 3, -MULTIPLE =&gt 1 # 1 - true, 0 - false );

-NAME - имя компонента формы,

-LABELS - ссылка на анонимный хеш,

-VALUES - ссылка на анонимный массивa ключей хеша,

-SIZE - сколько элементов списка видно одновременно,

-MULTIPLE - если 1 - можно выбирать более одного элемента списка.

Если -MULTIPLE в положении истина, можно делать:

@choices = param("flavors");

Еще один способ:

%flavors = ( "mint", "Mightly Mint", "chocolate", "Cherished Chocolate", "cherry", "Cherry Cherry", "vanilla", "Very Vanilla", "peach", "Perfectly Peach", ); print scrolling_list( -NAME =&gt "flavors", -LABELS =&gt \%flavors, -VALUES =&gt [keys %flavors], -SIZE =&gt 3, -MULTIPLE =&gt 1 # 1 - true, 0 - false );



Содержание раздела