[Zope-Perl] getting a list of form field names

[Maarten Slaets]

Hi all,

Using the REQUEST object in a PerlMethod I'm trying to get a list of the
form field names, because I don't know them. I have used the keys()
function but it seems to return a list in string format.

------------------------------------
arguments: REQUEST
body:

my $req = shift;
my $ret;
my $keys;

$keys = $req->keys();
$keys =~ s/^\[(.*?)\]$/$1/;
foreach (split(/,/, $keys)) {
  s/^\s?'(.*?)'\s?$/$1/;
  $ret .= "$_\n";
}

$ret;
------------------------------------

$keys initially looks like this: 
['field1', 'field2', ...]
so I did some splitting

Is there a way to do something like:
@formfields = $req->keys()
or even better:
%formdata = $req->keys()

thanks
Maarten.