in reply to Recursive lists

Looks like a perfect job for Parse::RecDescent or its heir apparent, Perl6::Rules. Using today's technology, the PRD grammar would be something like: 
stuff: nl_list | un_list | tl_list | utl_list | items
nl_list: m{<nl>} stuff m{</nl>} { "<list type='numbered'>$item{stuff}<
+/list>" }
... ditto for the other three lists
items: item(s) { join "", @{$item[1]} }
item: /\w+/ { "<listitem>$item[1]</listitem>" }

[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Replies are listed 'Best First'.
Re: •Re: Recursive lists
by chip (Curate) on Mar 23, 2004 at 15:00 UTC
    I haven't seen hide nor heir of Perl6::Rules.

        -- Chip Salzenberg, Free-Floating Agent of Chaos

[reply]
[reply]
Re: •Re: Recursive lists
by murugu (Curate) on Mar 23, 2004 at 15:17 UTC

    Thank you very much for ur kind reply

    i am a beginer in perl. Frankly, I dont understand what u have written in the code here. Can u please explain me what u have written. If i do the coding without understanding what the coding is meant for, then i wont improve my perl knowledge.

    So please kindly help me to understand what the code actually meants

    Thanks in advance

    --Murugesan--

[reply]
      Parse::RecDescent is an example of a grammar-based parser. You will need to understand something about grammars before you can understand it. I would suggest going to CPAN (www.cpan.org) and reading the extensive documentation provided with Parser::RecDescent before going much further.

      ------
      We are the carpenters and bricklayers of the Information Age.

      Then there are Damian modules.... *sigh* ... that's not about being less-lazy -- that's about being on some really good drugs -- you know, there is no spoon. - flyingmoose

[reply]

      merlin has given you an example grammar, and specifically stated that he was doing so. To understand the code, you are going to need to study the code and Perl6::Rules, as he stated.

[reply]

In Section Seekers of Perl Wisdom