Re: How to split a non even number of string elements into a hash

[Athanasius]

Hello thanos1983,

How about this?

use strict;
use warnings;
use Data::Dumper;

my   $string   = "one 1 two 2 three 3 odd_element";
my   @elements = split / /, $string;
push @elements, undef if @elements % 2;
my   %hash     = @elements;

print Dumper \%hash;

Output:

22:41 >perl 1750_SoPW.pl
$VAR1 = {
          'three' => '3',
          'odd_element' => undef,
          'two' => '2',
          'one' => '1'
        };

22:42 >

Hope that helps,

[choroba]

Or even

    my @elements = split / /, $string;
    my %hash = (@elements, (undef) x (@elements % 2));

[thanos1983]

Hello Athanasius

That is exactly what I was not able to come up with. Sort simple easy to follow.

Thanks again for your time and effort.