...err. I was too much self-confident about my code. The problem seems to be in validate() :) So, may I ask your fresh eyes to examine my code? :) 

sub validate
{
    my $text = shift;
    my $new_text = '';
    my %is_approved = ();
    my @approved_tags = (
        'a',
        'p', 'br',
        'b', 'i', 'strong',
        'tt', 'small', 'strike',
        's', 'u', 'sub', 'sup',
        'blockquote',
        'table', 'th', 'tr', 'td',
        'caption', 'thead', 'tfoot', 
        'tbody', 'colgroup',
        'dl', 'dt', 'dd', 
        'ul', 'li', 'ol',
    );    
    foreach( @approved_tags ) { $is_approved{ $_ } = 1 }

    my $validator = HTML::Parser->new(
        start_h => [sub 
        { 
            my $self = shift;
            my ($tagname, $attr, $origtext) = @_;
            
            $new_text .= $origtext if ($is_approved{ $tagname });
        }, "self, tagname, attr, text"],
        
        end_h => [sub 
        { 
            my $self = shift;
            my ($tagname) = @_;
            
            $new_text .= "</$tagname>" if ($is_approved{ $tagname }); 
+               
        }, "self, tagname"],

        text_h => [sub 
        { 
            my $self = shift;
            my ($origtext) = @_;
            
            $new_text .= $origtext;
        }, "self, text"]
    );
    
    $validator->parse( $text );
    return $new_text;
}

[download]

In reply to Re: (ichimunki) Re: Truncated data using MySQL and DBI by larsen
in thread Truncated data using MySQL and DBI by larsen

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.