七行プログラミング (452ﾚｽ)
上下前次1-新
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: nobodyさん [ ] 02/11/01 23:58 ID:??? AAS
>>88(2): nobodyさん [sage] 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行にできそーなんだけど、どうでそう？
の
truncate( FILE, tell );
これはどういう意味？
19(1): nobodyさん [sage] 02/11/02 00:07 ID:??? AAS
tell FILE
↑が抜けてるにょ
20(2): nobodyさん [sage] 02/11/02 00:10 ID:??? AAS
print <<7LINE;
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
7LINE
21: nobodyさん [sage] 02/11/02 00:11 ID:??? AAS
>>19
（ ´,_ゝ`） ﾌﾟｯ
22: nobodyさん [sage] 02/11/02 00:19 ID:??? AAS
（； °▽°)FILEなくもいけた〜〜
23: nobodyさん [] 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): （ ´∀｀）ヮ-ィ [sage] 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): nobodyさん [ ] 02/11/02 01:46 ID:??? AAS
動きませぬ
26: 25 [ ] 02/11/02 01:49 ID:??? AAS
あ、動きましたｗ
27: nobodyさん [sage] 02/11/02 02:08 ID:??? AAS
>>1 Perl限定かよ。
28: nobodyさん [sage] 02/11/02 06:30 ID:??? AAS
昔のBASICの１画面プログラムを思い出したよ
29: nobodyさん [] 02/11/02 14:13 ID:1/HvBlpx(1) AAS
Ｄｕｋｅまだ〜？ ﾁﾝﾁﾝ
30(2): nobodyさん [] 02/11/02 17:48 ID:Sny9GkFS(1) AAS
てめーら七行もあるのにその程度のモンしか作れねーのかよ（ﾌﾟ
31: nobodyさん [sage] 02/11/02 17:53 ID:??? AAS
>>30
だからきみのすごい作品を待っています。ハイレベル期待しています。
もうできてる？ 今からつくる？ 今日中には書き込んでくれ。
32: nobodyさん [] 02/11/02 20:55 ID:RJf4RKlR(1) AAS
すごい作品まだ〜？ ﾁﾝﾁﾝ
33(1): nobodyさん [] 02/11/02 21:13 ID:aPBbHnBW(1) AAS
何本気になってんの？
34: 末吉亮介 [] 02/11/02 21:15 ID:MUhjalxS(1) AAS
外部ﾘﾝｸ:plaza.rakuten.co.jp
35: nobodyさん [sage] 02/11/02 22:13 ID:??? AAS
>>33
作れないヤツはすっこんでてね（はぁと
36: nobodyさん [sage] 02/11/03 00:25 ID:??? AAS
>>30は、口だけ大将だったということか・・・
37: nobodyさん [sage] 02/11/03 10:09 ID:??? AAS
実際、Perlだったらかなりのものが出来てもおかしくはないかと。
ム板の7行スレは凄かった。
38: nobodyさん [age] 02/11/03 14:13 ID:??? AAS
ム板マ板で相手にされない厨が集まる板はここですか？
39: ユカリ [] 02/11/03 14:35 ID:8kfSttUc(1) AAS
プランテック製の「 RX-2000? 」を改造済み
にした、アイティーエス製の「 RX-2000? 」↓
外部ﾘﾝｸ:user.auctions.yahoo.co.jp
現在、本当に人気がある様です。
私も、この前、買いました。
関連ホームページ↓
外部ﾘﾝｸ:www.h5.dion.ne.jp
外部ﾘﾝｸ:www.h4.dion.ne.jp
外部ﾘﾝｸ:www.h5.dion.ne.jp
外部ﾘﾝｸ:www.h4.dion.ne.jp
40(2): nobodyさん [sage] 02/11/03 14:48 ID:??? AAS
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);
41(1): ◆FruitsMIpE [sage] 02/11/03 18:15 ID:??? AAS
名前入力欄つき掲示板
$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;
上下前次1-新書関写板覧索設栞歴
あと 411 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.022s