Jeremiah Foster wrote:
>> my %versions;
>> map {
>> my $package = $_;
>> # autovivfy a hash with versions of packages
>> $versions{$package} = [ ] unless exists $versions{$package};
> push @{ $versions{$package} = $version
> } @packages
You don't need to store an anonymous array before a push
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
# Make Data::Dumper pretty
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent = 1;
# Set maximum depth for Data::Dumper, zero means unlimited
$Data::Dumper::Maxdepth = 0;
my %hash = ();
for my $key ( 'a' .. 'z' ){
for my $value ( 'a' .. $key ){
push @{ $hash{$key} }, $value;
}
}
print 'hash = ', Dumper \%hash;
__END__
--
Just my 0.00000002 million dollars worth,
Shawn
Programming is as much about organization and communication
as it is about coding.
I like Perl; it's the only language where you can bless your
thingy.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
