From 58722a0a3ef32e5fefba77bf582214b54bbd1824 Mon Sep 17 00:00:00 2001 From: Nicolas Boisselier Date: Sat, 8 Jul 2023 00:24:30 +0200 Subject: [PATCH] html2txt not entoties for new line regexp --- lib/perl/NB/Functions.pm | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/lib/perl/NB/Functions.pm b/lib/perl/NB/Functions.pm index 30bb7393..7146358b 100644 --- a/lib/perl/NB/Functions.pm +++ b/lib/perl/NB/Functions.pm @@ -533,13 +533,25 @@ sub html2txt { my $v = shift @_; # New line + # NB 08.07.23 $v =~ s, + # NB 08.07.23 ( + # NB 08.07.23 (<|<)(tr|li|)(\s+[^>])*> + # NB 08.07.23 ) + # NB 08.07.23 | + # NB 08.07.23 ( + # NB 08.07.23 (<|<)(br|hr)(\s*/\s*)?> + # NB 08.07.23 ) + # NB 08.07.23 | + # NB 08.07.23 ( \\n ) + # NB 08.07.23 ,\n,gix; + $v =~ s, ( - (<|<)(tr|li|)(\s+[^>])*> + <(tr|li|)(\s+[^>])*> ) | ( - (<|<)(br|hr)(\s*/\s*)?> + <(br|hr)(\s*/\s*)?> ) | ( \\n ) -- 2.47.3