Tags suchen und auswerten (Perl/CGI)

[thread]400[/thread]

Tags suchen und auswerten

Leser: 1

Gast Gast

2005-01-06 00:42

Hi!

wie kann ich mit Perl nach bestimmten HTMl Tags in einer Datei suchen z.B.:<script>text</script> und den Text der dazwischen steht auswerten??

thx

[E|B]

2005-01-06 00:48

User since
2003-08-08
2561 Artikel
HausmeisterIn

HiHo!

Code: (dl )

my $tag = "<b>Test</b>";
$tag =~ s/<b>(.*?)<\/b>/$1/;

print $tag;

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

esskar

2005-01-06 03:36

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

oder es gleich richtig machen und CPAN:

HTML::Parser benutzen!

renee

2005-01-06 11:31

User since
2003-08-04
14371 Artikel
ModeratorIn

Code mit

HTML::Parser:

Code: (dl )

#! /usr/bin/perl

use strict;
use warnings;
use HTML::Parser;

my $string = qq~.:<script>text</script> .:<script>text34</script> <div class="bbcode">sammler schrieb:</div>~;
my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,self");
$p->parse($string);

sub start_handler{
  return if(shift ne 'script');
  my $self = shift;
  my $text;
  $self->handler(text => sub{$text = shift;},"dtext");
  $self->handler(end  => sub{print $text,"\n\n" if(shift eq 'script')},"tagname");
}

\n\n

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/

View all threads created 2005-01-06 00:42.