";
print "数字画像の意味：
0->成功. 1->ロック中. 2->ＤＢ番号が指定されていない.3->ＵＲＬが取得できない. 4->ＵＲＬが例外にひっかかった. 5->一時ファイルが作成できない. 6->ＤＢファイルが開けない. 7->その番号のＤＢは存在しない.
\n";
}
##### DBの中身を表示
sub show_db{
unless(-f "$basedir/link-$dbno.dbf"){
print "ＤＢ番号 $dbno は登録されていない.";
return;
}
### ファイルを開く
unless(open(FILE, "$basedir/link-$dbno.dbf")){
print "ＤＢファイルが開けない（No.$dbno)";
return;
}
### ハッシュに収める
foreach( \n";
}
$idx = " \n";
for(sort sortbyhits keys %DB){
($_ =~ /%/) ? ($url = &decode($_)) : ($url = $_);
(!$search) || ($url =~ /$search/) || next;
$LT{$_} =~ s/(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/$1\/$2\/$3\ $4:$5:$6/;
print " \n";
for(sort sortbytime keys %DB){
($_ =~ /%/) ? ($url = &decode($_)) : ($url = $_);
(!$search) || ($url =~ /$search/) || next;
$LT{$_} =~ s/(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/$1\/$2\/$3\ $4:$5:$6/;
print "
[ヒット数] [最終アクセス時刻 年月日時分秒] ＵＲＬ
\n";
sub sortbyhits{ $DB{$b}<=>$DB{$a}; }
sub sortbytime{ $LT{$b}<=>$LT{$a}; }
if($sort eq "h"){
print "順番＝ヒット数$kwd\n";
print "$idx
\n";
}
}
elsif($sort eq "t"){
print "順番＝最終アクセス時刻$kwd\n";
print "$idx
\n";
}
}
}
##### フッタ
sub show_footer{
print "