Re: Combinations of lists, etc

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}

Comment on Re: Combinations of lists, etc Download Code

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]
Re^3: Combinations of lists, etc by LanX (Saint) on Oct 05, 2019 at 01:06 UTC
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]
Re^4: Combinations of lists, etc by tel2 (Pilgrim) on Oct 05, 2019 at 01:58 UTC
Sorry LanX - I got mixed up. I've updated my last post now with your code.	[reply]
Re^5: Combinations of lists, etc by LanX (Saint) on Oct 05, 2019 at 13:57 UTC
Re^6: Combinations of lists, etc by tel2 (Pilgrim) on Oct 07, 2019 at 06:59 UTC
Some notes below your chosen depth have not been shown here


"be consistent"
	PerlMonks