七行プログラミング (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勉強中の身ですー
11(1): ◆hMJAPH9PWA 02/11/01 20:47 ID:??? AAS
と思ったらバグがあった。後半の処理全部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"
12(2): 02/11/01 21:11 ID:??? AAS
>>11
でも、読みにくいね
13: [age] 02/11/01 21:44 ID:??? AAS
>>12
読みやすさを追求してるわけじゃないんだけどね
趣旨を理解してよ
14(2): 02/11/01 22:14 ID:??? AAS
ああ、; までで1行ってわけじゃないんだ。
15: [ ] 02/11/01 22:27 ID:??? AAS
やっぱカウンタぐらいしかできないか。
16: 02/11/01 23:05 ID:??? AAS
ム板かと思った。
17: rubyist＠カラアゲうまうま [ｓｓｓｓｓ] 02/11/01 23:14 ID:??? AAS
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";}}
18: [ ] 02/11/01 23:58 ID:??? AAS
>>8の
truncate( FILE, tell );
これはどういう意味？
19(1): 02/11/02 00:07 ID:??? AAS
tell FILE
↑が抜けてるにょ
20(2): 02/11/02 00:10 ID:??? AAS
print <<7LINE;
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
7LINE
21: 02/11/02 00:11 ID:??? AAS
>>19
（ ´,_ゝ`） ﾌﾟｯ
22: 02/11/02 00:19 ID:??? AAS
（； °▽°)FILEなくもいけた〜〜
23: 02/11/02 00:51 ID:TEd9xaNd(1) AAS
echo "aho1"
echo "aho2"
echo "aho3"
echo "aho4"
echo "aho5"
echo "aho6"
echo "aho7"
24(1): （ ´∀｀）ヮ-ィ 02/11/02 01:25 ID:??? AAS
掲示板でけた〜〜
#!/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>';
25(1): [ ] 02/11/02 01:46 ID:??? AAS
動きませぬ
26: 25 [ ] 02/11/02 01:49 ID:??? AAS
あ、動きましたｗ
27: 02/11/02 02:08 ID:??? AAS
>>1 Perl限定かよ。
28: 02/11/02 06:30 ID:??? AAS
昔のBASICの１画面プログラムを思い出したよ
29: 02/11/02 14:13 ID:1/HvBlpx(1) AAS
Ｄｕｋｅまだ〜？ ﾁﾝﾁﾝ
30(2): 02/11/02 17:48 ID:Sny9GkFS(1) AAS
てめーら七行もあるのにその程度のモンしか作れねーのかよ（ﾌﾟ
上下前次1-新書関写板覧索設栞歴
あと 422 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.012s