七行プログラミング (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勉強中の身ですー

---

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

---

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

---

ぬこの手 ぬこTOP 0.009s