in reply to Re^2: Combinations of lists, etc
in thread Combinations of lists to a hash

Nice work, AnomalousMonk, thank you!
I tried that in a script, getting it to read all the lines of data, and it works perfectly!  See below.

I'm now trying to change it so it handles the 4 updates in my original post.  I see it already handles update #1 re the '*'. How does it do that, given that you're using glob?

Below is your code as a full script with my attempted changes to make it process all the data, and to handle updates #3 & #4 commented out because they don't work.  Any suggestions on how to get them working?  And how to best fit update #2 in to your code?

And how is '' => '}' replacing the line ending?  I know \z matches the end, but those empty 'quotes' puzzle me. 

#!/usr/bin/perl

use strict;
use warnings;

my %globize = ('=' => '={',  ':' => '}:{',  '' => '}');
#my %globize = ('?What here?' => '{',  ':' => '}:{', '' => '}');
my (@globs, %hash);
while (<DATA>)
{
        my ($globule, $value) = split / /;
        chomp $value;
        $globule =~ s{ ([=:] | \z) }{$globize{$1}}xmsg;
        #$globule =~ s{ (\A | : | \z) }{$globize{$1}}xmsg;
        print qq{'$globule'}."\n";
        @globs = glob $globule;
        $hash{$_} = $value for @globs;
}
use Data::Dump; dd \%hash;

__DATA__
Prefix1:A,B:c,d value1=10
Prefix2:A:b,c:1,2 value2=20
Prefix3:A:*:1,2 value3=30
Prefix4:A:*:1,2 value4a=10|value4b=20
Prefix5,Prefix6:A:*:1,7 value5=10

[download]

Replies are listed 'Best First'.
Re^4: Combinations of lists, etc
by AnomalousMonk (Archbishop) on Oct 07, 2019 at 00:15 UTC
    And how is '' => '}' replacing the line ending? I know \z matches the end, but those empty 'quotes' puzzle me.

    That's easy enough to explain. In essence, it's a bit of regex affectation. The idea was to stick a }-curly on the end of a string. That can be done well enough with a
        $string .= '}';
    statement, but I thought it would be neat to it with the same global substitution that was handling all the other transformations. The empty pattern matches the empty string, and the empty string is present n+1 times in a string of n length. 

    c:\@Work\Perl\monks\tel2>perl -wMstrict -le
"my $s = '123';
 $s =~ s{ }{X}xmsg;
 print qq{A: '$s'};
 ;;
 $s = '';
 $s =~ s{ }{X}xmsg;
 print qq{B: '$s'};
 ;;
 $s = '123';
 $s =~ s{ \z }{X}xmsg;
 print qq{C: '$s'};
"
A: 'X1X2X3X'
B: 'X'
C: '123X'

    [download]
    And there's always an empty string at the  \z (absolute end) of any string, even the empty string! (And the empty string is a perfectly good hash key.)

    As you have seen, this approach breaks down when you try to replace an empty string at different locations with different replacement strings: there can only be one ''-keyed value in a hash. To do what you want with a regex, you'd have to resort to some screaming hack like (untested) 

    my %globize = ('P' => '{P',  ':' => '}:{', '' => '}');
...
$globule =~ s{ (\A P | : | \z) }{$globize{$1}}xmsg;

    [download]
    (in the unlikely case your input string always starts with a fixed sequence like 'P'), but if you just want to add different stuff at the start and end of a string, it would be better IMHO to just do something like
        $globule = "{$globule}";
    instead (update: and forget about all the  \z alternation and  '' => '}' stuff).

    Give a man a fish:  <%-{-{-{-<

[reply]
[d/l]
[select]
      Thanks again for that, AnomalousMonk.
[reply]

In Section Seekers of Perl Wisdom