七行プログラミング

[1 nobodyさん 02/11/01 18:06 ID:umVq3FGM]

・7行×79文字
・Perl

どうぞ。

[2 マリモーマ ◆jbBCmetwgw 02/11/01 18:28 ID:HKLNcbVm]

２ＧＥＴ　　７行だけなら　何もできない罠

[3 ◆FruitsMIpE 02/11/01 18:36 ID:???]

while (1) { print "無理です"; }

[4 nobodyさん 02/11/01 18:39 ID:oU5vKkbM]

とりあえず7行でカウンタを作ろう

[5 マリモーマ ◆jbBCmetwgw 02/11/01 18:39 ID:HKLNcbVm]

無理ですの　無限ループか　怖いな

[6 nobodyさん 02/11/01 18:50 ID:???]

PHPやJavaScriptも入れてくれ。

[7 nobodyさん 02/11/01 18:52 ID:???]

#!/usr/local/bin/perl

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

[8 nobodyさん 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行にできそーなんだけど、どうでそう？

[9 ◆hMJAPH9PWA 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"}

[10 nobodyさん 02/11/01 19:53 ID:???]

ワーイ　3行にナッター　有難う。
まだまだperl勉強中の身ですー

[11 ◆hMJAPH9PWA 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"

[12 nobodyさん 02/11/01 21:11 ID:???]

>>11
でも、読みにくいね

[13 nobodyさん 02/11/01 21:44 ID:???]

>>12

読みやすさを追求してるわけじゃないんだけどね
趣旨を理解してよ

[14 nobodyさん 02/11/01 22:14 ID:???]

ああ、; までで1行ってわけじゃないんだ。

[15 nobodyさん 02/11/01 22:27 ID:???]

やっぱカウンタぐらいしかできないか。

[16 nobodyさん 02/11/01 23:05 ID:???]

ム板かと思った。

[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";}}