Gecko [ www.foryou-vip.com ]

Linux vps-61133.fhnet.fr 4.9.0-19-amd64 #1 SMP Debian 4.9.320-2 (2022-06-30) x86_64
Apache/2.4.25 (Debian)
Server IP : 93.113.207.21 & Your IP : 216.73.216.119
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
README	1.06 KB	-rw-r--r--	2016-11-21 19:31
hanchors	1.14 KB	-rwxr-xr-x	2016-11-21 19:31
hdump	683 B	-rwxr-xr-x	2016-11-21 19:31
hform	1.87 KB	-rwxr-xr-x	2016-11-21 19:31
hlc	710 B	-rwxr-xr-x	2016-11-21 19:31
hrefsub	2.72 KB	-rwxr-xr-x	2013-10-21 07:44
hstrip	1.74 KB	-rwxr-xr-x	2016-11-21 19:31
htext	575 B	-rwxr-xr-x	2016-11-21 19:31
htextsub	955 B	-rwxr-xr-x	2016-11-21 19:31
htitle	434 B	-rwxr-xr-x	2013-10-21 07:44

Rename

#!/usr/bin/perl -w

# This program will print out all <a href=".."> links in a
# document together with the text that goes with it.
#
# See also HTML::LinkExtor

use HTML::Parser;
use Encode;

my $p = HTML::Parser->new(api_version => 3,
     start_h => [\&a_start_handler, "self,tagname,attr"],
     report_tags => [qw(a img)],
    );
$p->parse_file(shift || die) || die $!;

sub a_start_handler
{
    my($self, $tag, $attr) = @_;
    return unless $tag eq "a";
    return unless exists $attr->{href};
    print "A $attr->{href}\n";

$self->handler(text  => [], '@{dtext}' );
    $self->handler(start => \&img_handler);
    $self->handler(end   => \&a_end_handler, "self,tagname");
}

sub img_handler
{
    my($self, $tag, $attr) = @_;
    return unless $tag eq "img";
    push(@{$self->handler("text")}, $attr->{alt} || "[IMG]");
}

sub a_end_handler
{
    my($self, $tag) = @_;
    my $text = encode('utf8',join("", @{$self->handler("text")}));
    $text =~ s/^\s+//;
    $text =~ s/\s+$//;
    $text =~ s/\s+/ /g;
    print "T $text\n";

$self->handler("text", undef);
    $self->handler("start", \&a_start_handler);
    $self->handler("end", undef);
}