七行プログラミング

**nobodyさん** · 02/11/01 18:06

・7行×79文字
・Perl

どうぞ。

**マリモーマ** ◆jbBCmetwgw · 02/11/01 18:28

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

◆FruitsMIpE · 02/11/01 18:36

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

**nobodyさん** · 02/11/01 18:39

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

**マリモーマ** ◆jbBCmetwgw · 02/11/01 18:39

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

**nobodyさん** · 02/11/01 18:50

PHPやJavaScriptも入れてくれ。

**nobodyさん** · 02/11/01 18:52

#!/usr/local/bin/perl

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

**nobodyさん** · 02/11/01 19:29

#!/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行にできそーなんだけど、どうでそう？

◆hMJAPH9PWA · 02/11/01 19:43

何とかも何も、変数の冗長性を残しても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"}