]> git.nbdom.net Git - nb.git/commitdiff
html2txt
authorNicolas Boisselier <nicolas.boisselier@gmail.com>
Thu, 10 Nov 2016 09:50:12 +0000 (09:50 +0000)
committerNicolas Boisselier <nicolas.boisselier@gmail.com>
Thu, 10 Nov 2016 09:50:12 +0000 (09:50 +0000)
lib/perl/NB/Functions.pm

index 0ae50bc66b3a163f3f1585401b59ae8b0ff7282c..cd3a0a69b8a602ef7f49e9f17e9c92bd82ecfc9a 100644 (file)
@@ -549,14 +549,14 @@ my $v = shift @_;
                ( (<|&lt;)/?\w+(\s+\w+=['"]+[^'"]+['"]+)*/?(>|&gt;) )
                |( (<|&lt;)?\w+(\s+\w+=\S+)*/?(>|&gt;) )
 
-               #|( <\w[^>]+> )
-
                |( (<|&lt;)!\[CDATA\[ ) # cdata begin
                | ( \]\](>|&gt;) ) # cdata end
 
                |( (<|&lt;)/\w+\s*$ ) # incomplet html
                |( ^(<|&lt;)\w+ .* ) # incomplet html
     |(<\!DOCTYPE[^>]+>)
+    |([\w_-]+="[^"]+") # attrs
+               |( <\w[^>]+> ) # tags
        ,,gix;
 
        $v =~ s/[\f ]+/ /g;