マイブーム

おはよう
こんにちわ
こんばんわ

いつみてるかわからないから
あいさつぜんぶ


$ rm ./*
いろいろ消えますた…
大事なスクリプトが…

頑張って復旧中
sub getlink() {
my $url=shift;
my $content = get($url);
my $base=&getbase($url);
print "$base\n";
my $p = HTML::LinkExtor->new(\&cb,$base);
@tmp_urls="";
$p->parse($content);
my @urls=@tmp_urls;
return @tmp_urls;
}


sub cb{
my($tag, %links) = @_;
if ($tag eq "a") {
push(@tmp_urls, values %links);
}
}


sub getbase() {
my $url = shift;
my $base;
$url =~ /(.*)\/(.*)/;
$base = $1.'/';
return $base;
}

sub getfilename() {
my $path = shift;
my $dir;
my $file;
if ($path =~ /(.*)\/(.*)/) {
$dir = $1.'/';
$file = $2;
} else {
$dir = './';
$file = $path;
}
return $file;

}