一時ファイルに保存しました
\n"; } &sub_print_html(); } else{ print "テキストファイル以外はアップロードできません
\n"; } } else{ &sub_print_inputform(); } if(!$boolDownload){ print "\n\n"; } &sub_print_html_footer(); #一時ファイルの削除 unlink("upload/temp.txt"); exit(0); sub sub_print_html_header{ if($boolDownload){ print "Content-Type: application/octet-stream\n" . "Content-Disposition: attachment; filename=output.html\n" . "\n"; } else{ print "Content-type: text/html\n\n"; print "\n" . "\n" . "\n" . "\t\n" . "\t
HTML::TreeBuilderによるHTML整形
\n"; } } sub sub_print_html_footer{ if(!$boolDownload){ print "\n\n"; } } sub sub_print_inputform{ print "\n" . "読み込むファイルはあらかじめUTF-8に変換しておくと、文字化けを防げます
\n"; } sub sub_print_html{ if(!$boolDownload){ print "
整形するHTMLファイル：./upload/temp.txt
\n"; } open(fi, "< upload/temp.txt") or &sub_error_exit($!); my $body = ""; my $datBuffer = ""; while(read(fi, $datBuffer, 2048)){ $body .= $datBuffer; } close(fi); # 文字コードをUTF-8に変換する my $encode = guess_encoding($body, qw/ euc-jp shiftjis 7bit-jis /); $body = decode($encode->name, $body) unless (utf8::is_utf8($body)); my $tree = HTML::TreeBuilder->new; # ブール値属性のハッシュ値を削除する（ハッシュ値を削除することで、省略させないようにする） if($boolWriteBooleanAttr){ *HTML::Element::boolean_attr = \%HTML::Tagset::boolean_attr; # legacy foreach my $key (keys %HTML::Element::boolean_attr){ if($boolDebug){ print "debug(WriteBooleanAttr): boolean_attr keys=".$key.",values=".$HTML::Element::boolean_attr{$key}."
\n"; } delete $HTML::Element::boolean_attr{$key}; } } $tree->parse($body); # imgタグにalt属性が足りない場合、新規作成する if($boolImgAlt){ foreach my $node ($tree->look_down('_tag' => 'img')){ if(!defined($node->attr('alt'))){ my $strHref = " "; if(defined($node->attr('src'))){ # ファイルのベースネームのみ取り出す（指定拡張子も削除する） $strHref = basename($node->attr('src'), ('.jpg', '.jpeg', '.gif', 'png')); if($boolDebug){ print "debug (ImgAlt): alt=".$strHref.", src=".$node->attr('src')."
\n"; } } $node->attr('alt', $strHref); } } } # 属性値を英数小文字に変換する if($boolRewriteAttrSmall){ for my $i (0 .. $#arrAttr){ for my $j (1 .. $#{$arrAttr[$i]}){ # $arrAttr[$i][0] : タグ名、$arrAttr[$i][$j] : そのタグに対する属性名 foreach my $node ($tree->look_down('_tag' => $arrAttr[$i][0])){ if(defined($node->attr($arrAttr[$i][$j]))){ if($boolDebug && $node->attr($arrAttr[$i][$j]) =~ /[A-Z]/){ print "debug (RewriteAttrSmall): tag=".$arrAttr[$i][0].", attr=".$arrAttr[$i][$j].", value=".$node->attr($arrAttr[$i][$j])."
\n"; } $node->attr($arrAttr[$i][$j], lc($node->attr($arrAttr[$i][$j]))); } } } } } # 全てのタグと、属性を画面表示する if($boolDebug) { my @arrAllAttr; foreach my $node ($tree->look_down('_tag' => qr/.*/)){ print "".$node->tag()." : ".$node->as_text()." : \n"; @arrAllAttr = $node->all_attr(); foreach my $strAttr (@arrAllAttr){ print $strAttr." , "; } print "
\n"; } } $tree->eof(); # HTMLソースコードを画面出力 my $strEntityChar = "<>&".pack("U", 0x81)."-".pack("U", 0x38f); # for(my $i=0x0081; $i<0x052f; $i++){ $strEntityChar .= pack("U", $i); } if($boolDownload){ if($boolIndentTab){ print $tree->as_HTML($strEntityChar, "\t", {}); } else{ print $tree->as_HTML($strEntityChar, " ", {}); } } else{ print "\n";
if($boolIndentTab){ print encode_entities($tree->as_HTML($strEntityChar, "\t", {}), '<>&'); }
else{ print encode_entities($tree->as_HTML($strEntityChar, " ", {}), '<>&'); }
print "\n";
}
# ツリーを削除
$tree = $tree->delete;
}
sub sub_error_exit{
print "ファイル入出力エラー （Error ID:".$_[0]."）
\n"; print "\n\n"; &sub_print_html_footer(); #一時ファイルの削除 unlink("upload/temp.txt"); exit(0); }