2009-12-20T22:58:30 pktm

[...]

Code (perl): (dl )

1
2
3
4
5
6
7
8

my %dirlist = ();
[...]
my $i = 0;
for my $val (@ret) {
    $dirlist{$i} = $val;
    print $dirlist{$i};
    $i++;
}

[...]

my %dirlist = map { $_ => $ret[$_] } $[..$#ret;