Help for this page

Select Code to Download


  1. or download this
    foreach (split /,\s*/, param('hashdata')) {
  my ($k, $v) = split(/=>/);
  $hash{$k} = $v;
}
  2. or download this
    %hash = map { split /=>/ } 
        split /,\s*/, param('hashdata');