七行プログラミング (452ﾚｽ)
上下前次1-新

---

131(1): 03/04/19 04:23 ID:??? AAS
収まった。

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

escapeHTML 使ったから、CGI.pm v2.46 だと不可。

---

上下前次1-新書関写板覧索設栞歴

---

あと 321 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.014s