[tpm] I wish I was better at regex's

[Rob Janes]

there's

key="this=that"  ; an = in the value

and

key="value" ; a " in the comment

On Wed, Mar 9, 2011 at 2:16 PM, Shaun Fryer <sfryer at sourcery.ca> wrote:
> my $strip = qr{;[^\;]+$};
> while (<DATA>) {
>    chomp;
>    my ($key, $val) = split /=/;
>    my ($quote) = ($val =~ m{^(["'])}g);
>    if ($quote) {
>        ($val) = ($val =~ m{^($quote[^\b]+($quote))}g);
>    }
>    else {
>        $val =~ s/$strip//;
>    }
>    print $key, '=', $val, "\n";
> }
>
> __DATA__
> key="value"
> key=value
> key="vlue;"
> key="value1;value2"
> key="value1;value2"     ; comment
> key='value1;value2'     ; comment
> "key"="value1"
> "key"="value1"          ; comment
> "key"="value1;value2"
> "key"="value1;value2"   ; comment
> "key"="val\"ue1;value2"
> "key"="val\"ue1;value2" ; comment
> "key"='val\'ue1;value2' ; comment
> "key"='val\"ue1;value2' ; comment
> --
> Shaun Fryer
> cell: 1-647-709-6509
> voip: 1-647-723-2729
>
>
>
>
> On Wed, Mar 9, 2011 at 2:12 PM,  <daniel at benoy.name> wrote:
>> Doesn't work.  Output:
>>
>> ----
>> key="value"
>> key=value
>> key="value1
>> key="value1;value2"
>> key='value1;value2'
>> "key"="value1"
>> "key"="value1"
>> "key"="value1
>> "key"="value1;value2"
>> "key"="val\"ue1
>> "key"="val\"ue1;value2"
>> "key"='val\'ue1;value2'
>> "key"='val\"ue1;value2'
>> ----
>>
>> Look at line 3.
>>
>> Also it wouldn't catch a trailing semicolon with nothing after it.
>>
>> Here's a quick and dirty improvement, but it will still have problems:
>>
>> my $strip = qr{;[^\;\"\']*$};
>> while (<DATA>) {
>>    chomp;
>>    $_ =~ s/$strip//;
>>    print $_, "\n";
>> }
>>
>>
>> Here's the way I would do it:
>>
>> ----
>> while (<DATA>) {
>>    chomp;
>>
>>    my $stripped;
>>    my $quotechar = "";
>>    foreach my $char (split(//, $_)) {
>>        if ($quotechar) { # We're currently quoted
>>            if ($char eq $quotechar) { # end of quote
>>                $quotechar = "";
>>            }
>>        } else { # We're not currently quoted
>>            if ($char eq ';') { # The comment has begun!
>>                last();
>>            } elsif ($char eq '"' || $char eq "'") { # start of quote
>>                $quotechar = $char;
>>            }
>>        }
>>        $stripped .= $char;
>>    }
>>    print "$stripped\n";
>> }
>>
>> __DATA__
>> key="value"
>> key=value
>> key="value1;value2"
>> key="value1;value2"     ; comment
>> key='value1;value2'     ; comment
>> "key"="value1"
>> "key"="value1"          ; comment
>> "key"="value1;value2"
>> "key"="value1;value2"   ; comment
>> "key"="val\"ue1;value2"
>> "key"="val\"ue1;value2" ; comment
>> "key"='val\'ue1;value2' ; comment
>> "key"='val\"ue1;value2' ; comment
>> ----
>>
>> On Wed, 9 Mar 2011 13:48:39 -0500, Shaun Fryer wrote:
>>>
>>> my $strip = qr{;[^\;]+$};
>>> while (<DATA>) {
>>>    chomp;
>>>    $_ =~ s/$strip//;
>>>    print $_, "\n";
>>> }
>>>
>>> __DATA__
>>> key="value"
>>> key=value
>>> key="value1;value2"
>>> key="value1;value2"     ; comment
>>> key='value1;value2'     ; comment
>>> "key"="value1"
>>> "key"="value1"          ; comment
>>> "key"="value1;value2"
>>> "key"="value1;value2"   ; comment
>>> "key"="val\"ue1;value2"
>>> "key"="val\"ue1;value2" ; comment
>>> "key"='val\'ue1;value2' ; comment
>>> "key"='val\"ue1;value2' ; comment
>>>
>>> --
>>> Shaun Fryer
>>> cell: 1-647-709-6509
>>> voip: 1-647-723-2729
>>>
>>>
>>>
>>>
>>> On Wed, Mar 9, 2011 at 1:39 PM, Fulko Hew <fulko.hew at gmail.com> wrote:
>>>>
>>>> On Wed, Mar 9, 2011 at 1:14 PM, Rob Janes <janes.rob at gmail.com> wrote:
>>>>>
>>>>> here's one that dequotes the key and value ...
>>>>
>>>> Thanks for the ideas, but..
>>>> the issue isn't with extracting the keys and the values (and dequoting
>>>> them),
>>>> the task was only to strip trailing comments (while obeying quoted
>>>> strings)
>>>>
>>>>
>>>>
>>>> _______________________________________________
>>>> toronto-pm mailing list
>>>> toronto-pm at pm.org
>>>> http://mail.pm.org/mailman/listinfo/toronto-pm
>>>>
>>>>
>>> _______________________________________________
>>> toronto-pm mailing list
>>> toronto-pm at pm.org
>>> http://mail.pm.org/mailman/listinfo/toronto-pm
>>
>> _______________________________________________
>> toronto-pm mailing list
>> toronto-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/toronto-pm
>>
> _______________________________________________
> toronto-pm mailing list
> toronto-pm at pm.org
> http://mail.pm.org/mailman/listinfo/toronto-pm
>