Stack overflow while performing nested substitutions

[sivaramanm]

Hello Monks,

When compile my perl program, I got an error as 'Memory Stack overflow'. Pls help me to correct this problem.

Please find my codings

My perl code:--

$file=~s#<tbody>((?:[^<]+|<(?!/?tbody>))+</tbody>(?:\s*<tbody>(?:[^<]+
+|<(?!/?tbody>))+</tbody>)*)#"<tbody>\n".${TableBody(\$1)}."\n</tbody>
+"#gies;

sub TableBody
{
    my ($line) = @_;
    $temp = "$$line";
    $temp =~s#</tbody>$##;
    $temp =~s#\t#</para></entry><entry><para>#g;
    $temp ="<row><entry><para>$temp</para></entry></row>";

    $temp =~s#<tbody>#<row><entry><para>#g;
    $temp =~s#</tbody>#</para></entry></row>#g;
    return \$temp;
}

My input is:--

<tbody>one    two    three</tbody>
<tbody>one    two    three</tbody>
<tbody>one    two    three</tbody>
<tbody>one    two    three</tbody>

My output is:--

<tbody>
<row><entry><para>one</para></entry><entry><para>two</para></entry><en
+try><para>three</para></entry></row>
<row><entry><para>one</para></entry><entry><para>two</para></entry><en
+try><para>three</para></entry></row>
<row><entry><para>one</para></entry><entry><para>two</para></entry><en
+try><para>three</para></entry></row>
<row><entry><para>one</para></entry><entry><para>two</para></entry><en
+try><para>three</para></entry></row>
</tbody>

It works well. But if the number of rows in the input exceeds 25, the "Memory stack overflow" error comes.

Pls help me, how to increase stack memory.

thanks

[jdporter]

And lastly, using regexes — or, indeed, any form of direct textual munging — is considered very bad style, when dealing with XML (or XHTML). It looks to me like you're trying to perform a simple transformation which would be easily within the power of XSLT... but if you really want to code it from scratch, at least let one of the fine XML parsers do the hard part for you.

[gopalr]

Hello

Without seeing coding how can we solve the problem?

[Cody Pendant]

Quite. Plus, what do you mean by "compile" exactly?

[reasonablekeith]

Firstly, running the following works fine on my machine (on a recent active state perl install), and produces output as you describe.

my $xml = "<tbody>one\ttwo\tthree</tbody>\n"x40;

$xml =~ s#<tbody>((?:[^<]+|<(?!/?tbody>))+</tbody>(?:\s*<tbody>(?:[^<]
++|<(?!/?tbody>))+</tbody>)*)#"<tbody>\n".${TableBody(\$1)}."\n</tbody
+>"#gies;
print $xml;

sub TableBody
{
    my ($line) = @_;
    $temp = "$$line";
    $temp =~s#</tbody>$##;
    $temp =~s#\t#</para></entry><entry><para>#g;
    $temp ="<row><entry><para>$temp</para></entry></row>";

    $temp =~s#<tbody>#<row><entry><para>#g;
    $temp =~s#</tbody>#</para></entry></row>#g;
    return \$temp;
}

Secondly, If you're going to give an example, it's nice to give a working example so that people can easily reproduce your error.

Thirdly, your code seems a bit obfusacted. Without knowing what you're trying to do it's hard to give advice, but I'd suggest a starting point as something like the following, which produces the same results as your script.

my $xml = "<tbody>one\ttwo\tthree</tbody>\n"x5;
$xml =~ s#<tbody>(.*?)</tbody>#${TableBody(\$1)}#gies;
print $xml;

sub TableBody
{
    my $line_ref = shift;
    my $return_xml;

    foreach my $thing (split(/\t/, $$line_ref)) {
        $return_xml .= "<entry><para>$thing</para></entry>";
    }
    return \"<row>$return_xml</row>";
}