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

[daniel at benoy.name]

 I didn't notice that you wanted to handle escaped quotes as well, but 
 that method can probably be quickly adapted for that.  Good luck.

 On Wed, 09 Mar 2011 14:12:47 -0500, 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