use Syntax::Construct qw{ %slice };
use Data::Dumper;

my @l = qw( the quick brown fox );
my %h = %l[0 .. $#l];
print Dumper \%h;

__END__

$VAR1 = {
          '2' => 'brown',
          '1' => 'quick',
          '3' => 'fox',
          '0' => 'the'
        };
[download]

use warnings;
use strict;

my @arr = 'a' .. 'e';
my %hash;
for my $i (0 .. $#arr) {
    $hash{$i} = $arr[$i];
}
use Data::Dumper; $Data::Dumper::Sortkeys=1; print Dumper(\%hash);

__END__

$VAR1 = {
          '0' => 'a',
          '1' => 'b',
          '2' => 'c',
          '3' => 'd',
          '4' => 'e'
        };
[download]

• I moved this from PMD to SoPW: Where should I post X?

How can I convert a list to a hash data structure?/i>

sub listToIndexedHashRef{ 
    my $n=0; 
    my %hash = map{ $n++, $_} @_; 
    return \%hash 
};;

my $hashRef = listToIndexedHash( qw[the quick brown fox ] );;

pp $hashRef;;
{ "0" => "the", 1 => "quick", 2 => "brown", 3 => "fox" }

sub listToIndexedList{ 
    my $n=0; 
    return map{ $n++, $_} @_; 
};;

my %hash = listToIndexedList( qw[the quick brown fox ] );;

pp \%hash;;
{ "0" => "the", 1 => "quick", 2 => "brown", 3 => "fox" }
[download]

Indeed I could use just the following line:


%hash = map { get_a_key_for($_) => $_ } @array;
[download]


but I want something like this:

%hash = (1 => value's list,
         2 => values's list,
         n => value's list)
[download]

How can I build that?

but I want something like this:

%hash = (1 => value's list,
          2 => values's list,
          n => value's list)
[download]

How can I build that?

Sorry, but I have no idea what you mean by that?

---

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

my @arr = 'a' .. 'e';

my %hash;

@hash{0 .. $#arr} = @arr;
[download]