七行プログラミング (452ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

132: ◆PAmX3cjLtw 03/04/19 12:39 ID:S+81Ncm0(1/2)調 AAS
>>131
修正ありがとう！勉強になります。

httpへの自動リンクも入れてみたけど、p抜かしたりズルしてます。
【今後の課題】
・キャップもどき追加（s/#.*/crypt$&,'◆'/e）
・全角小文字のｋが文字化けするバグ

use CGI':all';open F,'+<F';[<F>];$.++;*i=*param;s!>>(\d+)!a{href,"#R$1"},
$&!eg,s!https?http://.+?$!a{href,$&},$&!emg,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($_.p),"\n"if$_=escapeHTML i T;*x=*textfield;seek F,0
,0;put header(-charset=>$c='Shift_JIS'),start_html({lang,'ja',encoding,$c,Style
,'b{color:#080}body{background:#eee}'}),dl(<F>),hr,startform,submit('書き込む')
,' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',6,70,1),endform,end_html

---

134: ◆PAmX3cjLtw 03/04/19 12:41 ID:S+81Ncm0(2/2)調 AAS
すまそ。＆置換するの忘れました。

use CGI':all';open F,'+<F';[<F>];$.++;*i=*param;s!＆gt;＆gt;(\d+)!a{href,"#R$1"},
$&!eg,s!https?http://.+?$!a{href,$&},$&!emg,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($_.p),"\n"if$_=escapeHTML i T;*x=*textfield;seek F,0
,0;put header(-charset=>$c='Shift_JIS'),start_html({lang,'ja',encoding,$c,Style
,'b{color:#080}body{background:#eee}'}),dl(<F>),hr,startform,submit('書き込む')
,' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',6,70,1),endform,end_html

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.012s*