D7net Mini Sh3LL v1
Current File : //libx32/../share/snapd/../locale/ia/../../doc/info/../libroken18-heimdal/../usbmuxd/../liberror-perl/../grub2-common/../libjpeg8/../php7.4-mysql/../gnupg/../python3-apt/../netplan.io/../wget/../libcurl3-gnutls/../libthai-data/../python3-six/../screen/../maria/../libxaw7/../libmnl0/../netplan/../gdisk/../systemd-sysv/../grep/../udisks2/../libacl1/../libxmlb1/../libperl5.30/../automake/../libmpfr6/../libssl1.1/../libmpdec2/../usb.ids/../../doc/tpm-udev/../php7.4-mbstring/../libsemanage1/../liblsan0/../libffi7/../accountsservice/../libkmod2/../finalrd/../telnet/../bsdmainutils/../at/../libbinutils/../php-gd/../libksba8/../lsof/../linux-modules-5.4.0-198-generic/../libnspr4/../intel-microcode/../libaprutil1-dev/../libmspack0/../libhtml-parser-perl/examples/htext |
#!/usr/bin/perl -w
# Extract all plain text from an HTML file
use strict;
use HTML::Parser 3.00 ();
use Encode;
my %inside;
sub tag
{
my($tag, $num) = @_;
$inside{$tag} += $num;
print " "; # not for all tags
}
sub text
{
return if $inside{script} || $inside{style};
print encode('utf8',$_[0]);
}
HTML::Parser->new(api_version => 3,
handlers => [start => [\&tag, "tagname, '+1'"],
end => [\&tag, "tagname, '-1'"],
text => [\&text, "dtext"],
],
marked_sections => 1,
)->parse_file(shift) || die "Can't open file: $!\n";;
AnonSec - 2021 | Recode By D7net