Mangorou's diary

今日もCGI一色だ～
きょうは入力された文字数によって
フォントサイズを切り替える処理を実装していた
最初全く動作せず、エラーになってしまう
出来た―
23文字以内はサイズ７、それより多い場合はサイズ６にする
@dはデータ配列
$count = length ($word);
if($count<=46){
foreach $line (@d)
{print "＜td>＞＜font size=7＞$line＜/font＞＜/td＞\n";}
}else
{
foreach $line (@d)
{print "＜td＞＜font size=6＞$line＜/font＞＜/td＞\n";}
}