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

[Shaun Fryer]

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
>