七行プログラミング

**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の１画面プログラムを思い出したよ

**nobodyさん** · 02/11/02 14:13

Ｄｕｋｅまだ～？　ﾁﾝﾁﾝ

**nobodyさん** · 02/11/02 17:48

てめーら七行もあるのにその程度のモンしか作れねーのかよ（ﾌﾟ

**nobodyさん** · 02/11/02 17:53

>>30
だからきみのすごい作品を待っています。ハイレベル期待しています。
もうできてる？今からつくる？今日中には書き込んでくれ。

**nobodyさん** · 02/11/02 20:55

すごい作品まだ～？　ﾁﾝﾁﾝ

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

何本気になってんの？

**末吉亮介** · 02/11/02 21:15

　　　　　　　　http://plaza.rakuten.co.jp/a240a/

**nobodyさん** · 02/11/02 22:13

>>33
作れないヤツはすっこんでてね（はぁと

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

>>30は、口だけ大将だったということか・・・

**nobodyさん** · 02/11/03 10:09

実際、Perlだったらかなりのものが出来てもおかしくはないかと。
ム板の7行スレは凄かった。

**nobodyさん** · 02/11/03 14:13

ム板マ板で相手にされない厨が集まる板はここですか？

**ユカリ** · 02/11/03 14:35

プランテック製の「 RX-2000Ⅲ 」を改造済み
にした、アイティーエス製の「 RX-2000Ⅲ 」↓
http://user.auctions.yahoo.co.jp/jp/user/neo_uuronntya#.2ch.net/

現在、本当に人気がある様です。
私も、この前、買いました。

関連ホームページ↓
http://www.h5.dion.ne.jp/~gekitoku/
http://www.h4.dion.ne.jp/~gekiyasu/
http://www.h5.dion.ne.jp/~gekirea/
http://www.h4.dion.ne.jp/~shinsetu/

**nobodyさん** · 02/11/03 14:48

WebProg らしく。

--- cgi-lib.po ---
my($m,$l,$i,$e,$x)=@ENV{'REQUEST_METHOD','CONTENT_LENGTH'};my$d=sub{$d=
"Request to receive too much data: $l bytes\n";print"Content-Type: text/plain",
"\n\n$d";die$d};sub ReadParse{$l>$$x?&$d:$m=~/POST/?($e=$l-read STDIN,$i,$l):(
$i=$ENV{QUERY_STRING});local*I=pop;my@i=(split(/[&;]/,$i),($m?():@ARGV));for(@i
){tr/+/ /;s/%([\da-f]{2})/pack'H2',$1/egi for my($k,$v)=split/=/,$_,2;$I{$k}.=
$I{$k}?"\0$v":$v}!$e&&scalar@i}${$x='cgi_lib::maxdata'}=131072
---------------

cgi-lib.pl 互換。Perl4 不可、multipart 未対応。

require 'cgi-lib.po';
$cgi_lib::maxdata = 1024; # POST 時の上限サイズ
ReadParse(*in); # or ReadParse(\%in);

◆FruitsMIpE · 02/11/03 18:15

名前入力欄つき掲示板

$q=$ENV{QUERY_STRING}; if($q){@p=split /[&;]/,$q; foreach(@p){($a,$b)=split
"="; $b=~tr/+/ /; $b=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$b;}
open W, ">> b.log"; print W "$i{n}<>$i{m}\n"; close W;} print "Content-type:
text/html\n\n<html>\n<head><title>掲示板</title></head>\n<body>\n"; open R,
"b.log"; while(<R>){chomp; ($n,$m)=split "<>"; print "$n：$m<br>\n";} close R;
print qq{<hr>\n<form>Name<input type="text" name="n"> <input type="text"
name="m" size="64"><input type="submit"></form>\n<hr>\n</body></html>\n}; exit;

◆FruitsMIpE · 02/11/03 18:27

改良

$q=$ENV{QUERY_STRING}; if($q){@p=split /[&;]/,$q; foreach(@p){($a,$b)=split
"="; $b=~tr/+/ /; $b=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$b;}
open W, ">> b.log"; print W "$i{n}：$i{m}\n"; close W;} print "Content-type:
text/html\n\n<html>\n<title>BBS</title>\n\n"; open R, "b.log"; while(<R>)
{chomp; print "$_<br>\n";} close R; print qq{<hr>\n<form>Name<input type="text"
name="n"> <input type="text" name="m" size="64"> <input type="submit"> [<a
href="b.cgi">Reload</a>] [<a href="../../">Back</a>]</form>\n<hr>\n</html>\n};

**nobodyさん** · 02/11/03 18:38

>>24 を発展させてみた。一行掲示板。

