"John W. Krahn" schreef:
> my %hash;
>
> @hash{ @array } = ();
Example:
$ perl -MData::Dumper -wle '
my @array = qw/x t 3 u 77 y r/;
my %hash;
@hash{ @array } = ();
print Dumper(\%hash);
'
$VAR1 = {
'y' => undef,
'u' => undef,
'r' => undef,
'77' => undef,
'3' => undef,
'x' => undef,
't' => undef
};
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
