七行プログラミング (452ﾚｽ)
上下前次1-新
42(1): ◆FruitsMIpE [sage] 02/11/03 18:27 ID:??? AAS
改良
$q=$ENV{QUERY_STRING}; if($q){@p=split /[&;]/,$q; foreach(@p){($a,$b)=split
"="; $b=~tr/+/ /; $b=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$b;}
open W, ">> b.log"; print W "$i{n}：$i{m}\n"; close W;} print "Content-type:
text/html\n\n<html>\n<title>BBS</title>\n\n"; open R, "b.log"; while(<R>)
{chomp; print "$_<br>\n";} close R; print qq{<hr>\n<form>Name<input type="text"
name="n"> <input type="text" name="m" size="64"> <input type="submit"> [<a
href="b.cgi">Reload</a>] [<a href="../../">Back</a>]</form>\n<hr>\n</html>\n};
43(3): nobodyさん [sage] 02/11/03 18:38 ID:??? AAS
>>2424(1): （ ´∀｀）ヮ-ィ [sage] 02/11/02 01:25 ID:??? AAS
掲示板でけた〜〜
#!/usr/bin/perl
if($ENV{'REQUEST_METHOD'}eq'POST'){read(STDIN,$b,$ENV{'CONTENT_LENGTH'});
foreach(split(/&/,$b)){($c,$d)=split(/=/,$_);$d=~tr/+/ /;
$d=~s/%([a-f\d]{2})/pack('H2',$1)/egi;$form{$c}=$d}open(F,'>>z.txt');
print F "$form{y}\n";close F}print"Content-type:text/html\n\n<html>
<form action=x.cgi method=post><input type=text name=y><input type=submit>
</form><br><br>";open(F,'z.txt');while(<F>){print "$_<br>\n"}print'</html>';
を発展させてみた。一行掲示板。
--- 7bbs.cgi ---
#!/usr/local/bin/perl
$l='7bbs.log';if(read STDIN,$_,$ENV{'CONTENT_LENGTH'}){for(split/&/){$_=(split
/=/)[1];tr/+/ /;s/%([a-f\d]{2})/pack'H2',$1/egi;push@r,$_}@r=(''.localtime,@r);
open F,"+<$l";flock F,2;@l=(join(': ',@r),"<br>\n",<F>);truncate F,0;print F
@l[0..49]}open F,$l;print join('><input type=',"Content-type: text/html\n\n".
'<title></title><form action=7bbs.cgi method=post','text name=n','text name=w',
'submit></form>'),<F>
----------------
新しい順に表示。50件まで保存。
>>4141(1): ◆FruitsMIpE [sage] 02/11/03 18:15 ID:??? AAS
名前入力欄つき掲示板
$q=$ENV{QUERY_STRING}; if($q){@p=split /[&;]/,$q; foreach(@p){($a,$b)=split
"="; $b=~tr/+/ /; $b=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$b;}
open W, ">> b.log"; print W "$i{n}<>$i{m}\n"; close W;} print "Content-type:
text/html\n\n<html>\n<head><title>掲示板</title></head>\n<body>\n"; open R,
"b.log"; while(<R>){chomp; ($n,$m)=split "<>"; print "$n：$m<br>\n";} close R;
print qq{<hr>\n<form>Name<input type="text" name="n"> <input type="text"
name="m" size="64"><input type="submit"></form>\n<hr>\n</body></html>\n}; exit;
ネタが被るねぇ。ゴメンね。(´・ω・｀)
44(2): nobodyさん [sage] 02/11/03 19:17 ID:??? AAS
動かねぇです大将！>>42>>43
>>42のは半角でも全角でも変な文字が保存されるです！モジコード変えてもダメだったです！
>>43のはファイルが作成されませぬ！
私のミステイクでしょうか！ハラキリ！
45: nobodyさん [sage] 02/11/03 19:22 ID:??? AAS
>>44
open F,"+<$l"; ←注目
つー事で、ログファイルは先に作っといて。
$l='7bbs.log';
のトコがログファイルのパスだから、よろ。
46(2): nobodyさん [require使えば] 02/11/03 19:44 ID:??? AAS
１行でも書けるな。
47: nobodyさん [sage] 02/11/03 20:07 ID:??? AAS
（ そんな事より１さん、ちょっと聞いてよ。スレとあんまり関係ないけどさ。
`ー‐―V―――――――――――――――――――――――――――――
;:'´ （ このあいだ、WebProg板へ行ったんですの。WebProg板。
_....._{{ 〃 ＼ そしたらなんかRuby!と書かれたレスが多発していましたわ。
, - ' ,..､､.ヾ{{フ'⌒`ヽ､ー―――V――――――――――――――――――
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､ _....､､､､ （ で、よく見たらrubyistという名前の書き込みで、
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<´ , ｀ヽ.`ー――――V― 相手してもらえてないんです。
,' .i /|. /.| { i, i, }. }_,,）) lﾆ二二ミヽ.､ ':, ,.: '´ ,_.....__｀ヽ､ ,..-‐-､),.....`_――――――
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.ｌ ./ ,! ,,｀ヾ:､ ':, ./'´￣｀ヾ､､ヽ,.:'´ ,:‐:､ ,.-､ ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞﾚ__,〃_/ﾘ !.'; .} ./ｌ_|___ﾉ! ｌ `､ ', / //`''} }.'; ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル'￣｀` ´-､,ﾉﾉ l l .!,;:=､｀:.｀:>=､.j,｝ |__人(( _ﾉﾉノ |
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´ .|'￣ヽ __ ｀><ﾉ | {;:'ﾉ ﾉtrﾃ;､.Y ! ,--､ __`彡 ﾉ
. ',|!!､ r‐┐ ｀ ノ' /,ｲ ! __ , ⌒'/!| | !.`ｰ‐'´, ﾞじ' ノ ! h. ._: ´ ｿ).（
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ! !､ ｰ' ノｲ ! | | !､ !ﾌ ｀フ'ﾘ ! ﾙ'ヽ.._ _..､(ン ﾉ ）
ﾞ:､ｨ､jヾｰ::: 'iﾍ ノ',ﾘ.／! .| |ｰ`┬､' ´ 〃 l. トヾ､.ﾞ｀ｨ'' ´ヽ､/// ＼二|｀＼ｰ‐‐'´
,､- '´ ヽ､ﾞ､ { ｀＞"､ ! ! ! | ｀>-､ | |､ ＿＿＿＿＿＿＿_∧＿＿＿＿＿
/＼＼ ', } //｀ヽ| ',.!ﾞ､ !／／ ﾞ!/ ! （ もうね、アホかと。馬鹿かと‥
48(1): nobodyさん [] 02/11/03 21:17 ID:QK0oCR94(1) AAS
明文化
・7行×79文字
・Perl
・#!/usr/local/bin/perlは含まない。実質的なプログラムで七行。
・スペースも1文字分。2バイト文字は2文字分。
でいいでしょうか？
49: rubyist＠カラアゲうまうま [sage] 02/11/03 21:21 ID:??? AAS
perl版cc1だれか作れ
50: nobodyさん [sage] 02/11/03 22:32 ID:??? AAS
このスレを見たとき、
ム板かと思いますた。
51(1): nobodyさん [sage] 02/11/03 22:34 ID:??? AAS
掲示板は本家でもうかなり短くなってないか？
別に委員だけど、もっと面白いﾈﾀがないかなと。
52: 43 [sage] 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>77(3): nobodyさん [0] 02/11/01 18:52 ID:??? AAS
#!/usr/local/bin/perl
if (>>1 = "バカ") {
print "イッテヨシ";
} else {
print "マターリしましょう";
}
BBS</title><form action=".
'7bbs.cgi method=post','text name=n','text name=w',"submit></form>\n"),<F>
----------------
["&<>] を数値文字参照に変換。
53(1): nobodyさん [sage] 02/11/03 23:18 ID:??? AAS
7行のスレッドフロート型掲示板とかは無理？
54: ◆FruitsMIpE [sage] 02/11/03 23:44 ID:??? AAS
>>43
Winではflock 使えなくてエラーに ヽ(*｀Д´)ﾉ ﾜｧｧﾝ
>>44
ｶﾞ━━━━(;ﾟДﾟ)━━━━ﾝ !!
すいませｎ原因わかりませｎ
Windows環境でSJISならうまくいくんだけど・・
>>53
前に2ch型掲示板作ってみたけど、無理確定のような気がする。
誰か作れる人、いるかな
55(1): nobodyさん [] 02/11/04 06:56 ID:5+umhhBG(1) AAS
７行2ch型掲示板
ただし、かちゅ〜しゃがないとだめぽ、
read.cgiがないから読めないし、書きこみフォームもないから、あとsubject.txtの新スレは一番下になる。
flockもしていない、かちゅに依存するために変数名が長い。
下記のディレクトリ構成で成功
/test
+--/bbs.cgi
+--/subject.txt
+--/dat/
#!/usr/local/bin/perl
$t=time;read(STDIN,$b,$ENV{'CONTENT_LENGTH'});@p=split(/&/,$b);foreach (@p)
{($a,$v)=split "=";$v=~tr/+/ /;$v=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg;
$i{$a}=$v;}if(!$i{'key'}){$i{'key'}=$t;}open(F,">>./dat/$i{'key'}.dat");
print F "$i{'FROM'}<>$i{'mail'}<>$t<>$i{'MESSAGE'}<>$i{'subject'}\n";close(F);
open(S,">>./subject.txt");print S "$i{'key'}.dat<>$i{'subject'}(1)\n";
close(S);exit;
つーか激しく2ch型から離れているが。
56: nobodyさん [sage] 02/11/04 09:38 ID:??? AAS
>>55
それは普通掲示板といいません（w
win鯖では動いたけどな。
57(1): nobodyさん [sage] 02/11/04 12:16 ID:??? AAS
やはりCGIだと、定型的な部分で多く取られてしまいますな。
58(1): （ ´∀｀）でけた〜 [sage] 02/11/04 12:59 ID:??? AAS
[アクセス解析]
CGI名： a.cgi
空ファイル用意： log
そのままアクセスしてログ取り
引数に a をつけて解析結果表示
#!/usr/bin/perl
&a if $ENV{QUERY_STRING}eq'a';($s,$m,$j,$d,$g,$y)=gmtime(time+9*60*60);$i=$ENV{
REMOTE_ADDR};$h=$ENV{REMOTE_HOST}||gethostbyaddr(pack('C4',split(/\./,$i)),2)||
$i;$y=sprintf("%d/%02d/%02d/ %02d:%02d:%02d",$y+=1900,++$g,$d,$j,$m,$s);open(F,
'+<log');@d=<F>;unshift(@d,"$y,$h,$ENV{HTTP_USER_AGENT},$ENV{HTTP_REFERER}\n");
seek(F,0,0);print F @d;sub a{print"Content-type:text/html\n\n";open(F,'log');
while(<F>){($t,$h,$u,$r)=split(/,/,$_);print"$t<br>$h<br>$u<br>$r<hr>"}exit}
59: nobodyさん [sage] 02/11/04 14:26 ID:??? AAS
で、実用性ある奴はあるのか？
60(2): nobodyさん [] 02/11/04 15:47 ID:CMvXGJGy(1) AAS
（･ε･）v ｷﾆｼﾅｲ!
61: nobodyさん [sage] 02/11/04 20:59 ID:??? AAS
HTML4.01strictとかどうよｗ
62: nobodyさん [sage] 02/11/04 23:14 ID:??? AAS
>>57
試しにHTMLを分離して作ってみたら大分縮んだ。
外部ﾘﾝｸ[gz]:boobar.hp.infoseek.co.jp
>>58
縮めてみた。
#!/usr/bin/perl
if($ENV{QUERY_STRING}eq'a'){open F,'log';print"Content-Type: text/html\n\n",map
join('<br>',split/,/).'<hr>',<F>;exit}$i=$ENV{REMOTE_ADDR};$h=$ENV{REMOTE_HOST}
||gethostbyaddr(pack('C4',split/\./,$i),2)||$i;($s,$m,$j,$d,$g,$y)=localtime;
open F,'+<log';eval{flock F,2};@d=(sprintf('%d/%02d/%02d %02d:%02d:%02d',1900+
$y,$g+1,$d,$j,$m,$s).",$h,$ENV{HTTP_USER_AGENT},$ENV{HTTP_REFERER}\n",<F>);
truncate F,0;seek F,0,0;print F @d
63: age [age] 02/11/05 18:48 ID:??? AAS
age
64: nobodyさん [] 02/11/14 07:16 ID:M/ZRCXHw(1) AAS
あげ
65: nobodyさん [] 02/11/20 18:28 ID:707UhyRv(1) AAS
7行Wikiくれ。
66(1): nobodyさん [sage] 02/11/21 07:14 ID:??? AAS
---- 7wiki.cgi
#!/usr/local/bin/perl -w
use strict; use CGI qw/:standard/; use AnyDBM_File; use Fcntl;
my$id=$ENV{'QUERY_STRING'}||'FrontPage';my$msg=param('msg')||'';
my$url='./7wiki.cgi'; tie(my%DB,'AnyDBM_File','wiki',O_CREAT|O_RDWR,0666)or die;
if ($msg){$DB{$id}=$msg} $msg=escapeHTML $DB{$id}; untie(%DB);print header;
print qq(<form action="$url?$id" method="POST"><input type="submit"><b>$id</b>
<br /><textarea name="msg" rows="6" cols="60">$msg</textarea></form><hr />);
$msg=~s/\b([A-Z][a-z]+([A-Z][a-z]+)+)\b/<a href="$url?$1">$1<\/a>/g;print $msg;
上下前次1-新書関写板覧索設栞歴
あと 386 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.009s