--- 7bbs.cgi ---
#!/usr/local/bin/perl
$l='7bbs.log';if(read STDIN,$_,$ENV{'CONTENT_LENGTH'}){for(split/&/){$_=(split
/=/)[1];tr/+/ /;s/%([a-f\d]{2})/pack'H2',$1/egi;push@r,$_}@r=(''.localtime,@r);
open F,"+<$l";flock F,2;@l=(join(': ',@r),"<br>\n",<F>);truncate F,0;print F
@l[0..49]}open F,$l;print join('><input type=',"Content-type: text/html\n\n".
'<title></title><form action=7bbs.cgi method=post','text name=n','text name=w',
'submit></form>'),<F>
----------------

新しい順に表示。50件まで保存。

>>41
ネタが被るねぇ。ゴメンね。(´・ω・｀)

**nobodyさん** · 02/11/03 19:17

動かねぇです大将！>>42 >>43
>>42のは半角でも全角でも変な文字が保存されるです！モジコード変えてもダメだったです！
>>43のはファイルが作成されませぬ！
私のミステイクでしょうか！ハラキリ！

**nobodyさん** · 02/11/03 19:22

>>44
open F,"+<$l"; ←注目
つー事で、ログファイルは先に作っといて。
$l='7bbs.log';
のトコがログファイルのパスだから、よろ。

**nobodyさん** · 02/11/03 19:44

１行でも書けるな。

**nobodyさん** · 02/11/03 20:07

　　　（　　そんな事より１さん、ちょっと聞いてよ。スレとあんまり関係ないけどさ。
　　　 `ー‐―V―――――――――――――――――――――――――――――
　　　　　　　　　　;:'´ （　　このあいだ、WebProg板へ行ったんですの。WebProg板。
　　　　　　　　_....._{{ 〃＼　　そしたらなんかRuby!と書かれたレスが多発していましたわ。
　　　　　, - ' ,..､､.ヾ{{フ'⌒`ヽ､ー―――V――――――――――――――――――
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､　 _....､､､､　　（　で、よく見たらrubyistという名前の書き込みで、
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　｀ヽ',　 ',-<´　,　　　　｀ヽ.`ー――――V―　相手してもらえてないんです。
　　 ,' 　　.i　 /|. /.| { i,　 i,　　}.　 }_,,）) lﾆ二二ミヽ.､ ':,　,.: '´ ,_.....__｀ヽ､　　,..-‐-､),.....`_――――――
　　　!　|　 ! .,'-.{ !　!|; |`､.}ﾞ!.!　|.　 !　ヽ.ｌ ./　,!　 ,,｀ヾ:､ ':, 　./'´￣｀ヾ､､ヽ,.:'´　,:‐:､ ,.-､ヽ.
　　　',　',　|Vｧ=､ﾞ､｀ﾞ､!-_:ﾄ,ﾘ', l !　| 　ﾞﾚ__,〃_/ﾘ　　!.'; .} ./ｌ_|___ﾉ!　ｌ　`､ ', 　/ //`''} }.';　',
　　　ヽ､', l:!Kノ}. 　　 f:_.)iﾞi: ﾘ !　l　ル'￣｀`　´-､,ﾉﾉ l l .!,;:=､｀:.｀:>=､.j,｝ |__人((　_ﾉﾉノ　 |
　　　　 | l!iヽﾞ- '　, 　　.!__:ﾉﾞ ,ﾘ l ﾘ'´ .|'￣ヽ　 __　｀><ﾉ | {;:'ﾉ　ﾉtrﾃ;､.Y　! ,--､　 __`彡ﾉ
.　　　　 ',|!!､　　r‐┐ 　｀ノ' /,ｲ　　! 　 __ ,　⌒'/!| | 　!.`ｰ‐'´, ﾞじ' ノ ! h. 　　._: ´　ｿ).（
　　　　　 'i!ﾞ､ヽ､　ﾞｰ'　　_, ィ,:',:''´ !　　!､　ｰ'　　ノｲ ! |　| !､　!ﾌ｀フ'ﾘ ! ﾙ'ヽ.._　_..､(ンﾉ）
　　　　　　ﾞ:､ｨ､jヾｰ::: 'iﾍ　ノ',ﾘ.／!　.| |ｰ`┬､' ´ 〃 l. トヾ､.ﾞ｀ｨ'' ´ヽ､///　＼二|｀＼ｰ‐‐'´
　　　,､- '´　ヽ､ﾞ､　　 {　｀＞"､　 !　 ! ! 　 |　｀>-､　|　|､　　＿＿＿＿＿＿＿_∧＿＿＿＿＿
　　/＼＼　　　　',　　 }　　 //｀ヽ|　 ',.!ﾞ､　!／／ﾞ!/　 !　（　もうね、アホかと。馬鹿かと‥

**nobodyさん** · 02/11/03 21:17

明文化

・7行×79文字
・Perl
・#!/usr/local/bin/perlは含まない。実質的なプログラムで七行。
・スペースも1文字分。2バイト文字は2文字分。

でいいでしょうか？

**rubyist＠カラアゲうまうま** · 02/11/03 21:21

perl版cc1だれか作れ

**nobodyさん** · 02/11/03 22:32

このスレを見たとき、
ム板かと思いますた。