七行プログラミング (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行にできそーなんだけど、どうでそう？

---

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

---

あと 444 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.017s