七行プログラミング

**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"}

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

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

◆hMJAPH9PWA · 02/11/01 20:47

と思ったらバグがあった。後半の処理全部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"

**nobodyさん** · 02/11/01 21:11

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

**nobodyさん** · 02/11/01 21:44

>>12

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

**nobodyさん** · 02/11/01 22:14

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

**nobodyさん** · 02/11/01 22:27

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

**nobodyさん** · 02/11/01 23:05

ム板かと思った。

**rubyist＠カラアゲうまうま** · 02/11/01 23:14

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

**nobodyさん** · 02/11/01 23:58

>>8の
truncate( FILE, tell );
これはどういう意味？

**nobodyさん** · 02/11/02 00:07

tell FILE
　　　↑が抜けてるにょ

**nobodyさん** · 02/11/02 00:10

print <<7LINE;
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
7LINE

**nobodyさん** · 02/11/02 00:11

>>19
（　´,_ゝ`）ﾌﾟｯ

**nobodyさん** · 02/11/02 00:19

（；　°▽°)FILEなくもいけた～～

**nobodyさん** · 02/11/02 00:51

echo "aho1"
echo "aho2"
echo "aho3"
echo "aho4"
echo "aho5"
echo "aho6"
echo "aho7"

**（ ´∀｀）ヮ-ィ** · 02/11/02 01:25

掲示板でけた～～
#!/usr/bin/perl
if($ENV{'REQUEST_METHOD'}eq'POST'){read(STDIN,$b,$ENV{'CONTENT_LENGTH'});
foreach(split(/&/,$b)){($c,$d)=split(/=/,$_);$d=~tr/+/ /;
$d=~s/%([a-f\d]{2})/pack('H2',$1)/egi;$form{$c}=$d}open(F,'>>z.txt');
print F "$form{y}\n";close F}print"Content-type:text/html\n\n<html>
<form action=x.cgi method=post><input type=text name=y><input type=submit>
</form><br><br>";open(F,'z.txt');while(<F>){print "$_<br>\n"}print'</html>';

**nobodyさん** · 02/11/02 01:46

動きませぬ

25 · 02/11/02 01:49

あ、動きましたｗ

**nobodyさん** · 02/11/02 02:08

>>1 Perl限定かよ。

**nobodyさん** · 02/11/02 06:30

昔のBASICの１画面プログラムを思い出したよ