zpracovani formulare

[Pavel Kunc]

Dobry den,

potreboval bych zpracovat formular, kde je multiple select. Ale vubec nevim
jak na to mam pole formulare zretezene do tvaru

autor=shakespearemolieregoethe

ale ja bych je potreboval mit v hash ve tvaru

author=shakespeare
author=moliere
author=goethe

k precteni form. pouzivam

sub parse_form_data
{
 local(*DATA) = @_;
 local($query_string, @key_value_pairs, $key_value, $key, $value);

 read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
 @key_value_pairs = split(/&/, $query_string);

 foreach $key_value (@key_value_pairs)
  {
   ($key, $value) = split(/=/, $key_value);

   $value =~ tr/+/ /;
   $key =~ tr/+/ /;

   $key =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
   $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;

   if (defined($DATA{$key}))
    {
     $DATA{$key} = join (" ", $DATA{$key}, $value);
    }
   else
    {
     $DATA{$key} = $value;
    }

  }
}

Mockrat dekuji za radu


Pavel Kunc