PerlのCGIで文字を縦書きにする方法

質問

• PerlのCGIを使用して、フォームから投稿された文字を縦書きに表示する方法について教えてください。
• 現在、PerlのCGIを使用してフォームから投稿された文字を縦書きに表示しようとしていますが、うまくいきません。どうすればよいでしょうか。
• PerlのCGIでフォームから投稿された文字を縦書きに表示するための方法について教えてください。

回答No.4

DKG

こんな感じでどうでしょう？

-------------------------------------------------

# 縦書きにする文字列
$str = 'あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわおん';

# 折り返す文字数
$end_line = 5;

# $str を文字単位に分割して配列 @chars に代入する
# http://www.din.or.jp/~ohzaki/perl.htm#JP_Split（Perlメモ）
$ascii = '[\x00-\x7F]';
$twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
$threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
@chars = $str =~ /$ascii|$twoBytes|$threeBytes/og;

# 一つ一つの文字に<br>を付け加えながら%kaに5文字ずつ代入
foreach(@chars){
$_ .= "<br>";
if(($i % $end_line)==0){$d++;}
$ka{$d} .= $_;
$i++;
}

# 行数
$h = int($i / $end_line);
if(($i % $end_line) > 0){$h++;}

print "Content-type: text/html\n\n";
print '<meta http-equiv="content-type" content="text/html; charset=euc">';
print "<table>\n<tr>\n";

for($g=$h;$g>0;$g--){
print "<td valign=\"top\" align=\"center\" width=\"1\">$ka{$g}</td>\n";
}

print "\n</tr>\n</table>";

-------------------------------------------------

TABLEの余白を広げたり、スタイルを使うともっときれいに表示されると思いますよ。もちろん文字コードはEUCじゃないとちゃんと動きません＾＾
あとnatsuki_tkさんの言う通り半角は全角にしてあげるともっときれいになると思います。

参考URL：

http://www.din.or.jp/~ohzaki/perl.htm