Perl コーディング初心者質問コーナー Part33
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/03/01 02:46ID:1GeWO7LH【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0413nobodyさん
04/03/14 12:54ID:YQY2sb9a今作ってるBBSのタイトルや文字色などの設定はsetting.cgi
というものに書かれています。
$title = 'BBS';
$color = '#555555';
のように
それを呼び出して変数をセットしていたのですが、use strictを
使った場合はmainパッケージを指定して
$main::title
のようにしないとだめなのでしょうか？
使うたびにいちいち$main::
と記述するのが面倒なのですが・・・
0414nobodyさん
04/03/14 12:57ID:2Zg8YvJb>122 ：root ★ ：04/03/13 21:30 ID:???
>こっちにも貼っておこう。
>916 名前：root ★[sage] 投稿日：04/03/13 21:28 ID:???
>・同時に動くread.cgi数を制限するディレクティブorモジュール
>・負荷(LA)を見てCGI起動を制限するディレクティブモジュール
>
>があったら、誰か教えてください。
http://qb3.2ch.net/test/read.cgi/operate/1078921755/829
http://qb3.2ch.net/test/read.cgi/operate/1078921755/831
http://qb3.2ch.net/test/read.cgi/operate/1078921755/916
0418die($/);
04/03/14 14:24ID:ntUNbT3i気になって朝も起きれません
0419nobodyさん
04/03/14 14:43ID:???0420die($/)
04/03/14 14:48ID:ntUNbT3i0421nobodyさん
04/03/14 17:11ID:???0422nobodyさん
04/03/14 18:06ID:???既存のスクリプトを改造しているのですが、以下のようなことをしようと
思っています。
１）フォームより***.txtといったようなファイルを送信する
２）入力されたファイルを解析して結果を表示する
・・・というものです。
フォームにテキストそのものを書き込む方法ならその値を読み込む
方法なら簡単だと思うのですが・・・
フォーム入力から例えば***.txtというファイルを送信した場合に
これを一旦任意のディレクトリにアップロードして、スクリプト内で
ファイルをopenして処理する以外に方法はないのでしょうか？
0423413
04/03/14 19:33ID:MYhrucqause strict;
としたあとに、
my $val = 10;
print "Content-type: text/html\n\n";
print $val;
exit;
としたところ動きました。どうもありがとうございました。
0424nobodyさん
04/03/14 19:42ID:???>これを一旦任意のディレクトリにアップロードして、スクリプト内で
>ファイルをopenして処理する以外に方法はないのでしょうか？
どうもないらしい。少なくとも俺は知らん。
CGI.pmのドキュメントを読めばわかると思うが、
同じように一時ファイルに保存する分、それがセキュリティの穴になりうる可能性があるとのこと。
まあ、さっと保存してさっと処理してさっと消して、穴になる確率を極力減らす努力をしよう。
0425nobodyさん
04/03/14 19:45ID:wZU93kf10427422
04/03/14 20:14ID:???ありがとうございます。
必死にぐぐってみているのですが、どうもそれらしい資料が見当たらない
のはそういう理由なのでしょうね。
>>424さんいアドバイスいただいたようにセキュリティの穴を作らないよう
素直にテンポラリファイルを作って対処したいと思います。
何分perlの勉強を始めたばかりでわからないことばかりですがひとつひとつ
問題を乗り越えていきたいと思います。
どうもありがとうございました。
0428422
04/03/14 20:21ID:???考えていたのは送信したpostで受けたファイルをいちいち保存しないでそのまま
メモリ上に展開して解析、値を返す、、、ようなことを考えていました。
もっと精進します。
0429nobodyさん
04/03/14 22:25ID:???multipart を自力でデコードすれば原理的に不可能な話じゃないだろう
CGI.pm の man に書いてあるのは、
「CGI.pm はテンポラリファイルを作るので盗聴の恐れもあるんだよ」ということで、
本来はテンポラリファイルを作らず自力でデコードする方がセキュリティは高い。
なんだが、自力でデコードするのがめんどいので、
たいていみんな「盗聴されてもいいやー、どーせuploaderだしぃ」とか妥協して
CGI.pm に頼ってしまうわけだ。
自力でデコードするなら、
ttp://www.hk.airnet.ne.jp/~ahero/cgi/cgiex11.html
あたりを参考にしてみては。
0431nobodyさん
04/03/15 00:31ID:???それはともかく、アップローダーとかなら見られても問題ないが、
そうでないなら自力でデコードするべきということだな。
つーか何でCGI.pmが危険を承知でそんな設計になってるんだ？
0433nobodyさん
04/03/15 01:07ID:???0434nobodyさん
04/03/15 01:15ID:???外から不可視のディレクトリ内に作らせるようには出来ないのかい。
0435nobodyさん
04/03/15 01:37ID:???できるんだけど、その場合でも CGI プロセス自身からは見えないとまずいので、
そういうパーミッションのディレクトリにせざるを得ない。
で、suexec 使ってない apache だと、全ての CGI プロセスから丸見えってことだよね、
とかそういう話。
man CGI にも 「suexec にしる」 と書いてあるんだが、
mod_perl な人とかは suexec できないので辛いよな。
0436nobodyさん
04/03/15 02:14ID:???ファイルに書き込むときには使ったほうがいいんですかね?
いまいち必要かがわからないので誰か教えて…
0437nobodyさん
04/03/15 02:32ID:L0Oup+5/# SQLの発行
$sql = "select no, date, standard, exception, company, address, quality, class, url from $tblname where del = 0 order by no";
$result = $conn->exec($sql);
# 行数、フィールド数の取得
$rows = $result->ntuples;
$fields = $result->nfields;
# データファイルを作成
for($r = 0; $r < $rows; $r ++)
{
for($f = 0; $f < $fields; $f ++)
{
$v = $result->getvalue($r, $f);
$data .= qq|$v\t|;
}
chop($data);
$data .= qq|\n|;
}
print "Content-type:text/plain\n\n";
&jcode::convert(\$data, 'sjis');
print $data;
ここで、実際にIEでダウンロードすると、当たり前といえば当たり前ですが、ダウンロードファイル名がデフォルトでスクリプトのcgiファイル名となってしまいます。
一度、サーバーにファイル書き出しして開いて送ればいいのですけど、それをしないで好きなファイル名でダウンロードできるようにする方法ありますか？
perlというより、CGIですが。。
0438422
04/03/15 02:40ID:???お礼が遅くなってｽﾏｿです。教えていただいたリンク先ですが。。。
当方にはまだまだ敷居が高そうですが、今後の参考にさせていただきます。
>>436
未熟者が語るようなことではありませんが、例えば１つのファイルに複数の
書き込みがあったとしたらどうなると思います？
何らかの制御をして順番を決めないと競合してファイルが壊れてしまうはずです。
そのためにロックして１つの書き込みを処理している間は他の書き込みをロック
して防ぐことでファイルの破損を防ぐ。。。ということだと解釈していますが。
諸先輩方、いかがでしょうか？
0440nobodyさん
04/03/15 02:55ID:???ファイルロックは書き込み処理の寸前にするのでしょうか?
またflock($fp,LOCK_UN);といった感じでロックを開放する処理も書き込み後行った方がいいのでしょうか?
0441422
04/03/15 03:17ID:???ありがとうございます。
>>440
ファイルをopenする前にロック、closeしてから開放しないと
ロックする意味がないと思われますが？
http://www.google.com/search?q=%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB+%E3%83%AD%E3%83%83%E3%82%AF+%E3%81%A8%E3%81%AF&sourceid=opera&num=0&ie=utf-8&oe=utf-8
で
http://216.239.53.104/search?q=cache:JjxLPe-vA5IJ:tohoho.wakusei.ne.jp/wwwcgi8.htm+%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB+%E3%83%AD%E3%83%83%E3%82%AF+%E3%81%A8%E3%81%AF&hl=ja&ie=UTF-8
のような感じでしょうか。
0443nobodyさん
04/03/15 04:19ID:???>440-441
基本的には「ロック > 処理 > アンロック」、
例えば一つのファイルを更新する場合は「ロック > 読み > 書き > アンロック」
の順番が守られていれば、open() はロックの先でも後でも良い。
#ロックの方法論は別の話
現に、flock() は以下のようにして使う。
open(FILE, 'file.dat');
flock(FILE, 2); # ロックは open() の後
..
#読み書き等の処理
..
flock(FILE, 8); # アンロック
close FILE; # そして close()
ロックスレは途中荒れてるが読んでみると良い。
0444nobodyさん
04/03/15 04:23ID:???0445nobodyさん
04/03/15 04:39ID:???ブラウザ依存だけどこんな感じのを吐けばいい。IEなら動く
Content-Type: application/octed-stream
Content-disposition: attachment; filename=xxx
0447nobodyさん
04/03/15 09:46ID:???同じ時間になってしまうことはあるのでしょうか。
$key = time(); こんな感じで。
0448nobodyさん
04/03/15 09:56ID:???0450nobodyさん
04/03/15 11:59ID:???line 27のハッシュの使い方がまずいようなのですが、いまいちわからず何が悪いのかわかりません。
環境はWinXP + Active Perl 5.6 + An HTTPDです。
0451nobodyさん
04/03/15 12:01ID:???BEGIN {
use CGI::Carp qw(carpout fatalsToBrowser);
carpout(STDOUT);
}
# 画像ファイルのサイズ制限（ＫＢ）
$img_max = '100';
# 画像を保存するディレクトリー
$images = '画像を保存するディレクトリー';
use CGI;
$query = new CGI;
$filename = $query->param('File');
# ファイルを読み込む
while(read($filename, $buffer, 2048)) {
$file .= $buffer;
$file_size ++;
if($file_size > $img_max / 2) { &Error("ファイルサイズが大きすぎます"); }
}
0452nobodyさん
04/03/15 12:02ID:???$type = $query->uploadInfo($filename)->{'Content-Type'};
if ($type =~ /jpeg/i) { $ext = 'jpg' };
elsif ($type =~ /gif/i ) { $ext = 'gif' };
else { &Error("その形式の画像ファイルは保存できません"); }
$new_file = "test" . ".$ext";
# ファイルを指定ディレクトリにコピー
open(OUT, "> $images/$new_file");
binmode(OUT);
print(OUT $file);
close(OUT);
chmod(0666, "$images/$new_file");
# 完了メッセージの表示
print <<END_OF_HTML;
Content-type: text/html
<HTML>
<BODY>
ファイルのアップロードに成功しました。
</BODY>
</HTML>
END_OF_HTML
exit;
0453450
04/03/15 12:24ID:???このソ−スではファイルの入力部分のhtmlが不足していました。
書き足したところ上手くできました。お騒がせしました
0454nobodyさん
04/03/15 13:47ID:L0Oup+5/おおお。うまくいました。ありがとうございます！
0455nobodyさん
04/03/15 15:01ID:gPR3Vlyr@number=("1","3","7","16",,,);
のように、まったく規則性が無い数値が大量に入っている配列があるのですが、
この中から最大値および最小値を取り出す場合、何かいい方法は無いでしょうか？
0457T.K
04/03/15 16:03ID:???sortを使う。
-----------
sort @number; #@numuberを並び替える
$max = $number[0];
$min = $number[$#number];
0458nobodyさん
04/03/15 16:20ID:???> 質問です。
> @number=("1","3","7","16");
> のように、まったく規則性が無い数値が
クオートしてたら文字列だろ、
@number=("1","3","7","16");
print ((sort@number)[-1]);# 7、と表示する。
0459458
04/03/15 16:31ID:???> >>455
> > 質問です。
> > @number=("1","3","7","16");
> > のように、まったく規則性が無い数値が
@number=("1","3","7","16");
print ((sort{$a <=> $b}@number)[-1]);# 16 と表示する
# 明示的に数値として比較する必要がある
0460nobodyさん
04/03/15 16:32ID:???sort{$a <=> $b}(@number);
0461450
04/03/15 16:41ID:???でPerlの実行ファイル***.cgiをアップロードしたのですが、アップロードした
ファイルがInternal Server Errorとなり動きません。
まったく同一なファイルをCGI.pmでアップロードしない場合は問題なく動作します。
そこでCGI.pmでアップロードしたファイルを開くと改行コードはCR+LF、文字コードも
Shift_JISで問題ありませんでしたが、改行が増えた状態になっています。
どうやらアスキーではなくバイナリでアップロードされているようだったので、
ググって調べてみたところHTMLファイルのエンコードタイプが
multipart/form-data ではバイナリデータしか送れないことがわかったので、
application/x-www-form-urlencoded と変えました。
これでアップロードすると改行が増えることなく元のファイルとまったく同一
にアップロードされているようです。
しかしそれでもアップロードしたファイルは起動できずエラーになります。
さらに調べてみたところ、
＞フォーム中に <INPUT type="file"> を含む場合は "multipart/form-data" を使用して下さい。
ということが書かれてありました。
原因はどうやらエンコードに問題があるようなのですが、この矛盾した状態でどうやったらファイルを
アップロードが正しくできるのでしょうか？
0462450
04/03/15 16:43ID:???multipart/form-data ではバイナリデータしか送れないことがわかったので、
application/x-www-form-urlencoded と変えました。
抜けていましたが、htmlファイルのフォームの記述のことです。
<FORM ACTION="./upload.cgi" ENCTYPE="application/x-www-form-urlencoded" METHOD="POST">
0463nobodyさん
04/03/15 17:00ID:???アップローダースレ
http://pc2.2ch.net/test/read.cgi/php/1022299892/
0464458
04/03/15 17:03ID:???LFなファイルをそんまま送ればいいじゃねえの？
俺なんかEUC-JP LFで作ってそんまま生で送ってるよ
asciiモードなんか使わない、めんどくさいし間違いの元
0465450
04/03/15 17:07ID:???CGI.pmに関することだからと思ってこちらに書き込ませてもらいましたが、
仰るとおりですね。スレ違い失礼しました。
>>464
どうもありがとうございます。試してみます。
0466nobodyさん
04/03/15 17:08ID:???0468nobodyさん
04/03/15 20:00ID:???use List::Util qw(max min);
...
my ($min, $max) = (min(@number), max(@number));
0469nobodyさん
04/03/15 21:41ID:???$url = 'ココ';
if ($url =~ m|http://*******.***/****/***/|) { print "含まれています"; }
else { print "含まれていません"; }
で出来るかなと思ったんですが、「ココ」を『今いるページのURI』という指定にしたいんですが、
どういう指定をすればいいんですか？
ちなみに、ここを参考にしました。
→ http://www.kent-web.com/perl/chap7.html
0470nobodyさん
04/03/15 22:11ID:???意味がわかんねえよ。
「今いるページのURI」ってなんなんだよ。
CGIでやってるなら、それはCGIを設置してるURIに固定だろ。
それともローカルで実行させるスクリプトのことか？
IEと連動させて、IEのアドレスバーの内容を読み取りたいってことか？
0471nobodyさん
04/03/15 22:16ID:???0472nobodyさん
04/03/15 22:25ID:???……そうなの？
"http://$ENV{HTTP_HOST}$ENV{REQUEST_URI}"
で、確かにリクエストされたCGIのURIになるけど、けどしかし、それがどうしたんだろうか、と。
0473nobodyさん
04/03/15 22:33ID:c+xa9RILs/[0-9]*.[0-9]*.[0-9]*.[0-9]\/[0-9]*/置換したい文字列 と書きました。しかし一部
134.置換した文字列 という風にアドレスが一部残ってしまいます。
色々正規表現を変えてみたのですが、うまくいかず困ってます。
というか、やはり上の書き方がわるいのでしょうか・・・？
0474469
04/03/15 22:38ID:???if ($url =~ m|http://**********.net/|) {
print "含まれています";
} else {
print "含まれていません";
}
これで出来ました！
>>470さん>>471さん>>472さんありがとうございました！
0475nobodyさん
04/03/15 22:39ID:???$ip =~ s/\d+\.\d+\.\d+\.\d+\/?\d*/$replace/;
こうじゃねえの？
[0-9]とするよりは、\dを使った方が専用の仕組みを使っている分速い（らしい。ベンチとったことない）
*だと、直前の文字が0個でも引っかかる。ので、必ず数値があるのがわかっている場合は、+を使う。これなら1文字以上の意味になる。
.は「任意の文字」つまり「なんでもいいから一文字」の意味になるので、ドットの意味で使う時はエスケープ(\.)する。
つか、正規表現を勉強しなおすか、正規表現スレに行ってくれんか？
0478nobodyさん
04/03/16 00:15ID:???ええ、負け惜しみですよ
0479nobodyさん
04/03/16 01:03ID:N9sS5GGBtaro<>100<>aho
jiro<>150<>jinan
sabuchan<>40<>kitajima
それを
@usr_name, @usr_pts, @usr_memo
に格納してあります。
$usr_name[$i]さんの点数＝$usr_pts[$i]（備考：$usr_memo[$i])って感じ。
usr_ptsでソートしてファイルを書き換えたいのですが、
簡単にできる関数ってありませんか？
自分で作るしかない？
0480nobodyさん
04/03/16 01:17ID:???0481nobodyさん
04/03/16 01:17ID:???データの持ち方が変、だと思う。
そのデータなら、
while ( <FILEHANDLE> ) {
chomp;
@line = split /<>/;
push @user, { map { $_=>shift @line } qw( name pts memo ) };
}
こんな風に読み込んで、
$user[$i]->{name}さん。
$user[$i]->{pts}点
備考：$user[$i]->{memo}
とアクセスした方がよくね？
ま、人それぞれだが。
で、このデータの持ち方なら、sortでいける。
@new_user = sort { $a->{pts} <=> $b->{pts} } @user;
降順（点数の高い順）なら、
@new_user = sort { $b->{pts} <=> $a->{pts} } @user;
書き込む時は、
foreach $user ( @user ) {
print FILEHANDLE split /<>/, map { $user->{$_} } qw ( name pts memo );
print FILEHANDLE "\n";
}
現在のデータ形式にこだわりたいのならば、色々方法は思いつくけど、
面倒臭くてバグが入り込みやすいのでオススメできない。
0482479
04/03/16 01:21ID:???丁寧にありがとうごじゃいます。
ご指導の通りその方法でやってみます！thx!
（´-｀）.｡oO(コードの他のところに影響出るんだろうなぁ。。。
0483nobodyさん
04/03/16 01:28ID:???$query =~ tr/&=/\0/;
$query =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg;
%in = split(/\0/,$query);
じゃ駄目ですか？
0484nobodyさん
04/03/16 01:37ID:???あー。7行プログラミングスレで出てきたねー、それ。
その方法だと、
<input type="text" name="name">
<input type="text" name="name">
このように同じname属性を持つフォームが複数あった場合、
競合してどれか一つの値のみになってしまう。
それを覚悟の上ならば、別に問題はないと思う。
0485481
04/03/16 01:39ID:???foreach $user ( @user ) {
print FILEHANDLE join(/<>/, map { $user->{$_} } qw ( name pts memo ));
print FILEHANDLE "\n";
}
# split と join じゃ正反対だっての……＿|￣|○
0486479
04/03/16 02:01ID:???ノ|）
＿|￣|○ <し
0488nobodyさん
04/03/16 09:11ID:???ログからデータを読み出すときに、
open(DATA,"<$log");
@line=<DATA>;
foreach$temp(@line){
($hoge,$bar,$foo)=split(/\t/,$temp);
print"$hoge,$bar,$foo";
以下処理
}
と書いているんですが、いちいちsplitの時に変数を決めずに
foreach$temp(@line){
@data=split(/\t/,$temp);
print"$data[0],$data[1],$data[2]";
以下処理
}
のように配列に突っ込んでその中身を見るほうが速かったりしますか？
0490nobodyさん
04/03/16 11:04ID:???Googleで
Perl ベンチ
とかで調べてみたのですけど、よくわかりません。
0492nobodyさん
04/03/16 11:32ID:???普通に考えて
わざわざ配列にsplitで切って突っ込んで
また配列から切り読みするよりかは
変数決めた方が早いっしょ？
しかし、100万ループくらいさせて
微妙にベンチに差が出る程度かと
0494nobodyさん
04/03/16 11:55ID:bxdLayrhmy @aParamlist = &get_aParamlist($hoge);
sub get_aParamlist{
my $strhtmlbody = shift;
（中略）
return @aParamlist;
}
配列の変数@hogeを渡すときはどのようにすればいいのでしょうか？
my @aParamlist = &get_aParamlist(\@hoge);
のように参照渡しというのをやることはわかったのですが、
my $strhtmlbody = shift;
に該当する、変数@hogeを受け取る部分の書き方がわかりません。
どなたか教えていただければ幸いです。
0495494
04/03/16 12:01ID:bxdLayrhmy @$aParamlist = shift;
とやることはわかったのですが、
この配列の最後の要素はどうやって取得するのでしょうか？
（普通なら$#ARRAYとやるところ）
0496458
04/03/16 12:13ID:???> すいません。
> my @$aParamlist = shift;
>
> とやることはわかったのですが、
> この配列の最後の要素はどうやって取得するのでしょうか？
> （普通なら$#ARRAYとやるところ）
普通に考えてやってみれ
0497494
04/03/16 12:19ID:bxdLayrhmy $aParamlist = shift;
print $#$aParamlist;
0498nobodyさん
04/03/16 12:23ID:???単に最後の要素を取得したいだけだったら
$$aParamlist[-1] でも良いような。
0499nobodyさん
04/03/16 12:29ID:???もうそういう質問はスルーでいんじゃね？
0500nobodyさん
04/03/16 13:07ID:???0501nobodyさん
04/03/16 13:57ID:cS+tmipmあるモジュールをインストールして上記の行でエラーが出ます。
perlのバージョンが古い為にqr<>記法に対応していない為と思われますが、
どんな書き方に改めれば大丈夫ですか？
またそれに伴って$Addr_spec_reを使ってる正規表現の箇所にも変更必要なら
教えていただけませんか？
いろいろ調べたのですがよくわかりませんでした。
0502501
04/03/16 14:11ID:???普通に
$Addr_spec_re = qq<$local_part\@$domain>;
ってクオートしちゃいました。
コンパイル済みにならない、ってだけですよね。
0503nobodyさん
04/03/16 14:36ID:DnhEtv1I（ 人＿＿＿＿）
|ミ/ ー◎-◎-）
（６ (_ _) ）
＿|/ ∴ ノ ３ ﾉ
（＿_/＼＿＿＿＿_ノ＿←クソスレ立てた>>1
/ （＿_）） ）)| |
[]＿_ | | 鋼錬命ヽ | |
｜] | |＿＿＿＿＿_）_）
＼_.（＿_）三三三[国]）
／（＿）＼::::::::::::::::::::|
｜Sofmap..|:::::::::/:::::/
|＿＿＿＿|;;;;;;/;;;;;/.
（＿＿_|）＿_|）
0504nobodyさん
04/03/16 14:37ID:DnhEtv1I/::::::::ｽｰﾊﾟｰｱﾆｵﾀ＼〜ﾌﾟｰﾝ
|::::::::::::::::::| 持た猿｜〜ﾌﾟｰﾝ ←>>1
|;;;;;;;;;;ノ∪ ＼,) ,,／ ヽ〜
|::（ 6∪ ー─◎─◎ ）〜 ／￣￣￣￣￣￣￣￣￣￣￣￣
|ノ （∵∴ （ o o）∴）〜 ＜ PERLPERL！！
| ∪< ∵∵ ３ ∵> ﾑｯｷｰ! ＼＿＿＿＿＿＿＿＿＿＿＿
＼ ⌒ ノ＿＿＿＿＿
＼＿＿＿＿_／ | |￣￣＼ ＼
＿＿_／ ＼ | | |￣￣|
|:::::::/ ＼＿＿＿ | ＼| | |＿＿|
|:::::::| ＼＿＿＿＿|つ⊂|＿_|＿＿／ ／
|:::::/ |￣￣￣￣| 〔￣￣〕
ｶﾀｶﾀｶﾀｶﾀ
0505nobodyさん
04/03/16 14:37ID:DnhEtv1I_,..--―‐--.、
/ ,;ﾍ ヽ
i i ! ｉ
+ i ヽ(） ! i
i _, ､<_ ｀ ｙ､
+ 〈.´=.! ｀ ｀=´ 6.）
.! '''.|＿,! ''' 〈 |'´! 救出成功
＿_,..-‐!(_,-―-､__,) ' ,! ｉ.
_,.ｒ'´￣ ヽ､. !｀ｰ'Ｔー' _,ｒ'´ i､._
_,..ｒ'´,,.... _ ヽ ｀ヽ､＿,..-‐´ ｀ヽ､
,'´ _,ｒ'´ ⌒ヽ< /_∠､_ 〃′ ＿_ ｀ヽ､
i ,ｒ'´ ｀ ｀/ ⌒ ⌒ヽ'￣ ｀ヽ ｀)、
!_ ⌒/ ,ｒ'´￣ _ , ;;,,, ヽ.
,ｒ' ,′ / ヽ、 i
/ ∧ ,′ ′ !
,i ∧/ ﾟwﾟ; Vヽ i ,,、,),、 ,､_ ,. !
!/ ト､_,.-‐´ ｀､ 〃/ﾉ''ﾍヾ Ｙ'´ Ｙ
,ｲ ⌒ヽ、 ,!、 ｀ ‐ ､. ゞ∽(|iｿ;ﾟДﾟ)ﾘ ｀i
_ノ、 Y､i、 _,..-―-.､_ ｀ ヽ ､＿,.-l,i .l !
./ .!、 ｀ト､_ ＼!' ｀ヽ､_ ,; ｲ il , i __､ ）
〈 ヽ ｀ヽ､_. ｀ヽ、 、 ､_人 Y 〉 ' V
｀、 ヽ、 ヽ、>ー-- !＾ ,l､|_, ! !
｀;､ ` ＼＿_,..--..、 ヽ ',ｒ'´ 〈. !
パンチ５分の２
0506nobodyさん
04/03/16 14:38ID:DnhEtv1I/（ / （ ／i ／￣￣￣￣￣
（ ヽ､ { ∧__∧ （ （ ＜ キック２分の１に勝てるとでも？
)ヽ`ｰ､ ＼ （ ´_ゝ`） ﾉ ） ＼＿＿＿＿＿
（ ＼ ） ） / <__ｲ ／／⌒,フ
／⌒`ヽ､`（ （ ⌒ヽヘ､ﾌへ' ／~ ,､
i/⌒＼ ヽ ヽ ＼ヘしﾍ_ﾉ ﾉ/ ⌒`ー' ）
ヽ `〜⌒> ゝ--ｲ⌒ ／⌒`ｰ'~
八 `フ⌒ﾍ/ |へイ
( `ー'~ ,へ{ _ﾉ |ﾍ､ ヽ _ノ ）
`ー―'' ~ | / / ヽ＿ノ
| / /
( ) )
| | ｲ
| |. |
/ |ﾍ＼
∠／ ￣
0507nobodyさん
04/03/16 14:39ID:DnhEtv1I／ミミミヾヾヽ､＿
∠ヾヾヾヾヾヾjj┴彡ﾆヽ
/ , -ー‐'"´´´ ヾ.三ヽ
,' / ヾ三ヽ
j | ｽﾐｽ / }ミ i
| | / /ミ !
} | r､ l ﾞiミ __」 何か不愉快か？ｱｿﾀﾞｰﾝｿ君
|]ﾑヽ､_ __∠二､__,ｨ|/ ｨ }
| ◎ ￣｀ﾐｌ==r'´ ◎ / |lぅ lj
「!ヽ､_____j ヽ､＿ -' ﾚ'r'/
`! j ヽ j_ノ
', ヽU_ U┘ ,i
ヽ ___'...＿_ i ハ__
ヽ ﾞ二二 ` ,' ／／ 八
ヽ ／'´ / ヽ
|ヽ､＿_, '´ / ／ ＼
0508nobodyさん
04/03/16 14:40ID:DnhEtv1I( ⌒) ∩_ _ ／
＼ /,. ﾉ i .,,E） ／
＼ / ＠＠＠ / /" ／
＼ / / _、_ ＠ ／ ノ' ／
＼＼ あんたら＼ （. ﾉ` ）／ ／.|＠＠＠
＼＼＼ ＠＠＠ ＼.∧∧∧∧／ |#_、_ ＠
(⌒＼＠# _、_＠ ＜ 母 ＞ | ﾉ` ） ＰＥＲＬばっか
＼ ヽヽ( ﾉ`) ＜ 者 ＞ |. ＾ やってないで
(mJ ^ ⌒＼ ＜ の ＞ と ）
─────────＜ 予 ＞───────────
＠＠＠ ＜ 感 ＞ ＠＠＠ OK。,;⌒⌒i.
＠＃_、_ ＠ ＜ !!! ＞ ＠#_、_ ＠⌒ヽ( ;;;;;)
（ ﾉ`） ／∨∨∨∨＼ （ ﾉ`） と)
／|| ＾ ||＼. ／ ＠＠＠ ＼ /⌒ ^ ｜ ｜.| |/ |;,ノ
〈|ﾟ￣￣ﾟ| ﾄﾝﾄﾝ.／ ＠ _、_ ＠. ＼ ｲ （ ）| / .,i
ヽii＿_ﾘ / ／ （ ﾉ` ） 私の ＼ / V￣V | | ,,i;
._ヽ||)とノ￣／ ／ ＾ ＼ 時代が ＼ ＼,,,丶, | |,,,;
.ililili二l／ / /￣￣￣￣/ .＼ ＼ ,,
＿_(__ﾆつ/ FMV /＿＿
＼/＿＿＿＿/
0509nobodyさん
04/03/16 14:41ID:DnhEtv1I,,.=''";;;//ミ';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ヽ
/;;;;;;;/彡'⌒ヽ!;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;'､
,';;;;;;;//〃 l;;;;l'､;;;;;;;;;;;;;;;;;;;;;;;;;;;',
,';;;;;;;;|/〃 '､;! '､;;;ヾ;;;;;;;;;;;;;;;;;;;',
,';;;;;;;;;;l〃-=､,, ヾ、ヾ、ヾ;;;;;;;;;;;;;;;;;!
/;;;;;;;;;;;;;;ヽ斗≡ﾐﾄ''゛ ゞ≦气ミ 〉;;;;;;;;;;;!
{;;;;;;;;;;;;;;;;;;;', ゞ;;;;'ﾞ ` |! ';;;;シ/;;;;;;;;;;;;;;} 俺が今日からお前達をコーチすることになった宗方仁だ！
ヾ;;;;;;;;;;;;;;;;;;', || !;;;;;;;;;;;;;;ﾉ >>3、立て！コートで休むな！
!;;;;;;;;;;;;;;;ﾘ _!! !/;;;;;;;;;/ >>4、膝のタメが甘ァいッ！
!;;;;;;;l;;;;;;/ /::i /;;;;;;;ノ >>5、腰が引けてる！
';;;;;;;|;;;;;/ ,. -ﾆ-､ ｆ;;;;;;;/ >>6、部外者は口を出すな！
>;;;ｌ;;;;∧ `ー ‐‐' !;;;;;/ >>7-1000、ダッシュ100回！ ５セット！
,ノ:.:`ル' >--､ ￣ ／;;;ノ
_____,,,. -‐''":.:.:.:.:.:.ヽ ／r/7/ ＼ ,, イ/;／!
／/:.:.:.:.＞､ヽ ヽ:.:.:.:.::／_/7７/ ｝ /｀´ /ｼ:.:.:.:.ヽ、
／ｌ /:.:.／:.／:.ヽ:.ヽ >' _/7７７/ ./ /|´!:.:.:.:.:.:.:.ヽ、
/:.:.:ｌ l／:.／:.:.:.:.:.:.:';.:.:>' _/77７７/ ｝ / / ヽ|:.:.:.:.:.／,.-｀ｌ
|:.:./ｌ ｌ／:.:.:.:ヽ､:.:.:.／ _/７７７７/ ./ ,' !:.:.:.:/ /! ﾄ､
!:/://:.:.:.:.:.:.:.:.:.:.>' _/777７７７/ ｝ ∧ ! !l:.:./ /､| |:.::',
0510nobodyさん
04/03/16 14:42ID:DnhEtv1I＿＿＿
／ ＼ ＿＿＿＿＿＿＿＿
/ ∧ ∧ ＼ ／
| ・ ・ | ＜ さぁてパソコンしか脳のないＰＥＲＬでも作るか
| ）●（ | ＼＿＿＿＿＿＿＿＿
＼ ー ﾉ
＼＿＿＿_／
／ ＼
｜ ＼ ＿＿＿＿
| ＼ ＼ // //
｜ ＼ ＼ // //
｜ ＼ ＼ // //
｜ ＼ ○―――――）
｜ |￣￣￣￣匚￣￣￣￣￣|
￣￣￣￣￣￣￣￣ ￣￣
0511nobodyさん
04/03/16 14:43ID:DnhEtv1I／ ヾ''" ~`ヽ
／ _,,,... ヽ;: ／""ヽ ヽ
/ ;'" "＼ l /;:;;:::-'''ヽ, i
/ /::::::::-'''''"~ ヽ, .|
／ ／;:;;:::''' ヽ ヽ
| | ヽ |
/ ;/ 、 ,/ ヽ i,
/ ;:;:ヽ ＼, / ヽ i,
i / ）（ ＼, 、 ,/ , ヽ ヽ
| | ⌒ ,,＿＿＿＼l,::,l/＿＿＿| |
| |. ー-ゞ'-'"＞><ー-ゞ'-'"'| |
| ;:| '""^ 、 | |
| ヽ. ゝ( ,-､ ,:‐､） | |
| ／ヾ.. / ヽ | |
| | ./ゝ二ﾆﾆﾆﾆ二、 | |
.. | `､ヽ へ"＼┼┼┼ノ/ / |
| ヽ＼ `＼￣￣￣ノ / |
| l `ｰ-::､_ "￣￣" ,,..'|ヽ./
ヽ. :人 ／`ー――''''' /
/;:;:;:;;:;:;: ＿／
わ し の パンチ５分の２をくらっておい で
何 さ ら し と ん じ ゃ キ サ マ ラ
0512nobodyさん
04/03/16 14:46ID:???■ このスレッドは過去ログ倉庫に格納されています