Help for this page

Select Code to Download


  1. or download this
    foreach $item(@pairs) {
              my($key,$content) =split (/=/, $item, 2);
    ...
              $content=~s/%(..)/pack("c",hex($1))/ge;
              my($fields{$key})=$content;
      }
    
  2. or download this
    my (%hash);
    foreach $item(@pairs) {
    ...
              $content=~s/%(..)/pack("c",hex($1))/ge;
              $fields{$key}=$content;
      }
    
  3. or download this
    <code>
    my (%hash);
    ...
              $content=~s/%(..)/pack("c",hex($1))/ge;
              my($fields{$key})=$content;
      }