Help for this page

Select Code to Download


  1. or download this
      my $hash = {};
  for ($cgi->param())
  {
    push @{$hash->{$_}}, $cgi->param($_);
  }
  2. or download this
      my $hash = {};
  for ($cgi->param())
...
    push @{$hash->{list}->{$_}}, $cgi->param($_);
    $hash->{scalar}->{$_} = $hash->{list}->{$_}->[0];
  }