七行プログラミング (452レス)
七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
131: nobodyさん [sage] 03/04/19 04:23 ID:??? 収まった。 #!/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 だと不可。 http://medaka.5ch.net/test/read.cgi/php/1036141603/131
132: ◆PAmX3cjLtw [] 03/04/19 12:39 ID:S+81Ncm0 >>131 修正ありがとう!勉強になります。 httpへの自動リンクも入れてみたけど、p抜かしたりズルしてます。 【今後の課題】 ・キャップもどき追加(s/#.*/crypt$&,'◆'/e) ・全角小文字のkが文字化けするバグ use CGI':all';open F,'+<F';[<F>];$.++;*i=*param;s!>>(\d+)!a{href,"#R$1"}, $&!eg,s!https?://.+?$!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 http://medaka.5ch.net/test/read.cgi/php/1036141603/132
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
アボンOFF
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.349s*