七行プログラミング (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
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 444 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.013s