Wie kann man zwei Variablen von einem Unterprogramm übernehmen??

[Joachim]

Hi

Wie kann man zwei Variablen von einem Unterprogramm übernehmen??

Das funktioniert nicht!

sub Datenaufbereitung
{
   local @formularfelder;
   local ($name, $daten, $input);

$input = $_[0];
   @formularfelder = split(/&/, $input);

foreach $feld (@formularfelder)
   {
     ($name, $daten) = split(/=/, $feld);
     $daten =~ s/+/ /go;
     $daten =~ s/%(..)/pack("C", hex($1))/eg;
     @d[$i] = $daten;
     @c[$i] = $name;
     $i = $i + 1;
   }

return (@d,@c);
}

($aufdaten,$b)=&Datenaufbereitung($daten); # 2 Variablen!

Danke