Perl Problem mit hashes

[Florian Lohoff]

On Sun, Apr 02, 2000 at 07:24:24PM +0200, Alexander Reelsen wrote:
>     sub recurse_hash {
> 
>         my ($key, $value);
          my %lhash=\$_[0]
> 
>         while (($key,$value) = $_[0]) {
>         if (ref($key) eq "HASH") {
>             recurse_hash($data{$key});
             recurse_hash(\%{ $data{$key}});

>             } else {
>             print "$key=$value\n";
>             }
>         }
>     }
>     recurse_hash(%data);
     recurse_hash(\%data);

Es gibt aber afaik auch ne perlmanpage dazu - man perlref

Flo
-- 
Florian Lohoff		flo at rfc822.org		      	+49-5241-470566
"Technology is a constant battle between manufacturers producing bigger and
more idiot-proof systems and nature producing bigger and better idiots."


-
Hinweise zur Benutzung dieser (und anderer Mailing-Listen) bitte beachten:
--> http://lug-owl.de/mailinglist_hints.html <--