七行プログラミング (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/10361416
03/17
18: nobodyさん [ ] 02/11/01 23:58 ID:??? >>8の truncate( FILE, tell ); これはどういう意味？ http://medaka.5ch.net/test/read.cgi/php/1036141603/18
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 434 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.015s