in reply to Combinations of lists to a hash

TIMTOWTDI

  DB<41> x ($pre, $ranges) = split /=/, "Prefix1=A:b,c:1,2", 2
0  'Prefix1'
1  'A:b,c:1,2'
  DB<42> $del="="

  DB<43> x @keys =$pre
0  'Prefix1'
  DB<44> for $mult (split /:/, $ranges ) { @keys = map { $a=$_; map { 
+"$a$del$_" } split /,/, $mult } @keys; $del = ':' }

  DB<45> x @keys
0  'Prefix1=A:b:1'
1  'Prefix1=A:b:2'
2  'Prefix1=A:c:1'
3  'Prefix1=A:c:2'
  DB<46> @hash{@keys} = ('value2') x @keys

  DB<47> x \%hash
0  HASH(0x3598330)
   'Prefix1=A:b:1' => 'value2'
   'Prefix1=A:b:2' => 'value2'
   'Prefix1=A:c:1' => 'value2'
   'Prefix1=A:c:2' => 'value2'
  DB<48>

[download]

HTH! :)

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

Replies are listed 'Best First'.
Re^2: Combinations of lists, etc
by tel2 (Pilgrim) on Oct 05, 2019 at 00:59 UTC
    Nice work, LanX, thank you!
    I tried that in a script, getting it to read all the lines of data, and it works perfectly!
    Here it is: 
    #!/usr/bin/perl

while (<DATA>)
{
        #($pre, $ranges) = split /=/, $_, 2;
        ($pre, $ranges, $value) = $_ =~ /^(.+?)=([^ ]+) (.+)$/;

        $del = "=";
        @keys = $pre;
        for $mult (split /:/, $ranges)
        {
                @keys = map { $a=$_; map { "$a$del$_" } split /,/, $mu
+lt } @keys;
                $del = ':';
        }
        #@hash{@keys} = ('value2') x @keys;
        @hash{@keys} = ($value) x @keys;
}

use Data::Dump 'dd'; dd \%hash;

__DATA__
Prefix1=A,B:c,d value1
Prefix2=A:b,c:1,2 value2
Prefix3=A:*:1,2 value3

    [download]
    And the output: 
    {
  "Prefix1=A:c"   => "value1",
  "Prefix1=A:d"   => "value1",
  "Prefix1=B:c"   => "value1",
  "Prefix1=B:d"   => "value1",
  "Prefix2=A:b:1" => "value2",
  "Prefix2=A:b:2" => "value2",
  "Prefix2=A:c:1" => "value2",
  "Prefix2=A:c:2" => "value2",
  "Prefix3=A:*:1" => "value3",
  "Prefix3=A:*:2" => "value3",
}

    [download]
    If you have any suggested changes to my changes, I'm all ears.
    I've also added 4 updates to my original post in case you're interested.  No worries if not. You can ignore update #1.
[reply]
[d/l]
[select]
      That's not my code. You replied to the wrong person/post (and no glob in this one).

      No idea. Sorry.

      Cheers Rolf
      (addicted to the Perl Programming Language :)
      Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

[reply]
        Sorry LanX - I got mixed up.
        I've updated my last post now with your code.
[reply]

In Section Seekers of Perl Wisdom