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

[daniel at benoy.name]

 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