今年のＫ−１ワールドＧＰの優勝者は誰だ！

どうでもいい、じじぃの日記。
9/27(土)のＫ−１は面白かった。
「セーム・シュルト VS ピーター・アーツ」戦。
ほとんどの人がセーム・シュルトが勝つと予想したのではないか。
あの大男セーム・シュルトをじじぃのピーター・アーツが下したのだ。
じじぃの逆襲が始まったぁ。
藤原紀香が涙を流していた。（と思った）
明日、Ｋ−１ワールドＧＰが始まる。
http://www.fujitv.co.jp/sports/k1/index.html
「ピーター・アーツ VS バダ・ハリ」戦。
今度は若造対じじぃの戦いだ。
今年のＫ−１ワールドＧＰの優勝者は誰だ！
まぁ。ピーター・アーツがバダ・ハリに勝って、優勝なんかしたら、なんてことにはならないな。
話変わって
perlでテキストファイル→HTMLファイルに変換するプログラムを作ってみた。
escapeHTMLにバグがあるので一部変更しただけです。(^^;
オリジナルプログラム　↓
http://q.hatena.ne.jp/1193970475

- - - - -

・読み込むファイル (textconv.txt)

- - - - -

フリーの分割ソフトはあるようですが
・分割とHTML化を同時にしたい
・ページ下部にファイルに対応したページ番号がつけたい
　(1.htmlの下部に：<p>1ページ</p>のようなイメージ)
・最近プログラミングの勉強をしていていろんなコードを見てみたい
という理由で利用しないつもりです。
　　
何卒よろしくお願いいたします。

- - - - -

・perlプログラム (textplaintohtml.pl)

- - - - -

#!C:\Perl\bin\perl.exe
# perl textplaintohtml.pl textconv.txt
use strict;
use warnings;
use CGI qw(:standard);
use Getopt::Std;

our $opt_c;
our $opt_l;
getopts("c:l:");
$opt_l or $opt_c or $opt_l = 25;
my @part;
if ($opt_l) {
　　my @line = <>;
　　while (@line) {
　　　　push @part, join "", splice @line, 0, $opt_l;
　　}
} else {
　　local $/ = undef;
　　$_ = <>;
　　@part = /.{1,$opt_c}(?:\n|$)/sg;
}
unshift @part, ""; # insert dummy
for (my $i=1; $i<@part; $i++) {
# escapeHTMLで文字化けする ?
#my $part = escapeHTML($part[$i]);
　　my $part = $part[$i];
　　$part =~ s/</</g;
　　$part =~ s/>/>/g;
#print $part;
　　my $file = "$i.html";
　　open FILE, ">$file" or die;
　　print FILE <<__HTML__;
　　<html>
　　<body>
　　<pre>$part</pre>
　　<p>page $i</p>
　　</body>
　　</html>
　　__HTML__
　　close FILE;
}