Does your format ressemble XML enough to use an XML parser? That would be best. The remainder of the post assumes you can't use an XML parser.

If I follow correctly, you're using the lookahead so that the < of <div> doesn't get absorbed by the regexp. You can avoid that by breaking codetext into smaller tokens instead of treating it as a single token.

    entry        : chunk(s?) EOF { join('', @{$item[1]}) }

    chunk        : text { $item[1] }
                 | code { $item[1] }

    text         : TEXT                      { join('', '<div class="t
+ext">', $item[1],                  '</div>') }
    code         : CODE_OP CODE_TEXT CODE_CL { join('', '<div class="c
+ode">', CGI::escapeHTML($item[2]), '</div>') }

    # Tokens
    EOF          : m{^\Z}
    TEXT         : m{[\w ]+}                             { $item[1] }
    CODE_OP      : m{<xxx>}                              { $item[1] }
    CODE_CL      : m{</xxx>}                             { $item[1] }
    CODE_CHARS   : m{[\w $]+}                            { $item[1] }
    CODE_SPECIAL : m{<\w+>} { $item[1] ne '<xxx>' }      { $item[1] }

    # Pseudo-token
    CODE_TEXT    : CODE_TEXT_(s?)                        { join('', @{
+$item[1]}) }
    CODE_TEXT_   : CODE_CHARS                            { $item[1] }
                 | CODE_SPECIAL                          { $item[1] }

[download]

UNTESTED.

In reply to Re: Parse::RecDescent with lookahead or without ? by ikegami
in thread Parse::RecDescent with lookahead or without ? by szabgab

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.