Perlコーディング初心者質問スレ Part 56
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2007/09/16(日) 19:49:43ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ ttp://pc11.2ch.net/test/read.cgi/php/1180492441/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0579nobodyさん
2007/11/25(日) 17:55:01ID:???こっちはエスパーじゃないんだからさｗ
0580nobodyさん
2007/11/25(日) 18:30:55ID:???http://www.uploda.org/uporg1129660.txt
これなんですが上手く動作しなくて・・・。
0581nobodyさん
2007/11/25(日) 18:47:07ID:???print "Content-type: text/html\n\n"; # データ形式
を書いてるのが不味いような気がするのは気のせいかな。
0583nobodyさん
2007/11/25(日) 18:50:17ID:???0584nobodyさん
2007/11/25(日) 18:55:24ID:???0585nobodyさん
2007/11/25(日) 18:55:39ID:???# リロード
if ($location) {
if ($ENV{'PERLXS'} eq "PerlIS") {
print "HTTP/1.0 302 Temporary Redirection\r\n";
print "Content-type: text/html\n";
}
print "Location: $location?\n\n";
exit;
}
これがサブルーチンのwriteの最後に置いてました。
0586nobodyさん
2007/11/25(日) 18:56:09ID:???・Location: はHTTPヘッダに出力する
・ヘッダとボディの区切りは空行で示す
0587nobodyさん
2007/11/25(日) 19:08:15ID:???2バイトも勿体無いと思う。
0588nobodyさん
2007/11/25(日) 19:10:08ID:???難しそうですが頑張ってみます。
0589nobodyさん
2007/11/25(日) 21:12:48ID:???0590nobodyさん
2007/11/25(日) 21:13:37ID:???0591nobodyさん
2007/11/25(日) 21:51:10ID:???0592nobodyさん
2007/11/25(日) 21:57:24ID:???0593nobodyさん
2007/11/26(月) 01:21:50ID:???0594nobodyさん
2007/11/26(月) 09:34:29ID:???CGIでHTMLを吐く前提なら、 , を入力されると面倒なことになるんだよな。
< > なら < > ってできてしまうからいいんだけど。
0595nobodyさん
2007/11/26(月) 09:35:03ID:???< > なら < > ってできてしまうからいいんだけど。
0596nobodyさん
2007/11/26(月) 17:00:07ID:???0597nobodyさん
2007/11/26(月) 19:49:54ID:???今ソフトバンククリエイティブのCGI/perl ハンドブック第３版
のCGIサンプルで掲示板を作ったのですが掲示板にメッセージが書き込まれなかったらエラーを出そうと
思って四苦八苦しているんですがperl6はよく分からなく苦戦しています。
誰かこの本を持っていて、分かる方がいればご教授お願いします。
0599nobodyさん
2007/11/26(月) 21:19:36ID:???LWPで、現在取得しているURLの情報を参照する方法ってあるでしょうか。
ttp://www.xxx.ne.jp
というURLを取得したときに、いくつかリダイレクトされて、
ttp://www.xxx.ne.jp/cgi-bin/test.cgi?id=aaaa&pass=bbbb
こんな感じのURLになってるのですが、この ？ 以降の情報を取得したいのです。
$responoser->base
では、 ？ より前のURLしか返してくれません。
教えてください。
0601nobodyさん
2007/11/27(火) 03:23:29ID:???他のサーバー上のテキストファイルを読み込ませたいのですがopen関数ではできないんでしょうか？
0602nobodyさん
2007/11/27(火) 03:33:26ID:???0604nobodyさん
2007/11/27(火) 06:16:45ID:???0605nobodyさん
2007/11/27(火) 07:36:33ID:???0606nobodyさん
2007/11/27(火) 08:12:36ID:???0608nobodyさん
2007/11/27(火) 11:02:47ID:???うちの環境では、３回リダイレクトを経て、？&引数がもっさりついたurlに飛ばしても、
print $response->base();
で、引数（’？’以降%E3%81%82%E3%81%84%E3%81%86%E3%81%88%E3%81%8Aとか)がついた
URLを表示できたけど・・・。
ActivePerl 5.8.8-build822(XPsp2)
LWP/5.808
0609nobodyさん
2007/11/28(水) 05:14:00ID:???どなたかご教授願えませんか？
ちなみに、用途はバーチャルな人間の日記を作りたいと思っています。
日記を出力するアルゴリズムは別に用意しますので、
それをブログの投稿画面に自動でログインして書き込むようにしたいのです。
ローカルからでも構わないのですが、
できれば安いレンタルサーバーから行えれば良いなと思ってます。
検索で『自動投稿』としたらたくさん見つかったのですが、どれもアフィリエイター用のもので、
結構値段も高いですし、記事を予め用意しないとダメなので私がしたいようには出来そうにありません。
0610609
2007/11/28(水) 05:16:24ID:onMmaiK+0611nobodyさん
2007/11/28(水) 05:24:30ID:???0612nobodyさん
2007/11/28(水) 05:26:27ID:???0613nobodyさん
2007/11/28(水) 09:39:10ID:???0614nobodyさん
2007/11/28(水) 09:48:03ID:???△▲ WebProg 初心者の質問 Part16 ▼▽
http://pc11.2ch.net/test/read.cgi/php/1187729623/
0615nobodyさん
2007/11/28(水) 13:29:43ID:???荒らしスクリプトにするつもりじゃないなら、その日記を出力するアルゴリズムの
元ネタの場所を公開すれば信用が得られるかも。
0616nobodyさん
2007/11/29(木) 03:01:28ID:???0617609
2007/11/29(木) 18:18:55ID:fn44RAXr日記のアルゴリズムが完成したわけではありません
ただそっちは、大したものじゃないにしても何とかなりそうなんです。
一方、自動投稿の方は何から手を付けていいのかすら分からない状態でしたので質問させてもらいました
>>616
やっぱりそうですか
わかりました。何とか頑張ってみます
因みにスパム行為をするつもりは毛頭ありませんが、確かに見ようによってはそう映る可能性も否定できないですね。
あくまでも普通の人間っぽい挙動にしたいと思っているので、投稿の数も一日で多くて3通程度、少ないときは三日ぐらい更新しないような動きを考えてました。
とにかく自分で何とかしないとダメみたいですね
ご迷惑おかけ致しました
0618nobodyさん
2007/11/29(木) 18:50:54ID:???0619nobodyさん
2007/11/29(木) 18:56:46ID:???う～む、どう考えてもやっぱりその
日記を出力するアルゴリズム
ってのが、自動投稿するスクリプトより遥かに高レベルのような気がするが・・・・。
まあいいや、ヒントだけ。
WWW::Mechanize オススメ。
内容や使い方は、自分で調べてちょ。
0620609
2007/11/30(金) 00:45:15ID:???ありがとうございました。
参考にさせていただきます。
今いろいろ資料を調べたり、さっき図書館で借りてきた
Webクライアントプログラミングって言う本(めちゃふるいですがw)
を読んだりしてます。
HTTP通信などは一度もやったことがないので、
LWPあたりから勉強したほうがよさそうな、
そんな気がしてる今日この頃。
AtomとかXML-RPCとかの資料にまではたどり着けたのですが、
そこに平然と書かれている GETだのPOSTだのという表現についていけない状況です。
あれを全部 perl のコードに解釈するための知識がないのです。
というわけで、だいぶ時間掛かりそうですが、
こつこつやっていこうかなと。
もう少し進歩して、またわからないことがあったら、
ここか>>614さんが教えてくれたスレにでも出没いたします。
では、ごきげんよう皆様。
0621609
2007/11/30(金) 03:34:24ID:???なんだか、嬉しくて涙が出てきた 。・+゜（つД｀）゜+・。
みんなありがと
0622609
2007/11/30(金) 03:51:57ID:???XML-RPCとかAtomPubなどとはまったく違うんですね。
なんというか、禁断の･･･いや、貴重な情報ありがとうございました。
0623nobodyさん
2007/11/30(金) 12:46:37ID:???$str = '$mystr';
$kigou ='@!"#$%&\'()=-^\\|{}:;+*?_/<>';
require 'jcode.pl';
if ($FORM{'namae'} ne ''){
$mystr = $FORM{'namae'};
&hankaku;
}
sub hankaku{
&Jcode'convert(*str,'euc');
if($str =~ /^[0-9]{7,11}$/){
&jcode'tr(*str,'０-９Ａ-Ｚａ-ｚ','0-9A-Za-z');
}elsif ($str =~ /\x8E/) {
&jcode'h2z_euc(*str);
}else ($str =~ /$kigou/){
&jcode'tr(*str,'＠!”#$％＆’()=－＾￥｜｛｝：；+＊?＿/＜＞','@!"#$%&\'()=-^\\|{}:;+*?_/<>');
}
&Jcode'convert(*str,'sjis');
$str = $value;
exit 0;
}
1度eucに変換してからと考えたんですが。
0625nobodyさん
2007/11/30(金) 13:27:37ID:7wito75uのようなdatファイルを下記でブランチさせると、指定範囲外だと判定されてしまうようなのです。
改善するにはどこを直せば良いでしょうか･･･最後の日付部分の比較だけで判定されてる･･？
localtime(time)取得やDAT読み込みは大丈夫っぽいです。
foreach $sdat(@set){
next, if $sdat eq "\n";
@sdat = split(/,/,$sdat);
@ddat = split(/\-/,$sdat[0]);
@d1dat = split(/\//,$ddat[0]);
@d2dat = split(/\//,$ddat[1]);
@tdat = split(/\-/,$sdat[1]);
if(
($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[0] eq '*' || $d2dat[0] >= $year))
&&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[1] eq '*' || $d2dat[1] >= $mon))
&&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[2] eq '*' || $d2dat[2] >= $mday))
&&($d1dat[0] eq '*' || ($ddat[1] ne '' && $d1dat[0] <= $year) || ($ddat[1] eq '' && $d1dat[0] == $year))
&&($d1dat[1] eq '*' || ($ddat[1] ne '' && $d1dat[1] <= $mon) || ($ddat[1] eq '' && $d1dat[1] == $mon))
&&($d1dat[2] eq '*' || ($ddat[1] ne '' && $d1dat[2] <= $mday) || ($ddat[1] eq '' && $d1dat[2] == $mday))
&&($sdat[1] eq '*' || ($tdat[0] <= $hour && $hour <= $tdat[1]))
){
chomp $sdat;
$url = $sdat[2];
last;
}
}
0626nobodyさん
2007/11/30(金) 13:32:25ID:???0627nobodyさん
2007/11/30(金) 15:56:59ID:7wito75u0628nobodyさん
2007/12/10(月) 07:32:09ID:aPvXjzqK現在、複数のプロセスから、同じデータにアクセス（読み書き）したいと考えています。
異なるプロセス間で共有される静的な変数、というようなイメージです。
外部ファイルやデータベースなどを経由する方法以外で、
このような処理を実現するにはどのようにすればよいか、ご存知の方がいましたらお願いします。
やはりmod_perlが適当でしょうか。
0629nobodyさん
2007/12/10(月) 11:08:15ID:???ていうかそれプロセスが落ちたらデータは消えていいってこと？
素直にファイルなりDBなり使えばいいとおもうんだけど、それができない理由は？
0630nobodyさん
2007/12/10(月) 11:47:45ID:???mmapやmemcacheみたいなの？
0631nobodyさん
2007/12/10(月) 13:16:59ID:???スレッド使うMPM+mod_perlで:shared使うとか
shared memory使うとかそういう話かな？
質問の仕方が初心者臭いし素直にDB使っとけって気がする。
0632628
2007/12/10(月) 20:47:52ID:???ありがとうございます。遅くなってすみません。
ご想像通り初心者です。初めて触ったのは何年も前ですが、仕事とか全然関係ないので。
Perl ←―→ 外部ファイル、DB
↑
ここのコストが凄く重いので、可能な限りアクセスを減らしたいと考えています。
Perl側で保持しておけば多少は減るかなあと。
要は、「キャッシュ」のようなものだと思っていただければ。
>629
＞プロセスが落ちたら
はい、構いません。もう一度、データ本体から取得するだけなので。
>631
＞読み書きするのに静的
「静的変数」と「定数」は全くの別物という認識だったのですが、
もしかするとPerlの世界だと違うのかもしれません。少し調べてきます。
>630-631
＞mmap、memcache、shared
軽く調べてみただけですが、そういうことです。勘違いしてるかもしれませんが。
この辺のキーワードを参考に、深く見てみようと思います。
0633nobodyさん
2007/12/12(水) 13:49:47ID:uWSb2hJm複数画像ファイルが入っている特定フォルダから更新日が一番最新のファイルを
探して表示させたいのですが出来ますでしょうか？
尚、ファイル形式は不定です。
教えてください。
宜しくお願いします。
0634nobodyさん
2007/12/12(水) 13:58:00ID:???0635nobodyさん
2007/12/12(水) 16:11:40ID:???aaa.htmというファイルを読み込んで、その中に書かれている変数を変数展開したいと思ったのですがそう簡単にはいきませんでした。
print qq|$_|;
とすれば変数展開されるかなと思いましたがそれもだめ。
置換を使えば簡単なのですが、置換以外の方法がありましたら教えてください。
--------aaa.htmの内容--------
<html>
<body>
$a
</body>
</html>
--------ソース--------
$a = 'aaa';
open(IN, "< aaa.htm");
@html = <IN>;
close(IN);
print "Content-type: text/html; charset=Shift_JIS\n\n";
foreach (@html)
{
print $_;
}
0636nobodyさん
2007/12/12(水) 16:27:53ID:???0637635
2007/12/12(水) 16:52:55ID:???>636さんレスありがとう
0638nobodyさん
2007/12/12(水) 17:26:25ID:BkwLyerT「髙」などの漢字が化けてしまうのですが、
これを化けないように工夫するにはどうすればいいのでしょうか？
0641628=632
2007/12/13(木) 20:33:46ID:???色々と検討してみた結果、速度や安全性に疑問も多いですが、とりあえずshm○○を使ってみようかなと思います。
ありがとうございました。
0642nobodyさん
2007/12/14(金) 03:20:01ID:jWEjvsMQUsteramで録画したflvをダウンロードしたくて、
http://unknownplace.org/memo/2007/10/03を参考に以下のソースを実行しました。
#!/usr/bin/env perl
use strict;
use warnings;
use AMF::Perl;
use LWP::UserAgent;
my $cid = shift || '5Fq8cQp9eHsEEknbQ22OOZniqS2xUiuz';
my $amf = AMF::Perl::Util::Object->new;
$amf->addBody('client.watch_video', '/1', { cid => $cid });
my $outputstream = AMF::Perl::IO::OutputStream->new;
my $serializer = AMF::Perl::IO::Serializer->new($outputstream, 'utf-8');
$serializer->serialize($amf);
my $amfdata = $outputstream->flush;
$amfdata =~ s/\xff\xff\xff\xff/\0\0\0\x31\x0a\0\0\0\x01/;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( POST => 'http://gw.ustream.tv/gateway.php' );
$req->content( $output );
$req->content_type('application/x-amf');
$req->content_length( length $amfdata );
my $res = $ua->request($req);
my $deserializer = AMF::Perl::IO::Deserializer->new(AMF::Perl::IO::InputStream->new($res->content), 'utf-8');
use YAML;
print Dump $deserializer->getObject->getBodyAt(0)->{value};
0643642
2007/12/14(金) 03:21:23ID:jWEjvsMQContent-Length set when there is no content, fixed at /Library/Perl/5.8.6/LWP/Protocol/http.pm line 196.
Can't use an undefined value as a HASH reference at test.pl line 37.
どうすればいいでしょうか。
よろしくお願いします。
0644nobodyさん
2007/12/14(金) 08:48:00ID:???0645nobodyさん
2007/12/15(土) 20:24:19ID:???として、処理中に何らかのテキストを入力させたいです。
英数字は問題ないのですが、日本語を入力したときが変です。
aあ
と入力して、バックスペースを押すとちゃんと消去されません。2回おせば「あ」の表示は消えるのですが、
受け取った文字のaも消えてしまっています。
解決策を教えてください
0646nobodyさん
2007/12/15(土) 22:15:15ID:???新しいＩＰアドレスが追加されたか定期的にチェックしてるんですか？
http://ja.wikipedia.org/wiki/%E5%88%A9%E7%94%A8%E8%80%85:Tietew/%E6%90%BA%E5%B8%AF%E9%9B%BB%E8%A9%B1%E3%81%AEIP%E3%82%A2%E3%83%89%E3%83%AC%E3%82%B9%E3%83%AA%E3%82%B9%E3%83%88
0647nobodyさん
2007/12/15(土) 22:41:06ID:???@text = <STDIN>;
ってやったときに、入力を終わりにするにはどうすればいいのですか？
0648nobodyさん
2007/12/16(日) 02:59:28ID:???そこから調べてるかどうかはともかく、公式サイトを見るのは確かだな。
まあ、IPアドレスが追加されること自体はあんまり無いし……。
0650nobodyさん
2007/12/16(日) 16:00:14ID:???ホストに変換するのは失敗することあるらしいぞ。
直接IPから判断した方が確実。
気にするほどじゃないとは思うけど、どうなんだろ
0651nobodyさん
2007/12/16(日) 18:41:45ID:???0652nobodyさん
2007/12/16(日) 19:23:33ID:???0653642
2007/12/17(月) 11:34:49ID:FgX+pG+l37行目は一番最後のprintの部分です。
0654nobodyさん
2007/12/18(火) 10:34:57ID:???require('lib/lib.pl');
&dosomething();
と書いておいて、lib/lib.plに、
sub dosomething{
open(FH, '>> baka.log');
print FH time."\n";
close(FH);
}
とすると、lib/の中にファイルができるのではなく、ひとつ上にできてしまいます。
これをlib/の中に保存したいのですが、ライブラリからの相対パスで保存する方法はないでしょうか。
または絶対パスを使うしかないのでしょうか。
ヒントだけでもお願いします。
0657nobodyさん
2007/12/19(水) 01:05:36ID:???よくわからなくて試行錯誤の末下のような方法にたどり着きました
$AA{'name'} = '1234';
$BB[0]{'name'} = 'abc';
$BB[1]{'name'} = 'ああああ';
$BB[2]{'name'} = '!?';
kansuu( \%AA );
$tmp = \@BB;
kansuu( ${\$tmp->[0]} );
kansuu( ${\$tmp->[1]} );
kansuu( ${\$tmp->[2]} );
sub kansuu
{
my $h = $_[0];
print "$h->{'name'}<br>";
}
BBの要素を kansuu() に入れるために
もっとスマートな方法（っていうか正しい書式）がありましたら教えていただけないでしょうか？
0658nobodyさん
2007/12/19(水) 01:14:31ID:???my @BB = (
{name => 'abc'}, #$BB[0]に無名ハッシュ(リファレンス)をいれる
{name => 'ああああ'}, #$BB[1]に〃
{name => '!?'} #$BB[2]に〃
);
kansuu( \%AA ); #\をつけることで%AAのリファレンスがわたる
kansuu( $bb[0] ); #$bb[0]の無名ハッシュリファレンスを渡す
kansuu( $bb[1] );
kansuu( $bb[2] );
sub kansuu {
printf('%s<br>',shift->{name});#ハッシュリファレンスは->をつけて要素を取り出す
}
0659nobodyさん
2007/12/19(水) 02:00:39ID:???正直スカラーのリファレンスの説明は自身がないけどおよそあってると思う
my $scalar = 'abc'; #スカラー
my $scalar_ref = \$scalar; #スカラーのリファレンス
my $anon_scalar_ref = \do {my $anon;}; #微妙に無名じゃないけど
my @array = (1,2,3); #配列
my $array_ref = \@array; #配列のリファレンス
my $anon_array_ref = [1,2,3]; #無名配列のリファレンス
my %hash = (a=>1,b=>2,c=>3); #ハッシュ
my $hash_ref = \%hash; #ハッシュのリファレンス
my $anon_hash_ref = {a=>1,b=>2,c=>3}; #無名ハッシュのリファレンス
my $slacar_object = bless $scalar_ref => __PACKAGE__; # スカラー使ったオブジェクト
my $array_object = bless $array_ref => __PACKAGE__; # 配列使ったオブジェクト
my $hash_object = bless $hash_ref => __PACKAGE__; # ハッシュ使ったオブジェクト
#素直に取り出せる
printf "scalar=%s\n",$scalar;
printf "array=%s\n",$array[0];
printf "scalar=%s\n",$hash{a};
#アドレスっぽいのがとれる
printf "scalar_ref=%s\n",$scalar_ref;
printf "array_ref=%s\n",$array_ref;
printf "scalar_ref=%s\n",$hash_ref;
#リファレンス先の値書き換えたり取り出したり
$$scalar_ref = '書き換えちゃった';printf "scalar=%s\n",$$scalar_ref;
$array_ref->[1] = '書き換えちゃった';printf "array=%s\n",$array_ref->[1];
$hash_ref->{b} = '書き換えちゃった';printf "scalar=%s\n",$hash_ref->{b};
#デリファレンスする(copyが作られる)
my $scalar2 = ${$scalar_ref};
my @array2 = @{$array_ref};
my %hash2 = %{$hash_ref};
0660nobodyさん
2007/12/19(水) 07:53:49ID:???↓これを出力したいのですが・・・
＜meta http-equiv="Content-Type" content="text/html; charset=utf-8" /＞
ttp://www.geocities.co.jp/SiliconValley-Sunnyvale/6128/perl/cgipm.html
このページの解説によると、
use CGI;
my $q = CGI->new;
print $q->start_html(
-head=>meta({'http-equiv' => 'Content-Type'
-content=>"text/html; charset=$CharSet"}
),
このようなコードになるはずなのですが、やってみると
Undefined subroutine &main::meta called
というエラーがでます。meta()がメインのサブルーチンだと解釈されてるみたいです。
0661660 続き
2007/12/19(水) 07:54:19ID:???-head=>$q->meta({'http-equiv' => 'Content-Type'
-content=>"text/html; charset=$CharSet"}
),
とやると一応うまくいくのですが、なぜか
＜meta http-equiv="Content-Type" content="text/html; charset=utf-8" /＞
＜meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /＞
このようにもう一つ余計なメタが出てしまいます。どうすればいいのでしょうか？
ＣＧＩ．pmは3..31です。
0662nobodyさん
2007/12/19(水) 10:23:45ID:???http://perldoc.jp/docs/modules/CGI.pm-2.89/CGI.pod
my $q = CGI->new;
$q->charset('UTF-8');
0664657
2007/12/20(木) 08:31:41ID:???ありがとうございます！
超わかりやすくて助かりました
今のプログラムの色んなところがもっと簡潔に書けそうです
0665nobodyさん
2007/12/20(木) 10:28:40ID:???> 今のプログラムの色んなところがもっと簡潔に書けそうです
本当はわかってないくせに。
0667nobodyさん
2007/12/20(木) 13:39:25ID:???0668nobodyさん
2007/12/20(木) 16:21:00ID:???0669nobodyさん
2007/12/21(金) 21:13:42ID:???めんどいけど。
0670nobodyさん
2007/12/22(土) 18:50:11ID:???0671nobodyさん
2008/01/02(水) 06:47:19ID:???0672nobodyさん
2008/01/02(水) 20:07:21ID:???依存コードは書いてないけど
0673nobodyさん
2008/01/03(木) 00:16:04ID:???cygwinで5.10入れてみた
use 5.10;で書いてみてる
0674nobodyさん
2008/01/05(土) 22:21:41ID:???$test = "今日は\n いい天気です $wether";
こんな変数があるとして、$test自体は展開してほしいんですが、
中身の\nや$wetherは展開せずに出力したいのです。
0675nobodyさん
2008/01/05(土) 22:58:36ID:???ちなみに、weather？
0676nobodyさん
2008/01/06(日) 03:58:05ID:???$testに代入した時点で展開しちゃってるでそ
そもそも確認したい意図は何？
リファレンスにしてアドレスを確認する手もあるけど
■ このスレッドは過去ログ倉庫に格納されています