How do I convert an array to a hash in Perl?

I have an array and tried to convert the array contents to a hash with keys and values. Index 0 is a key, index 1 is a value, index 2 is a key, index 3 is a value, etc.

But it is not producing the expected result. The code is below:

open (FILE, "message.xml") || die "Cannot open\n";

$var = <FILE>;

while ($var ne "")
{
 chomp ($var);
 @temp = split (/[\s\t]\s*/,$var);
 push(@array,@temp);
 $var = <FILE>;
}

$i = 0;
$num = @array;
    while ($i < $num)
{
 if (($array[$i] =~ /^\w+/i) || ($array[$i] =~ /\d+/))
 {
#   print "Matched\n";
#   print "\t$array[$i]\n";
  push (@new, $array[$i]);
 }
 $i ++;
}
print "@new\n";


use Tie::IxHash;
tie %hash, "Tie::IxHash";

%hash = map {split ' ', $_, 2} @new;

while ((my $k, my $v) = each %hash)
{
 print "\t $k => $v\n";
}

The output produced is not correct:

name Protocol_discriminator attribute Mandatory type nibble value 7 min 0 max F name Security_header attribute Mandatory type nibble value 778 min 0X00 max 9940486857
         name => Security_header
         attribute => Mandatory
         type => nibble
         value => 778
         min => 0X00
         max => 9940486857

In the output you can see that the hash is formed only with one part, and another part of the array is not getting created in the hash.

Can anyone help?

Answers


Nothing more to it than:

%hash = @array;

On a related note, to convert all elements of @array into keys of %hash. Some people ending up here might really want this instead...

This allows use of exists function:

my %hash;
$hash{$_}++ for (@array);

Need Your Help

Windows command prompt log to a file

windows cmd

I'd like to easily save the log of the Windows command prompt into a file. Is there any alternative to select everything and right-click on copy?

Spinner Default Theme to EditText android

android styles android-edittext spinner android-theme

I have EditText and I want it to be shown in the same theme of Spinner , with background and arrow because I have made this EditText Clickable and it is open a custom popup