137(2): ◆PAmX3cjLtw [sage] 03/04/20 02:19 ID:??? AAS
encoding をハズしてなんとかイけたよ。疲れた。

まとめ＆使い方
・番号自動リンク（ >>100 とか入力する)
・URL自動リンク（外部ﾘﾝｸ:...行末までリンク）
・キャップ（名前欄の # 以降をcryptします）
・EUC-JP で保存する（じゃないと文字化けする）
・＆を&に置換する
・カレントに空ファイル F を作ること
------------------------------- 7ch.cgi
use CGI':all';open F,'+<F';[<F>];$.++;*i=*param;s!＆gt;＆gt;(\d+)!a{href,"#R$1"},
$&!eg,s!https?外部ﾘﾝｸ:.+?$!a{href,$&},$&!emg,s/\n/br/eg,seek(F,0,2),eval{flock F,2},
($n=i(N)||'nobodyさん')=~s/#.*/crypt$&,'◆'/e,print F dt("$. ：".b(a{name,"R$."
,i(M)&&(href,'mailto:'.i M)},font{color,'green'},$n),'：'.localtime),dd($_.p),"
"if$_=escapeHTML i T;seek F,0,0;*x=*textfield;put header(-charset=>'EUC-JP'),
start_html({lang,'ja',bgcolor,'#efefef'}).dl(<F>),startform,p(submit('書き込む'
),' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',6,70,1)),endform,end_html;

130(1): nobodyさん [sage] 03/04/19 00:20 ID:??? AAS
>>128
日本語まともに表示できるようにしたら、URL リンク外してもはみだしちゃった。

#!/usr/bin/perl
use CGI':all';open F,'+<F';eval{flock F,2};[<F>];$.++;*i=*param;if($_=i T){s/<
/＆lt;/gx;$h='<a href="';s!(＆gt;＆gt;\d+)!$h#R$1">$1</a>!g;s/\n/br/eg;$m=i M;seek
F,0,2;print F dt("$. ：".b(a{name=>"R$.",$m&&(href=>"mailto:$m")},i(N)||
'名無しさん'),'：'.localtime),dd($_.br.br),"\n"}*x=*textfield;$c='Shift_JIS';
seek F,0,0;put header(-charset=>$c),start_html(-encoding=>$c,-lang=>'ja',
-style=>'body{background:#eee}b{color:green}'),dl(<F>),hr,startform,p(submit(
'書き込む'),' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',5,70,1)),endform,
end_html

CGI.pm は 2.91 と 2.46 で確認。＆を戻して使って下され。