Code2Html(フリーウェア)を使って、ソースを見易く

Java勉強会Java勉強会第4週「第4日」 - もやしもん 君にも見える菌 細菌 ウィルス 微生物関連で、ソースをブログ公開してみたり(中身は空虚なものばかりですが)していますが、いまいち、みにくい。秀丸秀まるおのホームページ(サイトー企画)などで見慣れているように、見やすい表示をして、情報発信上の意味を高めるには、などと思っていたところ、別件で調べ物をしていたら、Code2HtmlCode2Htmlの詳細情報 : Vector ソフトを探す!なるフリーウェアを発見。ソースをHTML形式に変換するソフトで、そのソースをそのまま、ブログのテキスト書き込み欄に書いて見ました。それが以下です。

ソフトの操作は簡単で、説明するまでもありませんでした。

#! /usr/bin/perl -w

=head1 header

###########################################################
#

#

=cut

use strict;


&main(@ARGV);
exit;

=head1 main

###########################################################
#
# #main関数
# # \arg1 $input_file : format_fixed input file
# # \arg2 $output_file : format_fixed output file
# tab区切りファイルの行列置換
#

=cut



sub main(@){
my ($input_file,$output_file)=@_;
open (INPUT, "$input_file");
open (OUT, ">>$output_file");
my @twodim;
my $linecount=0;
my $columncount=0;

while(<INPUT>){
chomp;
my @inline = split(/\t/);
if($columncount<@inline){
$columncount=@inline;
}
for(my $i=0;$i<@inline;$i++){
$twodim[$linecount][$i]=$inline[$i];
}
$linecount++;
}

for(my $i=0;$i<$columncount;$i++){
for(my $j=0;$j<$linecount;$j++){
print OUT "$twodim[$j][$i]\t";
}
print OUT "\n";
}
close OUT;
}