くだすれPerl(超初心 ..
261:nobodyさん
07/07/19 19:21:52
>>260
実験してるって事?
ひとまず、
URLリンク(www.aikis.or.jp)
これでも見て勉強汁。
262:259
07/07/19 19:28:14 IU8VyPgY
ありがとう。
いろいろ試してみないと気が済まない性格で^^;
263:nobodyさん
07/07/20 00:13:39
>>255
裏づけるデータはお前の脳内以外には無いんだな。
264:nobodyさん
07/07/20 03:03:34
キミもそれしか言えないのかね
265:nobodyさん
07/07/21 09:40:53
妄想でしかないんだろ。
妄想を真理と思い込み、他の可能性には気が廻らない。
想定外だったという理由のバグを大量生産するタイプだ。
266:nobodyさん
07/07/21 17:15:10 LRr3Colp
バグってきついよねぇ〜。
267:nobodyさん
07/07/23 11:42:52
>>259
#!/usr/local/bin/perl
use CGI qw(:standard);#CGIでのパラメタ受け取り等を簡単に扱うためのもの
use strict;
my$url=sample.cgi; #これ自身のファイル名にしておく
my$name = param('name'); #フォームからの名前投稿をパラメタとして受け取り
# 以下、投稿フォーム。
#form action="$url" は、submitボタンを押した時に飛ぶ場所
#name="name" は、パラメタ名
print my$a= <<EOM;
Content-type: text/html\n\n
<html><head>
</head><body>
<form action="$url" method="POST">
名前<input type="text" size=10 maxlength="7" name="name"><br>
<input type="submit" value="投稿" name="toukou"></form><hr>
EOM
# 以下、表示。
#もしも$nameがあれば(パラメタとしてでも$nameを受け取っていれば)$nameを表示
if($name){
print$name;
}
268:nobodyさん
07/07/23 12:05:29
アンカミスった
>>259でなく>>258。
上はただのパラメタの使い方。
フォームを
<form action="$url" method="POST">
<input type=radio name=seibetu value otoko >
<input type=radio name=seibetu value onna >
<input type=submit value=投稿>
</form>
とすれば、投稿ボタンが押されたときに$urlのURLに飛んで、パラメタ名seibetuにotokoかonnaを入れて渡すことが出来る。
受け取り側は
my$seibetu = param('seibetu');#パラメタ受け取り
if($seibetu eq otoko){
#パラメタがotokoだった場合の処理
}
elsif($seibetu eq onna){
#パラメタがonnaだった場合の処理
}
デバッグしてないから文法ミスがあるかもしれないが、こんな感じで
269:nobodyさん
07/07/23 12:26:23
そうそう、
>>261のリンク先に、getが使用されにくい理由に
・環境変数には長さに制限があるので、getの場合途中でパラメータが切れることがある
・ブラウザがIEの時、フォームに<TEXTAREA>があるときはGETは使えない
・postの場合、パラメータの長さが。環境変数 CONTENT_LENGTH に格納される
とあるが、getはURLエンコードして、見える状態で渡されるから、悪意ある第三者に利用される可能性がある。
セキュリティの面から言ってもpostを使ったほうがいい。
もっと言うなら、「getもpostも両方の扱い覚えるのマンドクセ」ってときはpostの扱いだけ覚えればいい。
以上、駄文スマソン
270:258
07/07/23 16:22:00 dzTqHpzl
ありがとう。簡単にこんな感じで作ってみたけど上のもコピーしてやってみます!
#! c:/perl/bin/perl
$buffer = $ENV{'QUERY_STRING'};
if($buffer eq 1) {
otoko()};
if($buffer eq 2) {
onna()};
sub otoko{
print "Content-type: text/html\n\n";
print "<HTML><HEAD>";
print "<TITLE>CGI-TEST</TITLE>";
print "<BODY>\n";
print "$buffer 男性<br>";
print "</BODY></HTML>";
exit;
}
sub onna{
print "Content-type: text/html\n\n";
print "<HTML><HEAD>";
print "<TITLE>CGI-TEST</TITLE>";
print "<BODY>\n";
print "$buffer 女性<br>";
print "</BODY></HTML>";
exit;
}
271:nobodyさん
07/07/23 19:24:19 ZBWpUMJL
パーミッションの設定に躓いてから なにもやらなくなって
早2年
そんな自分に嫌気がさす。
てかActivePerlとMySQLのインスコが難しすぎる。
何度やっても失敗ばっかりだ。
俺の人生を象徴しているかのよう。悔しいぜ。
272:nobodyさん
07/07/23 20:36:30 vSTTUlTw
Perl勉強しはじめて2週間。
基本的なことなんだけど考え付かなくなってしまったので
発想力をちょっと貸してください。
HTTPリクエストして、BODY部分だけ表示させたいのですが
HEAD部分を表示させないようにSOCKETを
while (<$SOCKET>){ m/^\r\n$/ and last; }
print <$SOCKET>;
こんな感じでHEAD部分はループさせて抜けてから
BODY部分をprintさせるうえで
while使わずにやる方法としてはどうやりますか?
do{}whileやuntilでも出来ると思うんですが
何故かHEAD部分から全部表示されたり、無限ループに突入したりします。
難しいものじゃないはずなのに何故か書けない罠にはまった感じです。
発想力をちょっと貸してください。
273:nobodyさん
07/07/23 21:52:25
>>272
つかまずバッファに入れてから処理しようぜ
SOCKETひらきっぱで処理するのイクナイ
274:nobodyさん
07/07/23 22:19:18
>>272
ソケットとかややこしそうで足踏み入れてなかったが、ソケットのヘッダとボディは
"Content-type: text/html\n\n";
となってるんだよな?
\n\nと、改行が2個あるところで判断すればいいと思う。
この改行は\nであって\r\nでは無理だと思う。
my$ppp = my@socket = <$SOCKET>;
for (0..$ppp-1){
if($socket[$_]=m/^\n$/){last}
shift @socket;
}
print @socket;
↑これでイケル希ガス。つかもっといい方法を思いたったので次に書く。
おそらく、HTMLで表示するんだろうから、chompで改行文字を消してもいいんだよね?
my@socket = chomp(<$SOCKET>); #改行文字だけの部分はchompでカラになる。
while(@socket){shift @socket} #@socketで要素が何も無い場所に来るとwhile文がfalseとなりループは終わり、shiftも終わる。
#@socketの0個目の要素は何もカラ、1個目からの要素は改行を取り除いたボディ部分。
ちゃんと動作するか知らんが、初心者同士がんがろうぜ
275:nobodyさん
07/07/23 22:30:09
×ソケットのヘッダとボディは
○ソケットのヘッダとボディの区切りは
>>274で、もしおかしなこと言ってたらスマソ。
そもそもソケットとかHTTPリクエストとかよく知らんのに答えてもた。
276:nobodyさん
07/07/23 23:36:05
>>274
× $socket[$_]=m/^\n$/
○ $socket[$_]=~m/^\n$/
スンマソ
277:nobodyさん
07/07/24 09:28:58
HEADとBODYって言ってるからhttpヘッダじゃなくて
純粋にhtmlの<HEAD><BODY>の話なんじゃまいか
278:nobodyさん
07/07/24 10:22:47
URLリンク(www.7key.jp)
そこの
07:
08:<http>
09:<head>
10:(以下省略)
みたいになってて</head>まで削除して<body>から残したいと。
なら>>274を改造して
my@socket = <$SOCKET>;
for (0..$#socket){
if($socket[$_]=m~/^<body>\n$/i){last}
shift @socket;
}
print @socket; #<body>以下を表示
でいいんじゃまいか
279:258
07/07/25 14:52:50 pV3pjlQZ
こんにちは。質問おながいします。
jcode.plって日本語に変換するプログラムですよね?
英語に変換するものや中国語に変換するものもあるんですか?
英語に変換するものや中国語に変換するものもあるなら
ほしいので知っている方いたらお願いします。
280:nobodyさん
07/07/25 15:02:01
>279
文字コードの変換≠翻訳
いやー、夏だねえ・・・
281:nobodyさん
07/07/25 15:52:28
きっとダンくんが何とかしてくれるよ。(違
282:258
07/07/25 16:39:08 pV3pjlQZ
jcode.plにつながっているからかな・・文字化けしてしまう。
$ENV{'CONTENT_TYPE'}
これってなんかの文字コードが格納されているのですか?
283:nobodyさん
07/07/25 16:46:44
されている場合もある、かな。
中身は、text/html; charset=Shift_JIS
とかだよ
284:258
07/07/25 17:03:43 pV3pjlQZ
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
if ($buffer eq "") { &error('アクセスエラー');}
if($ENV{'CONTENT_TYPE'} !~ /multipart\/form-data; boundary=------------/){
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/, $pair);
$name2 = $name;
$value2 = $value;
$QUERY2{$name} = $value;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value = change_i_pic_sym($value);
こんな感じになってます。
$ENV{'CONTENT_TYPE'} の、ところをtext/html; charset=Shift_JIS
にしてutf-8にしたいからtext/html; charset=utf-8
に、すれば文字化けふせげますかね?
やってみます。
285:258
07/07/25 17:10:29 pV3pjlQZ
CGIが動かなくなってしまった^^;
無理なのかなぁ・・
286:nobodyさん
07/07/25 17:11:38
なんでいきなり multipart/form-data が出てくるんだ。
元々何の質問なの?文字化けって何が化けてるの?
287:nobodyさん
07/07/25 17:16:13
The PHP documentation team is proud to present to the PHP community a few fixes
and tweaks to the PHP Manual, including:
URLリンク(jp.php.net)
これのproud toって誇りを持ってとか、プライドを持ってとかの意味?
たまにPHPトップのニュースに出てくるけど、そこまで大げさに言わなくてもいいんじゃないの?
288:287
07/07/25 17:23:15
スマソ
PHPスレと間違えた
289:258
07/07/25 17:28:38 pV3pjlQZ
さっきのプログラム(rog.cgi)はコード変換処理ってところを抜き出して
コピペしたんだけどjcode.plにコード変換処理させていてrog.cgiの
ファイルがutf-8にしてあるから文字化けしてるのかなと思い・・
jcode.plをutf-8に対応できるプロトコル?にできればいいんですが
それがどうしていいかわからなくて。説明へたですんまそん。
ほかのcgiファイルにはいってるhtmlはtext/html; charset=utf-8
で文字化けしてないけどrog.cgiを通って出力するhtmlは文字化けしてしまうので・・
290:nobodyさん
07/07/25 17:42:59
jcode.plはutf-8には対応してないから。
さすが「くだすれ」ww
ものすごいレベルの低さだwww
291:nobodyさん
07/07/25 18:32:34
まずは、jcode.plをjcode.pmに変更だ。
少しの変更で移行できる。
その後UTF-8に対応だ。
292: ◆lVJAPUTeX.
07/07/25 23:03:36
(we are) proud to... は英語の決まり文句なので、訳する場合は "proud" は無視しちゃってもいいくらいのものです。
293:nobodyさん
07/07/27 17:51:08 lN7iMdmd
/の逆の斜線はどこを押すと出てきますか、
超初心者以前の問題ですみません
294:nobodyさん
07/07/27 18:03:04
\
295:nobodyさん
07/07/27 18:03:54
>>294
それでよかったんですか。ありがとうございます。。
296:nobodyさん
07/07/27 18:26:21
書いたものの、どこで実行すればよいのでしょう?
web上にアップロードして実行するんですか?
297:nobodyさん
07/07/27 18:33:25
on your desk
298:nobodyさん
07/07/27 18:40:42
どこで実行するかも決めずにいきなり書いたのか・・・
この板的には、とりあえずhttpサーバ入れて設定するのがいいのでは
299:nobodyさん
07/07/27 21:08:35
いろいろググってみたのですが、わからないので教えてください。
現状を言うと、ActivePerlはインストール完了、
#!/usr/bin/perl
print "Hello, world!\n;
をActivePerlでできたフォルダにhello.plで保存。
再起動済み、次にどうすればいいのでしょうか・・・
ちなみにOSはvistaです。
300:nobodyさん
07/07/27 21:41:25
コーヒーを淹れる
301:nobodyさん
07/07/27 22:07:58
>>299
関連付けが正常に行われていれば
(plのファイルのアイコンがトカゲになっていれば)
ダブルクリックで実行。
ただし、
print "Hello, world!\n";
とすること。
1行目は不要。
302:nobodyさん
07/07/27 23:38:19 lN7iMdmd
>>301
アイコンはトカゲになってます。
ダブルクリックすると開いた瞬間閉じてしまうのは仕様なんでしょうか?
print "Hello, world!\n"; で実行しましたが、結果はどうなってるのやら・・・・orz
303:nobodyさん
07/07/28 00:46:08
>>302
先に開いてあるプロンプトから実行しないと、すぐに閉じてみえなくなります。
sleep 5;と入れれば幸せになれますか?
304:nobodyさん
07/07/28 07:29:47
cgi-lib.plを使って受け取ったフォームから受け取った値を
for文で繰り返し処理しようと思ったのですがうまくいきません
my %input;
&ReadParse(\%input);
for (1..20) {
$MORAU[&_] = $input{'&_'};
}
やっぱり根本的に間違えてるんでしょうか
305:nobodyさん
07/07/28 08:02:50
うん。根本的に間違えておる。
詳しくは超初心者の心理を鋭く妄想できる>>245大先生が教えてくれるだろう。
306:nobodyさん
07/07/28 11:42:32 YzZLztvi
>>303
先に開いてあるプロンプトから実行・・・・・・・といいますと?
すみません orz
307:nobodyさん
07/07/28 14:46:24
その言葉のどこが、何がわからないのかね。
まさか日本語が判らないのかね。
謝る前にもう少し質問を明瞭にするべきじゃないかね。
とりあえずprint文の次に>>303のコマンドを入れてみてはどうかね。
308:名無しさん@そうだ選挙に行こう
07/07/29 04:34:03
おまいら意地悪しないでANHTTPDとか入れるように言ってやれよw
309:名無しさん@そうだ選挙に行こう
07/07/29 08:43:45
あんなものいれるな
310:名無しさん@そうだ選挙に行こう
07/07/29 11:16:38
じゃあ、いじわるしないで、コレな。
つ[ URLリンク(www.vmware.com) ]
つ[ URLリンク(blog.yasaka.com) ]
311:nobodyさん
07/07/31 00:29:12 pMcNAP1A
Perlをはじめてもいない初心者です。
そんな自分も歓迎してくれるらしいと聞いてやってきました。
ActivePerlがインストールできません。
サイトから5.8.8のMSIじゃない方ダウソしたのですが
インストール用のバッチファイル実行中に次のエラーが出て終了。
「Can't spawn "command.com":Not such file or directory at (どう見ても
実行中のバッチファイル自身のアドレス) line 272,<STDIN> line 7.」
なに探してるんだよ。orz
解決法ピンとくる方がいたらば教えてください。
スレチなら誘導たのんます…
312:nobodyさん
07/07/31 01:10:27
こういうときは環境ぐらい書くもんだ
313:311
07/07/31 01:25:27
すません。OSはMeです。
おとつい他スレで笑われたけど…orz
314:nobodyさん
07/07/31 01:36:13
msiの使えばいいじゃない。
315:nobodyさん
07/07/31 01:41:39
だめだった。
今チャレンジしてるやつが一応一番進んでるっぽいです。
インストールしてます→エラーです とな。
316:nobodyさん
07/07/31 01:44:51
>>311
どこから来たかを先に書こうよ。同じ問答しなくてよくなるんだから。
かぶってる住人も…いや、くだすれにはあまりいないのか?
Perlについての質問箱 31箱目
スレリンク(tech板:685-694番)
向こうはこのあと謎の流れになったんだよなあ…。
317:311
07/07/31 02:03:23
それです!お世話になりました。
初心者むけスレあったんかいと思って移動。
318:nobodyさん
07/07/31 03:35:48
>>311
> 「Can't spawn "command.com":Not such file or directory at (どう見ても
> 実行中のバッチファイル自身のアドレス) line 272,<STDIN> line 7.」
これって
my $cmd = "xcopy /q /r /i /e /k Perl\\* \"$prefix\" ";
system($cmd) && die "$!\n";
↑この辺になるんだが、xcopy.exe がないとかいうことはないよな?
すまんが画面に出てくる途中経過のメッセージの、アボートするちょっと前から
アボートするまで貼り付けてくれ。
319:311
07/07/31 04:12:50
アボードの意味がわかんないけども
xcopy.exeもよくわかんないけども
...
Add the Perl\site\bin and directories to Path?[yes]
Proceed?[yes]
Ok.
Installong ActivePerl...
Copying files...
Can't spawn "command.com":Not such file or directory at (どう見ても以下略
...
って出てます
320:nobodyさん
07/07/31 04:29:23
あ・そうですねなんかxcopyってのがないみたいだ…
探してみます って手に入るんだろうか。
321:nobodyさん
07/07/31 10:07:43
xcopy.exeは標準で入ってるだろ。
PATH通ってないとか?ありえない気がする・・・
322:nobodyさん
07/07/31 23:24:44
xcopyはありました、
でもDOSで打っても使えないんだよな。
いろいろいじってみます・・・
323:nobodyさん
07/08/01 00:31:48
COMMANDの中身をまるごと
インストーラと同じディレクトリにつっこんでみたところ少し進みました。
だがつまった…
...
Proceed?[yes]
Ok.
Installong ActivePerl...
Copying files...
Finished copying files...
Relocating...Can't open C:\Perl\bin\c2ph.bat: No such file or directory at
C:\(略)\INSTAL~1.BAT line 307, <$reloc> line 1.
...
ってなって強制終了…ハァ…
ちなみにC:\Perlには何も入ってないです。
いったい何が不味いのでしょうか。
324:nobodyさん
07/08/01 01:09:29
>>311
実は64bit版落としちゃったとかじゃないよな・・・。
前スレ694も書いてたけど、Windows9x/MeだとWindowsInstaller2.0+が
要るんだけど入ってる?
URLリンク(downloads.activestate.com)
325:nobodyさん
07/08/01 01:14:35
x86てあるから多分86bit
入ってる入ってる
場所はどこでもいいんですか?
326:nobodyさん
07/08/01 01:58:42
どんがらがっしゃん
327:nobodyさん
07/08/01 02:15:59
>>324
311が今試しているのはmsiじゃなくてASパッケージの方だから、
とりあえずMSインストーラーのバージョンは関係ない。
ってMSインストーラーのバージョンを上げてもう一回msiで
やればよかったりして。
328:nobodyさん
07/08/01 02:25:56
>>322
> xcopyはありました、
> でもDOSで打っても使えないんだよな。
いったいまともなシステムなのかい、おまいさんの使っているのは。
Meかどうかってのはおいといても。だ。
> いったい何が不味いのでしょうか。
わけもわからず闇雲に
> COMMANDの中身をまるごと
> インストーラと同じディレクトリにつっこんでみたところ少し進みました。
こんなことやってるからだ。
バッチファイルの中身は実質Perlスクリプトなんだから、適当にいじりなさんな。
...
329:nobodyさん
07/08/01 03:08:43
>>325
場所? 何の? 自動的に進むはずだけど。
つかそのMe壊れてるんじゃないかなぁ。
330:nobodyさん
07/08/01 10:18:26
Meかよ!
AUTOEXEC.BATにPATH設定しとけ
331:nobodyさん
07/08/03 16:12:48
XPで、最新版あくちぶぱーるのMSIのほういれようとすると、
警告がでてインスコできない。
古いバージョンなら問題なくはいりました。
ただ、最新版をいれようとナニカ変なことをやらかしたようで、
ノートン先生のゴーバックつかって、インストールしてない状態にもどしてから
古いバージョンをインストールしなおしました。
もしかして、その状態なのかな?
332:nobodyさん
07/08/04 02:01:08
>>307
初めて使う人なわけだからさ。
333:nobodyさん
07/08/04 16:47:07
だから?
334:nobodyさん
07/08/04 18:30:38
アスペルガーの特徴。
自分が知っていることは
他人も当然知っていると思い込んでいる。
335:nobodyさん
07/08/04 19:26:37
アスペルガー症候群は格好良い、天才故の悩みみたいで。
気違い認定されると嬉しいけど、アスペルガー認定も嬉しい。
336:nobodyさん
07/08/05 12:35:06
MSIインストーラは、適当に置くんじゃなくて、
クリックしてインストールしないとね。
337:nobodyさん
07/08/05 13:59:47
>>335
死ねキチガイ
338:nobodyさん
07/08/05 14:23:50
アスペルガーはキチガイじゃないよ
ただ自分にしか関心がなくて
他人にまったく関心がないってだけ。
339:nobodyさん
07/08/07 20:51:45
アスペルガーは、相手の言葉の裏を読めないだけ。
基地外でもないし他人に関心が無いわけでもない。
基地外をアスペルガーと呼ぶのはアスペルガーの人に対して失礼だ。
とマジレス。
340:nobodyさん
07/08/08 01:27:49
でも教科書にはアスペルガーは他人に関心がなく
自分のことにしか関心がない、って書いてあるよ
そしてプログラマー板とか見ると、まさに
そのとおり、って感じ。
341:nobodyさん
07/08/08 08:53:24
>>340
他人に関心を持ちつつも、うまく対処出来なくて悩んでるアスペルガーの人の特集やってるテレビ見た。
アスペルガーに対する偏見はすさまじいらしいから、教科書等でもそういう見方をしてしまうのかと。
実は他人とも仲良くなりたいが、自分が傷つきやすく(言葉の裏が読めない為)、相手の傷つくのも理解しにくい(言葉の裏を読めない為)から、本人達はかなり悩んでいる。
本当のアスペルガーってのは、脳が他のことに特化して、脳の中で他人の言葉を深く考える部分が成長していないんだと。
普通、基地外ってのは、相手がうざがったりへこんだりするのを見て喜んだりするような真性のアホを指すことが多いと思うが、
アスペルガーは(たとえ結果的に傷つけてしまう言葉を言うにしても)相手が嫌な思いをするのを目的で嫌な言葉を使っているのではない。
どこかの教科書に「アスペルガーは他人に関心が無く」ってのは、周りからの(偏見に満ちた)見方をしているだけだと思う。
アスペルガーは、アスペルガー本人にしてみれば他人にも関心があるが、アスペルガーじゃない人がアスペルガーを見ると関心が無い"ように見える"だけだと思う。
アスペルガーはただの発達障害の1つであり、何かの能力で他人より優れている部分があることが多いが、かわりに他の能力で他人より劣ってる部分があるだけ。
なんで、アスペルガー=基地外っていうのは偏見だと思うよ。
プログラマー板でアスペルガー名乗ってる人が居るのかどうかも知らないが、基地外に対してはアスペルガーではなく基地外と呼ぶほうが正しいと思うよ。
基地外の別称としてアスペルガーを使うのはそれこそ差別になりかねないから。
と2度に渡りマジレスすまそ
342:nobodyさん
07/08/08 08:56:46
最初からそう言ってくれれば別にいいんだけどさ、
結局コミュニケーション取れないから仕事にしても何にしても
やりにくくて仕方が無い。
つかなんでこんな話題が続いてるんだw
343:nobodyさん
07/08/08 15:35:52
空気が読めないからさ
344:nobodyさん
07/08/08 21:37:41
話題が無いだけさ
345:nobodyさん
07/08/13 23:51:38
parrotの話でもしよう
346:nobodyさん
07/08/28 21:12:01 S4BK4Wc3
スレッドフロート型掲示板って中規模くらいにはなるの?
347:nobodyさん
07/08/28 22:44:17
>>346
シンプルに作れば200行は超えない。小規模だろう。
もちろんいろいろ細かなことを気にしたり機能を増やしたりすれば
中規模になっても不思議ではない。
348:nobodyさん
07/08/28 22:55:12 S4BK4Wc3
120行程度を8個程度連動して動かすのは?
アップローダーなんだが、スイッチ作るよりもそっちのが若干の負荷軽減になるし。
まぁ、漏れは基本的にそっち系なんだが。
349:nobodyさん
07/09/01 11:35:54 J92zlSvR
perl初心者です
perlでrssを定期的に取得し、取得したrssからurlとタイトルを取得しhtmlに出力
するようなcgiを書きたいです。ムリですか?
350:nobodyさん
07/09/01 11:50:45
>>349
頑張れ
351:nobodyさん
07/09/01 12:21:56
>>349
定期的になんかやる CGI なんて面倒だよ。原則として CGI というのは
サーバがクライアントからリクエストがあったときに起動するものだから。
サーバ内で定期的 RSS を取得するプログラムを走らせるか
RSS を取得する CGI に定期的にアクセスするか、
定期的に取得することをあきらめるか、のどれかが自然だと思うよ。
352:nobodyさん
07/09/02 05:21:02 tMV8T4kQ
>>349
結果をキャッシュして前回アクセスからn秒未満ならキャッシュを渡すようにすれば擬似的に可能
353:nobodyさん
07/09/02 12:32:14 VQ85YXho
クライアントから定期的にリクエストだとか
つか、クライアント上で取得→生成→sleepをwhileでぶん回す方がいいと思う。
レン鯖ではアカウントヤヴァスだが。
354:nobodyさん
07/09/02 12:44:47
while でぶん回すって・・・ cron なりなんなりを使おうよ
355:353
07/09/03 02:09:47
>>354
あくまでPerlだけでやるとすればの話。cron使えないと終りだし。
漏れも昔の話だがtempファイルがどうしても不必要に増えてしまうスクリプトを作ったので
同様の悩みを持ったことがあるが、結局は手動でまとめて消すのが手っ取り早いと気付いた。
つか、クライアントで生成してwhileぶん回す必要ないだろ>漏れ
何書いてんだか…
356:nobodyさん
07/09/03 02:35:41
・cron使え→使えないレン鯖の場合はどうしろと(´・ω・`)
・sleep仕込んでwhileでぐるぐるするとか→セッション終わったらどうなるんですか(´・ω・`)
…になるんだよね。
サーバ側でもクライアント側でもcronやタスクマネヂャが使えない場合で
なおかつCGIでないプロセスを回しっぱなしにもできない場合は、
頻繁にアクセスがあるサイトにCGIのトリガーを仕込みましょうとか、
そういうヘンテコな実装をするはめになる。
357:356
07/09/03 02:36:30
s/タスクマネヂャ/タスクスケヂュラ/;
358:nobodyさん
07/09/03 10:36:26 5z4DsU1G
デフォルトでエラー行数が表示されないってのきつい。。。
みなさんどうやってデバッグしてるんですか?
359:nobodyさん
07/09/03 14:58:39
>>358
最悪の場合、debug.txt作って処理を全て書き込み。
基本的にはエラー表示を使って大雑把に問題を切り分け。
360:nobodyさん
07/09/03 21:53:27
デバッガ使え
361:nobodyさん
07/09/04 02:47:11
Perlのデバッガ使いづらい
362:nobodyさん
07/09/04 22:45:32
>>349
cronかWebcronを使うってのはどうですか?
363:nobodyさん
07/09/04 22:46:07
>>356
webcron
364:nobodyさん
07/09/05 18:27:45 y75V3THa
PERLで画像のアップロードのCGIのことでわからないんですが
▼写メールで画像を送信できます。<HR>
件名、本文には何も書かなくてOK!<BR>
(サイズ制限:容量制限$maximg\k以内)<BR>
<a href='mailto:$SV_MAIL'>写メール送信</a><BR>
<BR>
送信が成功したら<a href='$CGI_MAIL?ID=$id&PASS=$pass'>こちらへ</a>
と、なってるんですがメインのCGIの $SV_MAIL が、カラなんでメール送信できないし
携帯でアクセスしても画像貼れないし、管理のwebmaster@〜のメルアドいれても画像転送できないのですが
どうやって設定したら画像転送できるようになるでしょうか?
わかりにくくてすいません。わかる方いたら宜しくおながいします。
365:nobodyさん
07/09/05 18:37:00
$SV_MAIL には自分のサイトのアドレス入れるんだべ?
そして、そのアドレスではプログラムが待ち受けていて
受け取った画像を登録するようになってるはず
ちゃんと説明読んでインストールしたのかね?
366:364
07/09/05 18:42:12 y75V3THa
365さん、ありがとう。
管理のwebmaster@〜のメルアドいれて携帯から送って受信したメール
見たら、英数字だけが大量に送られていて画像がなかったんです。
<そのアドレスではプログラムが待ち受けていて>のプログラムが
おかしくなってるんでしょうか?
367:nobodyさん
07/09/06 10:07:23
>>366
それってContent-Type: multipart/mixed だったりしない?
メールってのは文字しか送れないから、画像のときは
英数字に変換して送られる。
受け取った側は自分で画像ファイルに変換しないと。
368:364
07/09/06 15:14:11 CdaTSQs2
Content-Type: multipart/mixed;
に、なっています。
どうやったら英数字に変換して送れるようになりますか?
CGIの中身は・・
# マルチパートの検出
if ($mHead =~ /Content-type:.*multipart\//i || $mHead =~ /Content\-Transfer\-Encoding:.*base64/i)
に、なっています。これじゃだめでしょうか?
これだけじゃわからないですか?
369:364
07/09/06 15:19:08 CdaTSQs2
CGIの中が・・
# マルチパートの検出
if ($mHead =~ /Content-type:.*multipart\//i || $mHead =~ /Content\-Transfer\-Encoding:.*base64/i) {
# 区切り文字列で分割
$bound = '';
if ($mHead =~ /boundary\=\"(.*)\"/i)
受信したメールのヘッダが
Content-Type: multipart/mixed; boundary="mimemk00_0_"
Content-Transfer-Encoding: 7bit
と、なってます。
370:nobodyさん
07/09/06 15:24:09
メールは受け取ってるみたいだね。
おそらく本文には
Content-Type: image/jpeg;とかContent-Transfer-Encoding: base64 とかあるだろう
で、何ができてないの?画像の保存?
画像を保存する場所のパーミッションとかじゃないの?
エラーログには何か出てないのか
371:364
07/09/06 15:47:39 CdaTSQs2
本文は
/9j/4QIGRXhpZgAASUkqAAgAAAALAA4BAgAlAAAAkgAAAA8BAgAHAAAAuAAAABA
BAgAGAAAAwAAA ABIBAwABAAAAAQAAABoBBQABAAAAygAAABsBBQABAAAA0gAAA
CgBAwABAAAAAgAAADIBAgAUAAAA 2gAAABMCAwABAAAAAQAAAJiCAgABAAAAAAA
AAGmHBAABAAAA7gAAAAAAAAAyMDA3MDkwNjE0MDkw MDAAAAAAAAAAAAAAAAAAA
エラーもでてないしこんなのがずらずらでてるだけだす。
携帯から掲示板に画像をアップしたいけどPCからはできるけど
携帯から送るとこうなってしまって解らなくて;;
372:nobodyさん
07/09/06 16:03:13
>>371
base64のデータのようだからデコードしてバイナリデータに戻せばいいと思う
373:nobodyさん
07/09/06 16:30:22
デコードしろよ
374:364
07/09/06 17:17:30 CdaTSQs2
すんません。
初心者なんでデコードしてバイナリデータに戻す方法が
わかりません・・・;;
375:nobodyさん
07/09/06 17:28:13
だからよー
CGIの中身中身言ってるけど、それは何のCGIなんだよ
メール受信時にforwardとかでプログラム起動して画像データ抽出してんじゃないのか
CGIでメールを直接読んでるのなら、そこでデコードしてるはずだろ
どういう構造で、今どういう動作をしてて、本当はどういう動作をするべきなのか
全部書けよ
376:364
07/09/06 17:43:51 CdaTSQs2
メールをPOPサーバへ接続したりMIME解読したりするmail.cgiに
なってます
CGIの中身を貼りたいけど長すぎて貼れないや・・・
377:nobodyさん
07/09/06 21:42:23
ここは超初心者用のスレなので低レベルな質問でもokだが、
それは、Perlに対してであり、日本語に対して超初心者用なのでは無い。
>>364の質問に的確に答えられる奴はいないだろう。
例えるなら、「和食を作ったのですが、出来た物が辛いです。
どうしたら良いでしょうか?」と言ってるようなもんだ。
こんな質問には超一流の料理人でも答えられないよ。
つまり、Perlを勉強する前に日本語と最低限の
コミュニケーション術を学んでから出直して来い。
378:nobodyさん
07/09/07 01:22:28
質問能力が無いやつは
荒らしだから相手にしないほうがいいよ
379:nobodyさん
07/09/07 01:46:41
mail.cgiは自作なのか?
そうでないならエンコードも入ってると思うがなあ
エンコードそのものはそんな手間でもないので
自分で書くつもりならbase64とmultipartの扱いだけ調べりゃすぐだ
380:364
07/09/07 15:23:45 2t2s6ltN
CGIは無料でダウンロードしたやつだしPERLの知識0だからね
スルーで終了してくれ
381:nobodyさん
07/09/07 16:17:59
作者のサポートサイトで聞くのが
筋だと思ふ、そういうのは…
改造ならこの板に適切なスレがあるし
382:364
07/09/07 16:30:08 2t2s6ltN
381さん
ありがとう
383:nobodyさん
07/09/09 12:02:21
複数のラジオボタンの結果の受け取り方がわかりません。
TMPL_LOOPでいくつかのラジオボタンを表示してます。
NAMEはすべて変えてます。
ただparamを配列で受けとればいいのですか?
ラジオボタンの個数とNAMEをhiddenで渡さないとだめでしょうか?
384:nobodyさん
07/09/10 09:56:44
チェックされてないラジオボタンも欲しいの?
だったらそうなるね
385:383
07/09/10 11:57:32 pVVOBct/
>>384
なんというか、二択のラジオボタンが複数あるということです。
それぞれどちらがチェックされたかが知りたいのですが
386:nobodyさん
07/09/10 12:17:53
本来なら、同じグループのラジオボタンは同じ名前にしてValueで確認するんだが
全部Name変えてるならその名前で全部チェックしては。
チェックされてなければValueが入ってこない
387:nobodyさん
07/09/10 19:36:15
>>383
ラジオボタンのグループごとにidを決める。
ex.radio1,radio2...
次にデコード後に送信内容をハッシュに収めて↓みたく値を参照する。
$DATA{'radio1'},$DATA{radio2'}...
これで中身に其々の値が代入される。
388:nobodyさん
07/09/11 23:05:59 bdpoEocx
textareaに入力された情報をCGIで受け取りたいのですけどうまく行きません。
どのようにすれば取得できますか?
389:nobodyさん
07/09/12 00:28:37
つMETHODに合わせて送信情報をデコード
390:nobodyさん
07/09/12 00:31:26 m2heepaU
すみませんけど、その情報のデコード方法が分からなくて;;
formなどの受け取りは普通に出来るのですが、
textareaだけは同じように受け取ろうとしても出来なくて、、
391:nobodyさん
07/09/12 00:52:50
perlで掲示板のcgiつくってます。
terminalから
> /usr/local/bin/perl < hoge.cgi
とすると、
Content-type: text/html;\n\n
<html>
中略
</html>
みたいに目的のhtml書き出せるんですが、ブラウザからやると
500になってしまいます。。。
パーミッション/転送モードは大丈夫です。
何か考えられる原因ってありますか??
392:nobodyさん
07/09/12 00:53:02
google先生「"perl デコード"に一致する日本語のページ 約 231,000 件」
393:nobodyさん
07/09/12 00:58:46
>>391
エスパーレス、ブラウザに対する出力がなされていない。
次の文章をスクリプトの最終処理の後にくっつけてみれ。
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "テスト";
これでテストが表示されれば、HTMLの出力なりlocation指定するなりすればよかろう。
それでもアウトなら上の二行を少しずつ処理の前方へとズラしていけ。
394:nobodyさん
07/09/12 03:04:50
どうせエスパーレスつけるんだったら
> Content-type: text/html;\n\n
> <html>
> 中略
> </html>
print 'Content-type: text/html;\n\n'; と書いてるところを
print "Content-type: text/html;\n\n"; に書き換えろ
じゃないのか。出力がそうなってるらしいし。
395:394
07/09/12 03:06:38
ていせい。
誤: print "Content-type: text/html;\n\n"; に書き換えろ
正: print "Content-type: text/html\n\n"; に書き換えろ
396:nobodyさん
07/09/20 19:00:31 tH1/iNYn
動的なトップページですが、HTMLに複数のSSI(例えば5つ以上、index.shtml)を使うのと、perlで全て一括で出力(index.cgi)させるのとではどちらがサーバにやさしいですか?
397:nobodyさん
07/09/20 20:28:19
その程度じゃ変わらないから気にするな
398:396
07/09/20 21:20:19
>>397
了解です。
PHPを覚えるまではindex.cgiにしてみます。
399:nobodyさん
07/09/24 16:40:32 HMQ03/cj
家庭的な事情で貧乏学生なのでお金稼ごうとWebアプリ作ろうと思っています。
将来的にIT系に就職を考えてるので、もし失敗しても良い経験になるかなと思ってます。
質問なのですが、WebアプリはGatewayの7万円台で買った安パソコンでも作れますか?
一応情報系なのでPerlやコンピュータの基礎知識はあるつもりですが、
制作実務経験が足りてないもので、ましてやWeb系は手を出したことがなく右も左も上もわからない状態です。
調べたところCatalystというフレームワークがよく使われるそうですね。
簡単に作れるというふうに書いてありました。
しかし、常識的に考えると、serverを増強していくのにかなり費用が必要だったりするので、
ちょっと学生が手を出して儲かる世界なのかなと思います。
学生で儲かっている人はいますか?
周りの友達などからは何もそういう類の情報がないので、わかりません。
ちょっと傲慢な申し出ですが、何か少しでもヒントやアドバイスを頂ければと思う次第であります。
400:399
07/09/24 16:52:16 HMQ03/cj
すみません。上のものです。書き忘れていました。
Webアプリは一人でも開発できますか?
もちろん、一人が作ったという話はちらほら聞きますが、
Perl暦一年の私でも大丈夫でしょうか?
PerlはLLだから簡単という話もありますが、一人だと出来ることはかなり小規模なものに限られてくるのでしょうか?
たとえば、はてなは少人数ですが、みんなすごいPerl使いなはずなので、はてなを見て「少人数でもあれだけのものが
作れるのだから、一人でもそれなりのものが作れるはずだ」などと思うのは早計でしょうね。
何が言い対価というと、一人だときついかもしれないということです。
個人的にはこのように(勝手に)判断していたのですが、最近どうしても学生のうちに作りたいと
思ってきたので、一人で作れないかと思い始めています。
ちなみに、協力者(同志)はいまのところいそうにないので、まずは一人で作る線で考えている次第です。
Web系のPerl熟練の皆様の判断をいただければと思います。
どうかよろしくお願いいたします。
401:nobodyさん
07/09/24 17:15:49
一人でも中規模だろうが大規模だろうが作れる。
できなければリーナスは誕生していない。
CだろうがJAVAだろうがPerlだろうが計算機は所詮計算機でしかない。
402:nobodyさん
07/09/24 17:40:21
ヤフーや日経の株価・為替レートを自サイトで表示したいです。
2チャン工業[150円]+0.5% ひろゆき証券[3,270円]+1.7%
みたいに表示させたいです。
parlでできる事は調べたら分りましたが、解説サイトが少なくて分りにくいです。
どこか初心者向けのないでしょうか?
URLリンク(www110.kir.jp)
↑これをhtmlに変換したけど動かなかった。
URLリンク(d.hatena.ne.jp)
↑これは動いたけど、もっと沢山数値が欲しい時どうするのか分らない。
403:nobodyさん
07/09/24 18:26:44
一つだけアドバイス。
本で買える情報は本で買ったほうが早い。
時間が有り余っているなら別ですが。
404:399
07/09/24 18:28:06 HMQ03/cj
>>401
ありがとうございます。
作れるのはいいとして、
しかしサーバ増強などに費用がかかりませんか?
405:nobodyさん
07/09/24 20:05:11
グーグルは
スタンフォード大学の
コンピューターセンターに
転がってるマシンを勝手に
無断で持ってきて自分達のものにしてた。
また、配送されてきて、
梱包を解かれないで
配送センターに放置されたままの
マシンは
「誰も必要としていない」
と勝手に判断して、それも
自分達のものにしてた。
406:nobodyさん
07/09/24 20:42:24
>>404
いったいどの程度の規模のサイトを作るかによる。
(単位時間当たりのアクセス数、コンテンツの要領、動かすアプリのメモリ使用etc...)
まあはっきり言って、Dellやらのやすもんセットでも、ちょっと型落ちの中古機なんかでも
サイト立てるだけなら全然可能。(それこそ3〜5万位のマシンでも十分)
初めから処理能力とかハード的なこと気にするより、とりあえず自分でサイトなりなんなり立ててみて、
公開とか運用とかしてみる。
それでハード的にきつそうになってから、気にしましょう。
407:399
07/09/24 21:13:35 HMQ03/cj
>>405 nice hackですね。感動しました。Google信者なので、見習おうと思います。
>>406 やってみないと分からないですね。規模は。
目標は、10,000PV/day, 100MBのコンテンツ です。
サイト立てるためにapacheというやつを導入しました。
localhostを立てるまでは出来ました。
この調子でいくとlampかなと思ってます。
Windows依存できたので、1からunix勉強しなおすのは少し大変です。
ありがとうございます。
408:nobodyさん
07/09/24 22:40:40
>>407
その3-5倍程度のサイトを椅子で運営してるがレンタルでもクレーム来たことない。
まぁ、共用ですらその程度なら大丈夫ってことだ。
409:399
07/09/24 22:50:31 HMQ03/cj
>>408
貴重なアドバイスありがとうございます。
すみませんが、椅子、レンタル、共用というのはどういう意味ですか?
検索にかけてみたんですが、わかりませんでした。
お手数かけてすみません。。
410:nobodyさん
07/09/24 23:29:42
椅子はともかく
レンタル・共用が分からないってのは……
411:nobodyさん
07/09/24 23:34:58 HMQ03/cj
>>410
質問の仕方が悪かったようです。
共用サーバサービスやレンタルサーバなら聞いたことあるんですが、
レンタルや共用が何の略かが分からなかったんです。
何か根本的に基礎知識がかけていると考えたほうが妥当でしょうか?
先達は、どのようにして知識を得たのでしょうか?
412:nobodyさん
07/09/24 23:41:48
>>411
#/usr/bin/perl
#生きてる限り勉強
while(>>411){
print "トライ&エラー";
}
__END__
413:nobodyさん
07/09/25 00:10:08 OOv8Weab
>>412
なんだかそう言われると、これまで学習を継続してきたことを肯定されたようで
安心します。笑
とりあえず、これまでやってきたことは当たり前のことではありますが、少なくとも
間違ってはいなかったと思えました。
414:nobodyさん
07/09/25 00:27:49
>>413
一年やってきたとは言っても、動くスクリプトはどれだけ書いたんだ?
415:nobodyさん
07/09/25 00:50:17
成功するような奴はこんな所でグダグダ質問する前に行動してる奴だ
416:nobodyさん
07/09/25 00:53:46 OOv8Weab
>>414
動くスクリプトというのはどういうことなんでしょう。
スクリプトは1日平均100行くらいですかね。
やっていた時期は、300行くらいでしたが、最近はネットワークやUNIXに関する勉強にも
追われていて。
417:nobodyさん
07/09/25 01:14:03
>>415
ここで質問するよりも、本を読むよりも↓行って作って来い。
多分その方がいい勉強になる。作れないものは調べて作る。
ご希望のCGIを作成いたします
スレリンク(php板)
418:nobodyさん
07/09/25 01:37:09 OOv8Weab
>>415
その行動としてどういったものが妥当かを入念に検討しているのです。
私は学生なので、行動範囲も限られはしますが、まずは手始めにWeb applicationを制作しようかと
考えております。
一年perlやってきましたが、これまではこれを生かそうという計画はなかったのですが、
それは行動力がなかったというよりも、
もとからそういう発想がなかったんです。
それがここ数週間に間に急にWeb applicationをやろうという欲望がふつふつとわきあがってきているので
自分でも驚いています。
この欲望を実現すべく、過去の先達たちはものすごい行動力を発揮してこられたのでしょうが、
私も負けてはいません。
>>417
CGIを作ってもらうんですか。
スレッド見ました。
オープンソースのperl scriptを見るのも良い勉強になりますよね。
あと、思うんですが、方法にグタグタこだわるよりも、何をやりたいかが
大事ですよね。
ところが、自分の場合は何をやりたいかが明確なのにそのための方法がまるで
分からないというか少しずつ分かっているのですが、
その分かっていくスピードがあまりに低速であきれているんです。
なんと進みにくいのだろうかと。
だから、少しでも速く進めるように先輩方のお力を頂きたくこのスレッドに
参上いたしました。
419:nobodyさん
07/09/25 16:28:46
思うんだが行って参考にならないよな。
俺が苦労して書いた10行ぐらいの処理が
うまい人だと2〜3行で処理効率も上とか普通にあるし。
420:nobodyさん
07/09/25 17:11:40
参考にならない。
「○○するスクリプトを××行で書きました」
ならまだしも。
421:nobodyさん
07/09/25 18:43:18
経験に対して行数を申告する人って何か誤解してる人が多いと思う
422:nobodyさん
07/09/25 20:20:09
行数で測るなんて無意味だよな
423:399
07/09/25 21:39:39 tW7VjElz
行が参考にならないのですか。
申告すべきものが何もなかったので行を申告しました。
ところで、上のほうで少し書いたかもしれませんが、私は長いプログラムを書いた経験がありません。
そこで、サイト制作に着手しようかと今日サーバについて調査しておりました。
そこで質問ですが、アプリケーション開発はどういう手順で行われるのでしょうか?
一応情報系なので、要件定義から設計・coding、テストといった過程については勉強したのですが、
実際の現場でどういう開発工程がとられているかというのは、
いかなる手段で学べばいいのでしょうか?
やはり、アルバイトが一番でしょうか。
しかし、アルバイトは当たり外れが大きいとも聞きます。
424:nobodyさん
07/09/25 21:43:43
なんだいろいろ理由つけて面倒なことは避ける主義か
425:399
07/09/25 21:55:39 tW7VjElz
>>424
というよりは、これも自分のなかでは地道な努力の一環なのですが、いかがでしょう。
たとえば、第一線の開発者が実際にどんなツールや手法やスタイルで仕事をしているか、
というのは学生が学ぶのは困難なのでしょうか、ということを現在調査中なのです。
426:nobodyさん
07/09/25 22:14:32
調査した成果をここで報告してくれんの?
427:399
07/09/25 22:23:40 tW7VjElz
>>426
はい。どういう形で報告すればいいのか指定くだされば、検討します。
428:399
07/09/25 22:32:09 tW7VjElz
私のようなしがない学生が言うのもなんですが、瑣末なテクニックの習得よりもまずは
現場の空気を吸うことが大事かなと考えまして、それで、さっそくサーバについて調査していたのです。
幸い、私にはやりたいことがそれなりに明確です。だが、よく考えてみると道のりがはなはだしく曖昧なのです。
それは当然です。全く未経験なのですから。
そこで、「ロードマップ」が欲しいと考えたのです。
何かおかしなところがあればご指摘ください。
429:nobodyさん
07/09/25 22:38:38
まずはやってみろ。
430:399
07/09/25 22:39:50 tW7VjElz
>>429 いまやってます。
431:399
07/09/25 22:41:44 tW7VjElz
誤解のないように解説しますと、いま現在も私は調査活動を続行中です。
他所で調査をしながら、ここでも質問しているという次第です。
ただし、マルチポストはしていませんよ。笑
432:nobodyさん
07/09/25 22:42:20
omotiを思いだしたのは俺だけだろうか、、、
まあ、コードを書いた経験があるだけomotiよかましだろうが
「ハイキング程度の人間がエベレストに挑む」
「プーアルが完全体セルに挑む」
のを単に夢想してるだけだ。
「ロードマップが欲しい」?
地図の見方すら分ってない人間に分るようなフローチャートを無償で作れと?
おまえさんがやるべき事は経験を積むことだよ。
ここでうだうだ、くだらん持論を述べる事ではなく。
さっさとアルバイトに応募しろ、外れだと思ったら止めて他を当りゃいいだけだ。
433:399
07/09/25 23:08:16 tW7VjElz
>>432
ある意味納得です。アルバイトへの応募も必要だし、経験を積むことをするのは必須事項でしょう。
omotiって何か知りませんが、私は地図を読む能力がゼロだとは思いません。
私は自分を過少評価する傾向がありますが、それをゼロだと言ってしまうと、卑下しすぎでしょう。
地図を必要とする理由は、地図を頭に入れてから実践したほうが効率面で有効だと判断したからです。
どういった手段で、先人達は、地図を入手してこられたのでしょう。素朴な疑問。
434:nobodyさん
07/09/25 23:29:27
>>433
>omoti
ぐぐれ。
>地図を読む能力
「読む」のは誰でも出来る、経験に応じたレベルで。
経験を積むと見方が分ってきてより深く地図を読むことが出来るようになる。
>自分を過少評価
何様だ?オマエ。
経験をコードの行数で書くようなドシロウトみたいなマネしといて、
よくもまあ、自分を過大評価出来るもんだ。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4276日前に更新/307 KB
担当:undef