七行プログラミング (452ﾚｽ)
上下前次1-新

---

1(9): 02/11/01 18:06 ID:umVq3FGM(1) AAS
・7行×79文字
・Perl

どうぞ。

---

2(5): マリモーマ ◆jbBCmetwgw 02/11/01 18:28 ID:HKLNcbVm(1/2) AAS
２ＧＥＴ　　７行だけなら　何もできない罠

---

3: ◆FruitsMIpE 02/11/01 18:36 ID:??? AAS
while (1) { print "無理です"; }

---

4(5): 02/11/01 18:39 ID:oU5vKkbM(1) AAS
とりあえず7行でカウンタを作ろう

---

5: マリモーマ ◆jbBCmetwgw 02/11/01 18:39 ID:HKLNcbVm(2/2) AAS
無理ですの　無限ループか　怖いな

---

6: 02/11/01 18:50 ID:??? AAS
PHPやJavaScriptも入れてくれ。

---

7(3): [0] 02/11/01 18:52 ID:??? AAS
#!/usr/local/bin/perl

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

---

8(2): 02/11/01 19:29 ID:??? AAS
#!/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:??? AAS
何とかも何も、変数の冗長性を残しても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(3): 02/11/01 19:53 ID:??? AAS
ワーイ　3行にナッター　有難う。
まだまだperl勉強中の身ですー

---

11(1): ◆hMJAPH9PWA 02/11/01 20:47 ID:??? AAS
と思ったらバグがあった。後半の処理全部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(2): 02/11/01 21:11 ID:??? AAS
>>11
でも、読みにくいね

---

13: [age] 02/11/01 21:44 ID:??? AAS
>>12

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

---

14(2): 02/11/01 22:14 ID:??? AAS
ああ、; までで1行ってわけじゃないんだ。

---

15: [ ] 02/11/01 22:27 ID:??? AAS
やっぱカウンタぐらいしかできないか。

---

16: 02/11/01 23:05 ID:??? AAS
ム板かと思った。

---

17: rubyist＠カラアゲうまうま [ｓｓｓｓｓ] 02/11/01 23:14 ID:??? AAS
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";}}

---

18: [ ] 02/11/01 23:58 ID:??? AAS
>>8の
truncate( FILE, tell );
これはどういう意味？

---

上下前次1-新書関写板覧索設栞歴

---

あと 434 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.014s