utf 8: lesen und schreiben von utf8-html-seiten - #53977 (Allgemeines zu Perl)

renee

2005-04-20 14:53

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn es wirklich nur darum geht, die Tags zu löschen, geht es noch einfacher:

Code: (dl )

#!/usr/bin/perl -w

# Extract all plain text from an HTML file

use strict;
use HTML::Parser 3.00 ();

my $html = qq~<html><body>dies ist <b> ein test</b>.<br /><center>Test</center></body></html>~;

sub text
{
   print shift;
}

HTML::Parser->new(api_version => 3, handlers    => [ text  => [\&text, "dtext"], ])->parse($html);

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/