七行プログラミング (452ﾚｽ)
七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
1: nobodyさん [] 02/11/01 18:06 ID:umVq3FGM ・7行×79文字 ・Perl どうぞ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/1
2: マリモーマ ◆jbBCmetwgw [] 02/11/01 18:28 ID:HKLNcbVm ２ＧＥＴ ７行だけなら 何もできない罠 http://medaka.5ch.net/test/read.cgi/php/1036141603/2
3: ◆FruitsMIpE [sage] 02/11/01 18:36 ID:??? while (1) { print "無理です"; } http://medaka.5ch.net/test/read.cgi/php/1036141603/3
4: nobodyさん [] 02/11/01 18:39 ID:oU5vKkbM とりあえず7行でカウンタを作ろう http://medaka.5ch.net/test/read.cgi/php/1036141603/4
5: マリモーマ ◆jbBCmetwgw [] 02/11/01 18:39 ID:HKLNcbVm 無理ですの 無限ループか 怖いな http://medaka.5ch.net/test/read.cgi/php/1036141603/5
6: nobodyさん [sage] 02/11/01 18:50 ID:??? PHPやJavaScriptも入れてくれ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/6
7: nobodyさん [0] 02/11/01 18:52 ID:??? #!/usr/local/bin/perl if (>>1 = "バカ") { print "イッテヨシ"; } else { print "マターリしましょう"; } http://medaka.5ch.net/test/read.cgi/php/1036141603/7
8: nobodyさん [sage] 02/11/01 19:29 ID:??? #!/usr/bin/perl my $logfile = './count.log'; my $addr = $ENV{'REMOTE_ADDR'}; open( FILE,"+<$logfile" ) or die; flock( FILE, 2 ); ( $_ = <FILE> ) =~ /^(.*?):(.*)$/; my ( $count, $ip ) = ( $1, $2 ); $count++ if $addr ne $ip; seek( FILE, 0, 0 ); print FILE "$count\:$addr"; truncate( FILE, tell ); close FILE; print "Content-type: text/plain\n\n"; printf( "%.5d", $count ); exit; 自作のカウンターです。元はKENTですが原型無いです。 一応多重カウント防止、桁そろえします。 これなんとか7行にできそーなんだけど、どうでそう？ http://medaka.5ch.net/test/read.cgi/php/1036141603/8
9: ◆hMJAPH9PWA [sage] 02/11/01 19:43 ID:??? 何とかも何も、変数の冗長性を残しても3行になったよ。 #!/usr/bin/perl -w $addr=$ENV{REMOTE_ADDR};open L,"+<.log";flock L,2;($c,$ip)=split/:/,<L>; if($addr ne$ip){$c++;seek L,0,0;print L "$c:$addr";truncate L,tell(L);print "Content-Type:text/plain\n\n$c"} http://medaka.5ch.net/test/read.cgi/php/1036141603/9
10: nobodyさん [sage] 02/11/01 19:53 ID:??? ワーイ 3行にナッター 有難う。 まだまだperl勉強中の身ですー http://medaka.5ch.net/test/read.cgi/php/1036141603/10
11: ◆hMJAPH9PWA [sage] 02/11/01 20:47 ID:??? と思ったらバグがあった。後半の処理全部ifブロックに入れたらダメじゃん。 しかも3行じゃなくて3行ね。 ついでに変数を短く。flockしなけりゃ3行いけるね。 #!/usr/bin/perl -w $a=$ENV{REMOTE_ADDR};open L,"+<l";flock L,2;($c,$i)=split/:/,<L>;if($a ne$i){ $c++;seek L,0,0;print L"$c:$a";truncate L,tell L}print"Content-Type:text/plain \n$c" http://medaka.5ch.net/test/read.cgi/php/1036141603/11
12: nobodyさん [sage] 02/11/01 21:11 ID:??? >>11 でも、読みにくいね http://medaka.5ch.net/test/read.cgi/php/1036141603/12
13: nobodyさん [age] 02/11/01 21:44 ID:??? >>12 読みやすさを追求してるわけじゃないんだけどね 趣旨を理解してよ http://medaka.5ch.net/test/read.cgi/php/1036141603/13
14: nobodyさん [sage] 02/11/01 22:14 ID:??? ああ、; までで1行ってわけじゃないんだ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/14
15: nobodyさん [ ] 02/11/01 22:27 ID:??? やっぱカウンタぐらいしかできないか。 http://medaka.5ch.net/test/read.cgi/php/1036141603/15
16: nobodyさん [sage] 02/11/01 23:05 ID:??? ム板かと思った。 http://medaka.5ch.net/test/read.cgi/php/1036141603/16
17: rubyist＠カラアゲうまうま [ｓｓｓｓｓ] 02/11/01 23:14 ID:??? SWFファイルからJPEGを取り出す SWF("$ARGV[0]"); sub SWF{$file="$_[0]";open(FILE,$file); binmode FILE;while(<FILE>){$ed=unpack("h*","$_"); if($ed=~/ff8dff0e.{2}01a46494640010/){$Wri=pack("h*","$ed"); print FILEX "$Wri";$ed=~s/.*(ff8dff0e.{2}01a46494640010)/$1/; $c9++;print "$c9\n";$fileX="SWF$file$c9.jpg";open(FILEX,">$fileX"); binmode FILEX;}$Wri=pack("h*","$ed");print FILEX "$Wri";}} http://medaka.5ch.net/test/read.cgi/php/1036141603/17
18: nobodyさん [ ] 02/11/01 23:58 ID:??? >>8の truncate( FILE, tell ); これはどういう意味？ http://medaka.5ch.net/test/read.cgi/php/1036141603/18
19: nobodyさん [sage] 02/11/02 00:07 ID:??? tell FILE ↑が抜けてるにょ http://medaka.5ch.net/test/read.cgi/php/1036141603/19
20: nobodyさん [sage] 02/11/02 00:10 ID:??? print <<7LINE; ******************************************************************************* ******************************************************************************* ******************************************************************************* ******************************************************************************* ******************************************************************************* ******************************************************************************* ******************************************************************************* 7LINE http://medaka.5ch.net/test/read.cgi/php/1036141603/20
21: nobodyさん [sage] 02/11/02 00:11 ID:??? >>19 （ ´,_ゝ`） ﾌﾟｯ http://medaka.5ch.net/test/read.cgi/php/1036141603/21
22: nobodyさん [sage] 02/11/02 00:19 ID:??? （； °▽°)FILEなくもいけた〜〜 http://medaka.5ch.net/test/read.cgi/php/1036141603/22
23: nobodyさん [] 02/11/02 00:51 ID:TEd9xaNd echo "aho1" echo "aho2" echo "aho3" echo "aho4" echo "aho5" echo "aho6" echo "aho7" http://medaka.5ch.net/test/read.cgi/php/1036141603/23
24: （ ´∀｀）ヮ-ィ [sage] 02/11/02 01:25 ID:??? 掲示板でけた〜〜 #!/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>'; http://medaka.5ch.net/test/read.cgi/php/1036141603/24
25: nobodyさん [ ] 02/11/02 01:46 ID:??? 動きませぬ http://medaka.5ch.net/test/read.cgi/php/1036141603/25
26: 25 [ ] 02/11/02 01:49 ID:??? あ、動きましたｗ http://medaka.5ch.net/test/read.cgi/php/1036141603/26
27: nobodyさん [sage] 02/11/02 02:08 ID:??? >>1 Perl限定かよ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/27
28: nobodyさん [sage] 02/11/02 06:30 ID:??? 昔のBASICの１画面プログラムを思い出したよ http://medaka.5ch.net/test/read.cgi/php/1036141603/28
29: nobodyさん [] 02/11/02 14:13 ID:1/HvBlpx Ｄｕｋｅまだ〜？ ﾁﾝﾁﾝ http://medaka.5ch.net/test/read.cgi/php/1036141603/29
30: nobodyさん [] 02/11/02 17:48 ID:Sny9GkFS てめーら七行もあるのにその程度のモンしか作れねーのかよ（ﾌﾟ http://medaka.5ch.net/test/read.cgi/php/1036141603/30
31: nobodyさん [sage] 02/11/02 17:53 ID:??? >>30 だからきみのすごい作品を待っています。ハイレベル期待しています。 もうできてる？ 今からつくる？ 今日中には書き込んでくれ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/31
32: nobodyさん [] 02/11/02 20:55 ID:RJf4RKlR すごい作品まだ〜？ ﾁﾝﾁﾝ http://medaka.5ch.net/test/read.cgi/php/1036141603/32
33: nobodyさん [] 02/11/02 21:13 ID:aPBbHnBW 何本気になってんの？ http://medaka.5ch.net/test/read.cgi/php/1036141603/33
34: 末吉亮介 [] 02/11/02 21:15 ID:MUhjalxS http://plaza.rakuten.co.jp/a240a/ http://medaka.5ch.net/test/read.cgi/php/1036141603/34
35: nobodyさん [sage] 02/11/02 22:13 ID:??? >>33 作れないヤツはすっこんでてね（はぁと http://medaka.5ch.net/test/read.cgi/php/1036141603/35
36: nobodyさん [sage] 02/11/03 00:25 ID:??? >>30は、口だけ大将だったということか・・・ http://medaka.5ch.net/test/read.cgi/php/1036141603/36
37: nobodyさん [sage] 02/11/03 10:09 ID:??? 実際、Perlだったらかなりのものが出来てもおかしくはないかと。 ム板の7行スレは凄かった。 http://medaka.5ch.net/test/read.cgi/php/1036141603/37
38: nobodyさん [age] 02/11/03 14:13 ID:??? ム板マ板で相手にされない厨が集まる板はここですか？ http://medaka.5ch.net/test/read.cgi/php/1036141603/38
39: ユカリ [] 02/11/03 14:35 ID:8kfSttUc プランテック製の「 RX-2000? 」を改造済み にした、アイティーエス製の「 RX-2000? 」↓ http://user.auctions.yahoo.co.jp/jp/user/neo_uuronntya#.2ch.net/ 現在、本当に人気がある様です。 私も、この前、買いました。 関連ホームページ↓ http://www.h5.dion.ne.jp/~gekitoku/ http://www.h4.dion.ne.jp/~gekiyasu/ http://www.h5.dion.ne.jp/~gekirea/ http://www.h4.dion.ne.jp/~shinsetu/ http://medaka.5ch.net/test/read.cgi/php/1036141603/39
40: nobodyさん [sage] 02/11/03 14:48 ID:??? WebProg らしく。 --- cgi-lib.po --- my($m,$l,$i,$e,$x)=@ENV{'REQUEST_METHOD','CONTENT_LENGTH'};my$d=sub{$d= "Request to receive too much data: $l bytes\n";print"Content-Type: text/plain", "\n\n$d";die$d};sub ReadParse{$l>$$x?&$d:$m=~/POST/?($e=$l-read STDIN,$i,$l):( $i=$ENV{QUERY_STRING});local*I=pop;my@i=(split(/[&;]/,$i),($m?():@ARGV));for(@i ){tr/+/ /;s/%([\da-f]{2})/pack'H2',$1/egi for my($k,$v)=split/=/,$_,2;$I{$k}.= $I{$k}?"\0$v":$v}!$e&&scalar@i}${$x='cgi_lib::maxdata'}=131072 --------------- cgi-lib.pl 互換。Perl4 不可、multipart 未対応。 require 'cgi-lib.po'; $cgi_lib::maxdata = 1024; # POST 時の上限サイズ ReadParse(*in); # or ReadParse(\%in); http://medaka.5ch.net/test/read.cgi/php/1036141603/40
41: ◆FruitsMIpE [sage] 02/11/03 18:15 ID:??? 名前入力欄つき掲示板 $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; http://medaka.5ch.net/test/read.cgi/php/1036141603/41
42: ◆FruitsMIpE [sage] 02/11/03 18:27 ID:??? 改良 $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}; http://medaka.5ch.net/test/read.cgi/php/1036141603/42
43: nobodyさん [sage] 02/11/03 18:38 ID:??? >>24 を発展させてみた。一行掲示板。 --- 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件まで保存。 >>41 ネタが被るねぇ。ゴメンね。(´・ω・｀) http://medaka.5ch.net/test/read.cgi/php/1036141603/43
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 409 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.013s