Архив форумов ЦИТФорума

[The SP]

приветствую.
Требуется На Перле разобрать ХТМЛ-форму, те на выходе получить полный список полей формы и формат полей-те флажок, или текстовое поле. или выбор из списка.

[sh]

типа того вообщем

sub process_input {
my ($form_ref) = @_;
my ($form_data, @pairs);
my ($temp) = "";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $form_data, $ENV{'CONTENT_LENGTH'});
} else {
$form_data = $ENV{'QUERY_STRING'};
}
$form_data =~ s/%(..)/pack("c", hex($1))/ge;
$form_data =~ tr/+/ /;
$form_data =~ s/\n/\0/g;
@pairs=split(/&/, $form_data);
foreach $item(@pairs) {
($name, $value) = split(/=/, $item);
if (!defined($form_ref -> {$name})) {
$form_ref->{$name} = $value;
} else {
$form_ref->{$name} .= "\0$value";
}
}
foreach $item (sort keys %$form_ref) {
$temp.=$item."=".$form_ref->{$item}."&";
}
return($ temp);
}

вызов соответственно
process_input(\%FORM);

потом можно обращаться к элементам

if ($FORM{'some_field'} eq "lala") { ....

[SkaTLanDer]

а не проще-ли использовать стандартную функцию param()?