Fellow Monks,

At present I am creating a web-based intranet post/reply system which will use an amended node syntax of the type showing by "displaytype=xml".
Below there is an example node and the method which is used for parsing these nodes.
As you can see whenever there is a "child" detected, a new instance of the sub parseNode is called and a template output will be returned. At the very end, all nodes (main node and children) are parsed "together" in the correct order and the HTML Output can be printed.
But now I am not sure if those new instances of parseNode() will be too slow (i.e. a post with 25-30 replies). I tried to return only the template object to save a bit of RAM but that doesn't seem to do the trick. By now I do not have the possibility to make an intensive test of my script but I hope it will be fast enough at least in the local area network.

Do you have any suggestions how to integrate the children-nodes more elegantly?

Thank you for your help an sorry about my bad English.

P.S.: I am using XML::Simple and HTML::Template. 
sub parseNode
{
    my $node_id = shift();
    my $node = XMLin( "$node_id.xml", searchpath => ['nodes'], forcear
+ray => ['field', 'child'] );
    
    my $template = HTML::Template->new( filename => "$node->{type}{id}
+.html" );

    $template->param(
        node_id => $node->{id},
        type => $node->{type}{content},
        type_id => $node->{type}{id},
        title => $node->{title},
        created => &parseTimeBySeconds($node->{created}),
        updated => &parseTimeBySeconds($node->{updated}),
        owner => $node->{owner}{content},
        owner_id => $node->{owner}{id}
        );
    
    foreach ( keys( %{$node->{data}{field}} ) )
    {
        $template->param( $_ => $node->{data}{field}{$_}{content} );
    }

    my $children = '';

    foreach ( keys( %{$node->{data}{child}} ) )
    {
        $children = $children . &parseNode($node->{data}{child}{$_}{co
+ntent});
    }

    $template->param( children => $children );
    return $template->output();
}

[download]
Here's the node: 
<?xml version="1.0" encoding="ISO-8859-1" ?>
<node id="432" title="Title of page" created="1001562046" updated="100
+2582217">
    <type id="1">Thread</type>
    <owner id="31337">BioHazard</owner>
    <data>
        <field name="doctext">This is test content</field>
        <child id="1">433</child>
        <child id="2">435</child>
    </data>
</node>

[download]

reading between the lines is my real pleasure

In reply to Node Parser too slow? by BioHazard

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.