jak provest modifikaci HTML dat

[hanc]

no to neni zas tak ono

resenim je opravdu HTML::Parser a tady je priklad:

use HTML::Parser 3.05;
my $p = HTML::Parser->new(unbroken_text => 1,
                          default_h => [ sub { print @_; }, "text" ],
                          text_h    => [ \&edit_print,      "text" ],
                         );

my $file = "$full_path"; # cesta j html fajlu
$p->parse_file($file) || die "Can't open file $file: $!\n";

sub edit_print { local $_ = shift; s/$show/\<a
class='hlight'\>$show\<\/a\>/g; print } # class CSSka ktery text obarvi

vysledek je tisknuty do stdout

hanc




"Tomas Znamenacek" <tomas.znamenacek na centrum.cz> píše v diskusním príspevku
news:20030216211140.GA1019 na centrum.cz...
> hanc wrote:
>
> > mate nekdo zkusenosti s modifikaci html dokumentu ? Potrebuju
> > v dokumentu napr. zamenit hesla "pokus" na "<b>pokus</b>, ale
> > samozrejme tak, aby to nezamenilo HTML tagy (tj. napr <table
> > class="pokus"...).
>
> Jen tak zkusmo z hlavy, nestacilo by s kazdym "<" prejit do stavu
> unsafe a s kazdym ">" do stavu safe, stejne tak s kazdym "&" a ";",
> pricemz nahradu provadet jen v safe stavu?
>
> T.
>
> --
> Does a one-legged duck swim in a circle?