T
The Owner
Hi,
I'm looking for a better way to use the contents of an anonymous array.
This is what I've done so far:
#!/usr/bin/perl
#
use strict;
use Data:
umper;
my (%test,@numbers,$key,$value,$index);
@numbers = (1,2,3);
$test{"base_0"} = [ @numbers ];
print STDOUT ("test\{\"base_0\"\}= ".Dumper($test{"base_0"})."\n");
$test{"base_10"} = [ map ($_+10, @numbers)];
print STDOUT ("test\{\"base_10\"\}= ".Dumper($test{"base_10"})."\n");
foreach $key (sort keys (%test))
{
print STDOUT ("ref\(test\{$key\}\)= ".ref($test{$key})."\n");
$index = 0;
until (!$test{$key}[$index])
{
print STDOUT ("value\[$index\]= ".$test{$key}[$index]."\n");
$index ++;
}
}
It's kinda ugly to do it this way. Any suggestion(s)? Thanks.
I'm looking for a better way to use the contents of an anonymous array.
This is what I've done so far:
#!/usr/bin/perl
#
use strict;
use Data:
my (%test,@numbers,$key,$value,$index);
@numbers = (1,2,3);
$test{"base_0"} = [ @numbers ];
print STDOUT ("test\{\"base_0\"\}= ".Dumper($test{"base_0"})."\n");
$test{"base_10"} = [ map ($_+10, @numbers)];
print STDOUT ("test\{\"base_10\"\}= ".Dumper($test{"base_10"})."\n");
foreach $key (sort keys (%test))
{
print STDOUT ("ref\(test\{$key\}\)= ".ref($test{$key})."\n");
$index = 0;
until (!$test{$key}[$index])
{
print STDOUT ("value\[$index\]= ".$test{$key}[$index]."\n");
$index ++;
}
}
It's kinda ugly to do it this way. Any suggestion(s)? Thanks.