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

---

7(3): [0] 02/11/01 18:52 ID:??? AAS
#!/usr/local/bin/perl

if (>>1 = "バカ") {
print "イッテヨシ";
} else {
print "マターリしましょう";
}

---

52: 43 02/11/03 23:08 ID:??? AAS
>>48
プログラムが Web 関連物なら言語は何でもいいんじゃ?
シェバング行は C の #include みたいなモンだから…。

>>51
単に縮めるだけじゃなく、7行をギリギリまで使って機能増やすのも
楽しみの一つだよ。掲示板に食傷気味なのは同意するけど。(w

つー事で改良。

--- 7bbs.cgi ---
#!/usr/local/bin/perl
$l='7bbs.log';if(read STDIN,$_,$ENV{CONTENT_LENGTH}){@r=''.localtime;for(split
/&/){$_=(split/=/)[1];tr/+/ /;s/%([a-f\d]{2})/pack'H2',$1/egi;s/(["&<>])/'？'.
unpack('C',$1).';'/eg;push@r,$_}open F,"+<$l";flock F,2;@l=(join(': ',@r).
"<br>\n",<F>);truncate F,0;seek F,0,0;print F @l[0..49]}open F,$l;print join(
'><input type=',"Content-type: text/html\n\n<title>7BBS</title><form action=".
'7bbs.cgi method=post','text name=n','text name=w',"submit></form>\n"),<F>
----------------

["&<>] を数値文字参照に変換。

---

73: 02/11/22 18:30 ID:??? AAS
折角なので副産物も（ワンライナーだけど
れぎゅれーしょん ちぇっか　usage: ./7rc.pl < target_script.pl

#! perl -nw
chomp;length>79||$.>7?die:print"line $. OK\n"

---

280(1): 266 04/03/16 18:36 ID:??? AAS
>7accesslog
for で $f..$t ってやると、月や年をまたいだ時、
無駄なファイルオープン（できないやつ）が多発するので
そこをなんとかしたいです・・・。

ヘタレな私にはいい方法が思いつきませんが。

---

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

---

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

---

ぬこの手 ぬこTOP 0.024s