HTML::TokeParser and php code.

blue_cowdawg has asked for the wisdom of the Perl Monks concerning the following question:

Hi Folks,

I was messing about with HTML::TokeParser the other day with the idea of creating a sort of pretty printer when I discovered that it was choking on the example HTML file that I was feeding it. Further investigation revealed that the markup that it was choking on was the <?php .... ?> blocks.

Anybody else run into this and deal with it successfully?

Peter L. Berghold	Brewer of Belgian Ales
Peter@Berghold.Net	www.berghold.net
Unix Professional

Comment on HTML::TokeParser and php code.

Replies are listed 'Best First'.

Re: HTML::TokeParser and php code.
by PodMaster (Abbot) on Jul 11, 2003 at 18:49 UTC

use HTML::TokeParser;
use Data::Dumper;
my $p = HTML::TokeParser->new(
\"
<?php is=1 2 3 four 5 times the='something' ?>
hada
");

while($_=$p->get_token){
    print Dumper($_);
}
__END__
$VAR1 = [
          'T',
          '
',
          ''
        ];
$VAR1 = [
          'PI',
          'php is=1 2 3 four 5 times the=\'something\' ?',
          '<?php is=1 2 3 four 5 times the=\'something\' ?>'
        ];
$VAR1 = [
          'T',
          '
hada',
          ''
        ];
$VAR1 = [
          'T',
          '
',
          ''
        ];
[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

[reply]
[d/l]

Re: Re: HTML::TokeParser and php code.

by blue_cowdawg (Monsignor) on Jul 11, 2003 at 19:35 UTC

Yeah... I got that far as well. But the next token it parsed was the </html> token for me.

I'll clean the code up (if I can find where I put it, after all I was just messing about) a bit and post it.

Peter L. Berghold	Brewer of Belgian Ales
Peter@Berghold.Net	www.berghold.net
Unix Professional

[reply]