Hi ikegami,

Thanks for your example. I'm still trying to figure it all out. I'm running it as below, and it doesn't seem to quite do what I want. I only want the escape character to be treated specially if it's in !+; - i.e. a!!b should be a!!b, whereas a!!!;b should be a!;b.

Also, I seem to be getting an empty field at the end. One or more semicolons at the end seem to be parsed properly, though.

One test string returns a blank result. ?

sub dequote {
    my $x = $_[0];
    $x =~ s/!(.)/$1/sg;
    return $x;
}

while(<>) {
    chomp;
    my @fields = map dequote($_), /\G((?:[^!;]+|!.)*)(?:;|\z)/sg;
    print "$_ => " . join( '|', @fields ) . "\n";
#     print "$_ => @fields\n";
}

[download]

Sample results:

aval!!!!;bval => aval!!|bval|
aval!!!!!;bval => aval!!;bval|
a!!val!!!!!;bval! =>
!a!!!val!!!!!;bval!! => a!val!!;bval!|
a!val!;bva!l; => aval;bval|
a!!val!!;;bv!!al;; => a!val!||bv!al||

[download]

In reply to Re^3: split on delimiter unless escaped by yrp001
in thread split on delimiter unless escaped by yrp001

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.