Help for this page

Select Code to Download


  1. or download this
    [ { '1' => { 'Author' => 'Mike', 'idAuthor' => '1' },
    '2' => { 'Author' => 'Cecil', 'idAuthor' => '2' } } ]
  2. or download this
    { '1' => 'Mike',
  '2' => 'Cecil' }
  3. or download this
    my $values_list = [ sort(keys(%$hash_ref)) ];
my $labels_href =
  { map {$_->{idAuthor} => $_->{Author}} values(%$hash_ref) };
print $cgi->popup_menu(-name=>'menu_name',
                  -values=>$values_list, -labels=>$labels_href);
  4. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/