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>
HTH! :)
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice
In reply to Re: Combinations of lists, etc
by LanX
in thread Combinations of lists to a hash
by tel2
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |