Perlコーディング初心者質問スレ Part 60
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2009/09/03(木) 23:51:12ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ http://pc11.2ch.net/test/read.cgi/php/1234752149/
0519nobodyさん
2010/01/22(金) 14:18:53ID:BvoGYaqcindex.htmlにした方がいいと気づきました。この場合
open(STDOUT, ">c:/xampp/htdocs/ほげほげ/index.html") || die "cannot open index.html";
とやってしまっていいものでしょうか?
実際にやってみた結果は、openは失敗せず、index.htmlも作られないという感じでした。
いまからprint 文を全部書き換えるのは面倒だなと思っているのですが、いい方法無いでしょうか?
0520nobodyさん
2010/01/22(金) 14:40:44ID:???既存のファイルハンドルを指定していきなりopenした場合は、自動的にcloseしてから
openしてくれるので、それでもいいはずだけどな。何か思い違いをしてないかよく
調べた方が良い。
別の方法としては、select FILEHANDLEでデフォルトのファイルハンドルを切り替える、
ってのもあるよ。
0521nobodyさん
2010/01/22(金) 15:37:55ID:???ありがとうございます。
自分でハッシュテーブル書くのにも空白使えないし、
変数引っ張ってくるのも危ないから、やっぱりqwは使わないようにします。
0522nobodyさん
2010/01/22(金) 15:39:36ID:???STDOUTをただ閉じるとApacheとのつながりが切れるのではないかと思いこうしました。
良くは調べてないのですが、教わった方法をやってみました。こちらはうまく
index.htmlが生成されました。ただ画面自体はエラーなんですね…
これをどうしようか悩んでいます。
0523nobodyさん
2010/01/22(金) 17:25:23ID:???こういう事をしたいの?
#!/usr/bin/perl -w
use strict;
use Fcntl qw(:flock);
my $file = './test.txt';
print "Content-Type: text/plain\n\n";
my $fh;
if ($ARGV[0]) { # ファイルへ
open $fh, '>', $file or die $!;
flock $fh, LOCK_EX;
print "$file へ出力しました。";
}
else { # クライアントへ
$fh = \*STDOUT;
}
print $fh 'foo!';
__END__
0524nobodyさん
2010/01/23(土) 08:32:36ID:???それだとあちこちを書き直さなければいけないので、それ以外の方法を模索していました。
結局STDOUTを切り替える前に
Content-type:text/html; charset=shift_JIS
<DOCTYPE>
<html lang="ja">
<html>
<head>
<meta http-equiv="refresh" content="0;url=../hoge">
</head>
<body bgcolor=#ffffff>
</body>
</html>
と出力するようにしました。
0525nobodyさん
2010/01/24(日) 12:30:42ID:h+yaOkgWif($picture) {
# print <<END_OF_MESSAGE;
# <center>
# <img src="$picture" alt="">
# </center>
# END_OF_MESSAGE
}
という部分がCGIにあるのですが、コメントをはずすとファイル終端でエラーがでます。
ヒアドキュメントは見よう見まねで他でも使っているのに、なぜここだけエラーになるのか
ヒアドキュメントについて詳しく書いた本を持っていないのでよく分かりません。
理由分かる方いましたら教えてください。
0526nobodyさん
2010/01/24(日) 12:42:27ID:???if($picture) {
# print <<END_OF_MESSAGE;
# <center>
# <img src="$picture" alt="">
# </center>
# END_OF_MESSAGE
}
END_OF_MESSAGE
きっとこうなってるのさ
0527nobodyさん
2010/01/24(日) 12:47:04ID:???my $picture
if($picture){
print <<END_OF_MESSAGE
<img src="$picture" alt="">
END_OF_MESSAGE
}
だけのファイルを作ってperl -cw してみたんですが
> syntax error at aaa.cgi line 3, near "){"
> Can't find string terminator "END_OF_MESSAGE" anywhere before EOF at aaa.cgi line 4.
とでます。やっぱり意味が分かりません。
なぜEND_OF_MESSAGEが見つからないということになるんでしょうか。
0528nobodyさん
2010/01/24(日) 12:55:26ID:???本がなければperldocを読めばいいじゃない。
http://perldoc.jp/docs/perl/5.10.0/perlop.pod#item__lt__lt_EOF_here_doc_heredoc_here_document__lt__lt_
>>527
my $picture の後ろに ; が無いから。
print <<END_OF_MESSAGE の後ろにもないけど、
これは if ブロック内の最後の文なので省略可能。
0529nobodyさん
2010/01/24(日) 13:06:22ID:h+yaOkgWperldocの最初の方だけ見て
my $picture="c:/xampp/htdocs/hoge.gif";
if($picture){
print <<END_OF_MESSAGE;
<img src="$picture" alt="">
END_OF_MESSAGE
}
と書き直してみましたが、
Can't find string terminator "END_OF_MESSAGE" anywhere before EOF at aaa.cgi line 4.
と出るのはかわりません。なぜでしょうか?
0530nobodyさん
2010/01/24(日) 13:13:42ID:???0531nobodyさん
2010/01/24(日) 13:15:23ID:???だからじゃね
0532nobodyさん
2010/01/24(日) 13:17:58ID:U2dkcd6K恐らくは改行コード・・・
0533nobodyさん
2010/01/24(日) 13:19:28ID:???お騒がせしました。Meadowの blank-mode は
常にオンにしておこうかな…
0534nobodyさん
2010/01/24(日) 14:33:19ID:???難しいこと全部やってくれるからオススメ。
初心者スレだから書いてみた。
0535nobodyさん
2010/01/24(日) 16:59:34ID:U2dkcd6K0536nobodyさん
2010/01/28(木) 23:57:36ID:MprgKrS4Net::FTPを使ってファイルのアップロードを行おうと考えております。
今まではFreeBSDサーバーへのアップロードであったため
$ftp->cwd
$ftp->put
$ftp->ls
などのコマンドが使用出来ましたが、Windows系サーバー（2008R2）
の場合はこれらのコマンドは使用出来るのでしょうか？
どなたかご存知の方いらっしゃいましたらお願い致します。
0537nobodyさん
2010/01/29(金) 00:21:05ID:???それくらいは大丈夫だよ
0538nobodyさん
2010/01/29(金) 00:26:29ID:kJRAFybz0539nobodyさん
2010/01/29(金) 00:49:32ID:XeE9xFHb>>538
接続先OSがwindowsの場合、lsコマンドなどは無いので、FTPのコマンドも
独自のものかと思い質問致しました。
素早いご返答ありがとうございました。
0540nobodyさん
2010/01/29(金) 09:51:16ID:???「キッチンの方の」にマッチさせたくない場合は
どう書けば良いですか？
後ろに「方」が付くかどうかの違いです。
0541nobodyさん
2010/01/29(金) 09:58:46ID:kJRAFybz0542nobodyさん
2010/01/29(金) 10:00:47ID:???否定後読み
正規表現単体の質問ならプログラム板の正規表現スレでやれよ
0543540
2010/01/29(金) 10:09:27ID:???0544nobodyさん
2010/01/30(土) 00:13:34ID:???0545nobodyさん
2010/01/30(土) 00:28:03ID:+AHy4UTdのような感じで、１行に１つの多角形の座標を記述したファイルがあるとして、
任意の XY 座標が、上記ファイルの各行に記述された多角形内に
収まってるかを検索する方法として、なにか検索の定石みたいのはありますか？
GPS 座標からどこに居るのかを地名付きで表示したいと思っています
自治体の面積データは国が配ってるデータを使用します
0546nobodyさん
2010/01/30(土) 00:46:09ID:9jHLZuCt0547nobodyさん
2010/01/30(土) 00:51:18ID:9jHLZuCt0548nobodyさん
2010/01/30(土) 00:55:19ID:???定石かどうかは知らないけど、CPANにこんなのがあった。
http://cpansearch.perl.org/src/MARKOV/Math-Polygon-1.01/lib/Math/Polygon/Calc.pm
polygon_contains_point
まぁ「GPS」とか「Geo」とかでモジュール探した方が良さそうではある。
http://search.cpan.org/
0549nobodyさん
2010/01/30(土) 02:32:59ID:+AHy4UTdありがとうございます m(_ _)m
0550nobodyさん
2010/01/30(土) 02:44:24ID:0KWCr7Sg開発環境: winxp, anhttpd, もしくはBlackJumboDog, ActivePerl5.8.7
状況: ずーっと以前に中途半端に作ったプログラムファイルを見てみたら、いきなり意味がわからなかった。
--------------------------------------------
1: perl -c でコンパイルできない記述が、anhttpdからcgiとして起動させるとなぜか普通に動く。(BlackJumboDogからでも動く)
コマンドから -wc で動かすと以下のメッセージを吐く。
Can't find string terminator "]" anywhere before EOF at - line 211.
(このエラーメッセージ通りの記述ミスはない)
どうゆうケースが考えられますか？ちょっと検討がつきません。
---------------------------------------------
2: htmlだけを出力するcgiを試しに作ってみた。
コマンドから -w で動かすと以下の出力をする。
Content-Type: text/html;charset=Shift_JIS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML><HEAD><TITLE>test</TITLE></HEAD><BODY>
test出力できてます
</body></html>
なぜかanhttpdから動かない。他のcgiはanhttpdで動く。
BlackJumboDogからだと動く。
どうゆうケースが考えられますか？
---------------------------------------------
正直、この手のエラーは頭痛がします。
純粋にperlの質問じゃなくてすみません。
0551550
2010/01/30(土) 04:52:59ID:???よく考えるとヘッダのあとの改行は二つでした。
こんなことを3時間以上も考えるなんて恐ろしい。
1のほうはまだ未解決頭痛続行中です。お願いします。
0552nobodyさん
2010/01/30(土) 05:04:21ID:???> Can't find string terminator "]" anywhere before EOF at - line 211.
> (このエラーメッセージ通りの記述ミスはない) ←これが気のせい
line 211に何かがあるわけじゃなくてもっと手前で閉じるべきもんを閉じてないと
パーサさんが EOF まで探したところで挫折する。
0553550
2010/01/30(土) 05:13:12ID:???そうではなくて今不思議なのは、なぜhttpdから記述を引き渡すとコンパイルされない物がコンパイルされ、
その上エラーメッセージすら吐かずに稼動するのか？と言う所にあります。
0555550
2010/01/30(土) 06:23:33ID:???秀丸から直接コマンド打ってたのですが、UTF8のファイルを開いててもsjisとして扱ってくれてるくさい？です。
秀丸で打ったコマンド → perl -wc <con >con
#↑今開いてる秀丸タブの内容を引数とし、出力結果を新規タブに出力しろと言うコマンド
UTF8として認識させた ー (伸ばす棒)を、
q[ー]; で、UTF8ファイルでもエラーになります。
もちろん 'ー' だとコンパイルされます。
ー はsjisで815b、 ] は5b なので、たぶん断定です。
ただの偶然で違うかもしれませんが、もうめんどいのでこれ以上調べません。
UTF8ファイルからまさかsjisの文字コード問題でハマるとはね。
秀丸死ね。
0556nobodyさん
2010/01/30(土) 06:27:31ID:???んな後出しをするから「内部処理がCP932なんじゃね？」と書いてもらえない
0558nobodyさん
2010/01/30(土) 09:25:08ID:???ここのAPI使う
http://www.geocoding.jp/
0559nobodyさん
2010/02/01(月) 13:06:09ID:???何故WindowsからはNGなのでしょうか？
Winが触ったファイルを回復させる方法は、nkfしか知らないのですが・・・
0560nobodyさん
2010/02/01(月) 13:23:02ID:???いいんじゃないかなぁ
0561nobodyさん
2010/02/01(月) 13:41:59ID:???よく考えたらレンタルサーバにFTPとかでUPする場合、
Win側のテキストエディタで文字コードと改行コード指定するしかないから、
サーバ側の設定の問題かと思ったのですが。
> IIS+VBかなんかに乗り換えた方が
Perl → PHPに乗り換える方が現実的なような。
まぁPerlが何となく好きなんで、もうちょいPuTTY＋vimで頑張りますよ。。。
0562nobodyさん
2010/02/01(月) 14:44:14ID:???0563nobodyさん
2010/02/01(月) 19:10:33ID:???0564nobodyさん
2010/02/01(月) 23:00:00ID:???Winのエディタで作成してFTPでうｐ → Winのエディタで動くってサーバどーなってんの？
鯖のシステムの文字コードをcp932にしたらおｋ＾＾
って話ならお断りしますが。
0565nobodyさん
2010/02/02(火) 10:41:56ID:???LINUXの共有フォルダをドライブでLドラとかにマウントして
タスクスケジュール使って定期的にCドラからLドラにファイルをcpしたら？
あと、windowsにCygwinとかのVM使ってLINUXとして動かす方法もある。
0566nobodyさん
2010/02/02(火) 10:46:28ID:???あと、改行コードがwinだと<CR><LF>
Linuxだと<LF>つーのは当然知ってるよね？
改行コードが違っててLINUX側では壊れたように認識されるってのも
よくある話なので、WIN側で保存する際は間違っても「メモ帳」とか使わない
0567nobodyさん
2010/02/03(水) 01:38:18ID:???0568nobodyさん
2010/02/05(金) 23:38:04ID:???調べてもなかなかケースが見つからないので質問をさせていただきました。
ページA内のボタンを押すと、ページBに飛ぶようにしたいです。
その際、ページBを表示するサブルーチンに、ページAの引数の値を
渡すにはどのようにすればいいのでしょうか？
0569nobodyさん
2010/02/05(金) 23:39:53ID:???0570nobodyさん
2010/02/06(土) 00:10:45ID:???フォーム＋CGIの話だとは思うが･･･････････････････････････････････････・・・・・・・・・・・・・・・
0571nobodyさん
2010/02/06(土) 00:15:59ID:???hiddenで仕込んでおけば。
0572nobodyさん
2010/02/06(土) 04:45:05ID:???twitterで叫んでも爆発しませんでした？
0573568
2010/02/06(土) 17:28:41ID:???cgiのお話です。書き忘れてしまいました。
・・ごめんなさい。
>>571
教えていただいてありがとうございました。
つまり
<input type="hidden" name="***" value="ページBに渡したい引数">
を併記すればいいということですよね？
今試せないのですが、月曜日に学校に行ったらさっそく
試してみようと思います。
ありがとうございました。
0574nobodyさん
2010/02/06(土) 22:25:09ID:???0576nobodyさん
2010/02/07(日) 21:02:36ID:???飛んで来たものが @_ に入ってる状態まで持って行かないと shift では取れないよ。
それよりページAもページBも同一スクリプトの出力だったりするのかな。
0577568
2010/02/07(日) 23:15:29ID:???はい。ページはすべて同一スクリプトです。
各ページはそれぞれサブルーチンに記載しています。
Sub PageA内の<input type="submit" name="to_pageb" value="ページBへ">
でボタンを作り、別記のif($CGI->param("to_pageb")){PageB($CGI);}
というif文でSub PageBに移動させています。
で、Sub PageB内で、my $cgi=shift; $a=shift;で
$aに値をとりだす・・・と考えているのですが、間違ってますか？
全然自信がなくて恥ずかしいのですが
変なことをしてしまっているかもしれません・・・。
0578nobodyさん
2010/02/07(日) 23:19:11ID:???0579nobodyさん
2010/02/07(日) 23:31:29ID:???use strict;
use CGI;
main();
exit;
sub main(){
my $q = CGI->new();
if($q->param('to_pagea')){
pagea($q);
}
elsif($q->param('to_pageb')){
pageb($q);
}
}
sub pagea{
print "Content-Type: text/html;\n\n";
print <<'EOP';
<form action="this.cgi">
<input type="hidden" name="to_pageb" value="1">
<input type="hidden" name="***" value="argument">
<input type="submit">
</form>
EOP
}
sub pageb{
my $q = shift;
print "Content-Type: text/html;\n\n";
print $q->param('***');
}
こういうことがしたいんだろ？
0580Name_Not_Found
2010/02/08(月) 15:43:35ID:5HRzICqcバージョンは5.8.8です。
0581nobodyさん
2010/02/08(月) 15:47:57ID:???0582nobodyさん
2010/02/08(月) 21:01:31ID:???環境でmakeすれば問題なかったりはしないんだろうか?
0583nobodyさん
2010/02/08(月) 21:34:28ID:???1から10までかいてあるようなサイトありませんか？
0584568
2010/02/08(月) 23:11:36ID:???今日試してみました。
hiddenを使って渡して、paramで受け取ることができました。
shiftは駄目でした。
教えていただいてどうもありがとうございました。
とても助かりました。
値の受け渡しについてだいぶわかってきました。
でもたぶんまだ完全に理解していないと思うので、
これから教わったことをじっくり考えたいと思います。
0585nobodyさん
2010/02/10(水) 11:19:20ID:Vw6vWoQu}がどこを閉じているのかも分かりづらいのですが、
perlで書いている人はどんな風に見やすくしているのですか？
0586nobodyさん
2010/02/10(水) 11:25:13ID:???OUT_HTMLを終わる時に先頭にタブがあるとエラーで出るだけで通常は大丈夫なようでした
この部分だけなら我慢しることにします
0587nobodyさん
2010/02/10(水) 11:57:20ID:???スニペットを置くには便利だけど、言うとおりソースが見づらくなるので
__DATA__なりを使うようになるんじゃないかね
0588nobodyさん
2010/02/10(水) 12:21:59ID:BOSF90jMperlのオブジェクトが、ハッシュに戻ってしまいメソッドが呼べなくなる
というバグに悩まされています。どうも見ているとwebにアクセスする
メソッドを読んだ後に他のメソッドを呼ぶと、ハッシュに戻っている気がします。
このようなバグに悩まされた方いらっしゃらないでしょうか?
全く解決法が分かりません。
0589nobodyさん
2010/02/10(水) 13:26:09ID:???WEBプログラミング板に移動したのでこちらは締め切ります。
お前ら使えねえな。
0590nobodyさん
2010/02/10(水) 13:41:06ID:???まともに回答が欲しければ気がしますじゃなくてコードさらして
呼ぶ前と呼ぶ後でこうなってるって示せよ。
0591nobodyさん
2010/02/10(水) 14:23:14ID:???0592nobodyさん
2010/02/10(水) 18:06:19ID:???状態に戻すなんてできるっけ?
別のハッシュになってるような気がするなぁ。
0593nobodyさん
2010/02/10(水) 22:19:58ID:???たぶん別の値で上書きしてるんだろうな。
その変数に代入している所を全部調べてみたら？
0594nobodyさん
2010/02/11(木) 00:37:03ID:???モジュールでそんなエラーがでてるんなら、まずモジュール名書くべきだろ
自分の書いたやつなら、コードさらさないと答えようがない
0595nobodyさん
2010/02/11(木) 00:56:59ID:???ここはエスパーしかお呼びじゃないスレだ
0596588
2010/02/11(木) 00:57:44ID:???foreach(@tmp) {
$_->wget();
}
@New = sort by_LastUpdated @tmp;
という部分があってby_LastUpdatedでUse of uninitialized value in〜が多発して
その後で@Newのメソッドが呼べないといってプログラムが終了します。
オブジェクトを作るのは
sub new {
my ($url) = @_;
my $bbs;
chomp($url);
my $this = {
"OrgUrl" => $url,
};
bless $this, 'Sure';
# $thisのその他の値の設定
…
return $this;
}
って感じです。あとこんな事いうのも馬鹿馬鹿しいですが>>589は
僕じゃありません。それとどうも新しく追加したところを消すと
バグが消えるようなのでそこを確認しようと思います。
どうもありがとうございました。
0597nobodyさん
2010/02/11(木) 01:24:13ID:???どこを切り取っても突っ込む所しか無い。
勘だけで書いたコードを晒されてもどうしようも無い。
無理して似非オブジェクト指向なコードを書くな。
0598nobodyさん
2010/02/11(木) 08:02:25ID:???こりゃお手上げだな、エスパーさん後は
任せた。
0599nobodyさん
2010/02/11(木) 09:48:23ID:???sub new {
my $pkg= shift;
my ($url) = @_;
my $bbs;
chomp($url);
my $this= bless {"OrgUrl"=>$url}, $pkg;
# $thisのその他の値の設定
…
return $this;
}
やりたいことはだいたいこんな感じなんだろうけど、一体どこを参考にして書いたの？
0600nobodyさん
2010/02/11(木) 10:00:20ID:???例えばlocal化されてない$_に代入してしまっているとか
0601nobodyさん
2010/02/11(木) 10:43:17ID:???オプションを何も指定せずに実行すると、横幅がオリジナルよりも2倍近く引き延ばされた状態で出力されてしまいます
これは何が原因でしょうか？
0603nobodyさん
2010/02/11(木) 17:12:52ID:???サーバー上でperl からphpファイルを実行するのはどうすればいいでしょうか
$ans = `php -f post.php`;
print $ans;
print system("/usr/local/bin/php -f /virtual/user/public_html/post.php");
my $PHP = '/usr/local/bin/php';
my $PHP_FILE='/virtual/user/public_html/post.php';
open FH, "$PHP -f $PHP_FILE|";
while (my $x = <FH>) {
print "$x\n";
}
close FH;
この3つ試したんですがphpのソースが表示されてしまいます
サーバーはcoreserverです
0604nobodyさん
2010/02/11(木) 17:55:06ID:???<? PHPコード ?>みたいな書き方が処理されてないだけでは？
0605nobodyさん
2010/02/11(木) 18:37:07ID:???0606nobodyさん
2010/02/11(木) 19:11:25ID:???core特有のCLI版PHPの呼び出し方の問題だからここの管轄でもなくて
レン鯖板の管轄だと思う。暇だからこれやる。
ttp://www.google.co.jp/custom?domains=sb.xrea.com&q=php+cli&sitesearch=sb.xrea.com&hl=ja
0607nobodyさん
2010/02/11(木) 19:53:29ID:???ありがとうこざいます
教えてもらったリンク先を参考に
/usr/local/bin/php5cli でできました!
皆様ありがとうこざいました。
0608nobodyさん
2010/02/14(日) 07:12:06ID:???上記のように書いてみたのですが、エラーが出ます。
二重にクウォートというのは出来ないんでしょうか？
外部コマンドでクォートを必要とする場合はどう記述すべきでしょうか？
0609nobodyさん
2010/02/14(日) 11:27:31ID:???エスケープしろよ
0610nobodyさん
2010/02/14(日) 11:33:14ID:???0611nobodyさん
2010/02/14(日) 11:43:44ID:???system("/usr/bin/hoge", "fuga fuga");
0612nobodyさん
2010/02/14(日) 12:26:01ID:???この板の人は本当に親切で助かります
ちょっとしたことも検索で見つけるのは難しいですね
0613nobodyさん
2010/02/18(木) 01:04:18ID:???use HTML::TreeBuilder;
my $html = get("http://xxxxx");
my $tree = HTML::TreeBuilder->new;
$tree->parse($html);
$tree->eof();
my $a = "東京";
my $b = "$tree->findとか色々やって最終的に 東京 をセット";
print "A $a B $b<br />\n";
print utf8::is_utf8($a) ? 'UTF-8 Flag' : 'not UTF-8 Flag';
print utf8::is_utf8($b) ? 'UTF-8 Flag' : 'not UTF-8 Flag';
-----------------------------------------
上記をCGI処理するとweb上の表示は
A 東京 B 東京
UTF-8 FlagUTF-8 Flag
となります。
両方utf-8のようなのですが、ソースを見ると下記のように2個目の東京が文字化けしています。
A 東京 B ？x6771;？x4EAC;
if( $a =~ /$b/ )としたいのですが、うまくいきません。
文字化け部分を戻したいのですがどうすればよいでしょうか？
htmlコードの取得先はヘッダがshift-jisでした。
※use Encode qw/ decode /; など色々試しましたがよくわからずうまくいきませんでした。
0614nobodyさん
2010/02/18(木) 03:16:49ID:???use HTML::Entities;
print "same.\n" if '東京' eq decode_entities('東京');
0615613
2010/02/18(木) 09:15:46ID:???できました！！
これができずに半日ずっとぐぐったり試行錯誤して結局できてなかったので助かりました。
自分だけでは数日はEntitiesにたどり着けなかったかもしれません。
ありがとうございました。
0616nobodyさん
2010/02/18(木) 18:04:59ID:???どうすればいいでしょうか？。。。
0617nobodyさん
2010/02/18(木) 18:10:31ID:???ＣＰＡＮに聞けや
0618nobodyさん
2010/02/18(木) 18:53:38ID:???■ このスレッドは過去ログ倉庫に格納されています