John W. Krahn wrote:
$ perl -le'
use Data::Dumper;
my %args;
@{ $args{ owner } } = qw( hero wierd );
print Dumper \%args;
$args{ owner } = q/sachin/;
print Dumper \%args;
@{ $args{ owner } } = qw( hero wierd );
print Dumper \%args;
print Dumper [EMAIL PROTECTED];
Of course, if you `use strict;` this will fail. The preferred method is to
place it in a hash:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %args = ( owner => 'sachin' );
my %hash = ();
@{ $hash{$args{owner}} } = qw(hero wierd);
print "\%hash: ", Dumper \%hash;
__END__
--
Just my 0.00000002 million dollars worth,
Shawn
"For the things we have to learn before we can do them, we learn by doing them."
Aristotle
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
