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

---

77: 02/11/25 06:28 ID:??? AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
77: [sage] 02/11/25 06:28 ID:??? 余った行で僅かばかり実用的にしてみる。 #!/usr/local/bin/perl -w use CGI qw(:all escapeHTML);use DB_File;$j=$ENV{QUERY_STRING}||'FrontPage';($f) =$0=~m|([^/]+)(\.cgi)$|;open(L,'+<&='.($d=tie%D,'DB_File',$f,O_CREAT|O_RDWR or die)->fd)||die;eval{flock L,2};$_=escapeHTML($m=$D{$j}=param('m')||$D{$j});$d-> sync;$d=untie%D;s/\b(([A-Z][a-z]+){2,})/a{href=>"$f.cgi?$1"},$1/ge;s/\x0d\x0a| \x0d|\x0a/<br>/gx;put header,title("$f - $j"),startform('post',"$f.cgi?$j"), submit,b($j),br,textarea('m',$m,6,60),endform,hr,$_ 陽に輸入してやらないと上のタイミングで escapeHTML 使えなかったよ。 (FreeBSD 4.7R, Perl 5.005_03, CGI.pm 2.89) http://medaka.5ch.net/test/read.cgi/php/1036141603/77
余った行で僅かばかり実用的にしてみる 陽に輸入してやらないと上のタイミングで 使えなかったよ

---

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

---

あと 375 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.022s