Thread Quellcodeverarbeitung mit Perl (10 answers)
Opened by Haselnuss992 at 2018-06-28 16:31

GwenDragon
 2018-06-28 18:41
#188579 #188579
User since
2005-01-17
14510 Artikel
Admin1
[Homepage]
user image
So wie man es nicht machen sollte:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
use strict;
use warnings;
use 5.010;

my $line = do { local $/ = undef; <DATA>; };
my @tt_content = ($line =~ m|<\s*tt\s*>([^<]+)</\s*tt\s*>|gim);

say "Found: ";
say for @tt_content;

__DATA__
<Tt>NEVER USE REGEX AS HTML PARSER!</tT>

<
        tt         
                                                                        >"




Hia ha ho "</          tt


>

               <       TT           >a</ tt >


Ergibt:
Found:
NEVER USE REGEX AS HTML PARSER!
"




Hia ha ho "
a


sondern wie in http://htmlparsing.com/perl.html beschrieben, mit HTML::Parser..
Last edited: 2018-06-28 18:49:59 +0200 (CEST)
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View full thread Quellcodeverarbeitung mit Perl