Perlコーディング初心者質問スレ Part 53
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/11/26(日) 14:38:23ID:SlmGsFMB【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >>2-10
前スレ http://pc8.2ch.net/test/read.cgi/php/1153987463/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0665nobodyさん
2007/01/06(土) 19:32:53ID:???PerlによるCGIの参考書を買ってゼロから勉強中ですが、
下記のプログラム（参考書を丸写し）が動作しません。エラーコードは500です。
原因は何でしょうか？
・Perlのパスはレンタルサバのサイトで確認
・ファイル名はindex.cgi
・OSはWinで、メモ帳で編集しFFFTPでUL
・パーミッションは755
#!/usr/bin/perl
print <<_EOF;
Content-type: text/html
<html>
<head><title>test</titel></head>
<body>
test
</body>
</html>
_EOF
0666nobodyさん
2007/01/06(土) 19:54:15ID:???500エラーじゃ何も判らんし、そもそもレン鯖使って勉強するなといいたいが。
・FTPの時にASCIIモードで送って無い
・パーミッションがレン鯖指定のものと違う
・そもそもindex.cgiが使えないようになっている（別名でテストしてみ）
とかそんなあたりか。ソースそのものは問題ない。
タグでtitleの打ち間違いがあるくらいか。
0667nobodyさん
2007/01/06(土) 20:03:54ID:???0668nobodyさん
2007/01/06(土) 20:07:39ID:???・バイナリモードで転送した
・ヒアドキュメント終端文字列でファイルが終わってる（改行がない）
辺りが有力っぽい。
0669nobodyさん
2007/01/06(土) 20:23:33ID:lBOtCkKIエラーメッセージを出すようにしたいと思っています。
投稿されたメッセージ$messageに
半角カタカナが含まれているかどうかを判定する、というのは
どう書けばよいでしょうか？
全角文字があるかどうかを判定ならググって出てきましたが・・・。
0670nobodyさん
2007/01/06(土) 20:23:42ID:???回答ありがとうございます。
>・FTPの時にASCIIモードで送って無い
FFFTPの環境設定に転送設定という箇所があったので、
「常にアスキー」に設定し、ULしなおしました。
>・パーミッションがレン鯖指定のものと違う
確認したところ、実行ファイルは700が推奨されていたのでそうしました。
705も試しました。
>・そもそもindex.cgiが使えないようになっている（別名でテストしてみ）
確認したところindexで問題ないようですが、test.cgiに変更しました。
ですが、動作しませんでした。
0672669
2007/01/06(土) 21:04:52ID:???・・・が、さらに質問です。
名前とタイトルに含まれる半角カタカナは全角に変換でいい。
そこでログに書き込むサブルーチンregistに、
&jcode'h2z_sjis(*name);#$nameの半角を全角に
&jcode'h2z_sjis(*subject);#$subjectの半角を全角に
と書いたのですが、名前のほうが変換されません。
0673nobodyさん
2007/01/06(土) 22:19:16ID:???0674nobodyさん
2007/01/06(土) 22:29:08ID:???モジュールのインストールなしに出来る方法はどんな方法があるのでしょう。
今はuse libとuse Crypt::CBCとBlowfish_PPでやっているのですが、どうしても遅いので
もう少し早くできると良いのですが。
>>662でlinux上で単純にコンパイルしてそのままautoディレクトリをコピーしてやれば良いのかと思って
コピーしてみましたが
Blowfish.so: undefined symbol: Perl_Gthr_key_ptr
こんな感じのエラーが出てしまいました。
Blowfish_PPとBlowfishでは速度が違いすぎるので、出来ればBlowfishの方を使いたいのですが、
どうすれば使えるのでしょうか。
0675nobodyさん
2007/01/06(土) 22:59:26ID:???0676nobodyさん
2007/01/06(土) 23:03:37ID:???0677nobodyさん
2007/01/06(土) 23:21:18ID:???同じ文字列入れてnameの方だけ変換ないってんなら
おまいが間違ってるとしか言えん。
>>674
モジュール無しで、ということだけならopensslに投げるという手もある。
モジュールのほうが速いと思うけど。
0680nobodyさん
2007/01/07(日) 00:28:09ID:???拡張子をcgiにすればファイルの中身を見られることもないのですが、まあ気休め程度に。
>>677
すみません。解決しました。
サーバーとローカルのperlのバージョンが違ったためにモジュールのバイナリを使用できていなかったようです。
サーバーとローカルのperlのバージョンをそろえてコンパイルしなおしたらそのままコピーでuse libしたら
出来ました。
0681nobodyさん
2007/01/07(日) 00:28:21ID:???レス遅れましたが、本当に有難うございました。
検証もしてみましたので検証報告も兼ねさせていただきます。
結論から申し上げますと、16桁目の4以上、つまりは4000兆
くらいから計算が狂ってきました。
これは645さんのおっしゃる32ビットマシンの性能ということ
に当てはまったのではないかと思いました。
ご丁寧に有難うございました。
0683nobodyさん
2007/01/07(日) 19:30:50ID:???Mac OS X PantherのTerminal上にて運用する予定のPerlスクリプトをMac OS X Tigerにて作っています。
指定されたディレクトリの中にある１万個程度のテキストを片っ端からチェックして、
ある特定の文字列があったら別の文字列に置き換えて保存するという処理なのですが、
一部ファイル名の最後の文字がスペースのものがあった場合に
それらの展開に失敗する（最後のスペースが無いものとしてファイルを開こうとする）ようです。
ファイル名の最後のスペースを認識させるにはどのような方法があるのかご教示頂けますと幸いです。
よろしくお願いいたします。
0685nobodyさん
2007/01/07(日) 20:02:08ID:???panther も tiger も5.8.xなのでバージョンの違いとか、OSの違いによるもんじゃないと思うそ。
0687nobodyさん
2007/01/07(日) 20:15:21ID:???0688nobodyさん
2007/01/07(日) 20:27:45ID:???案外知られてないのかな
0689nobodyさん
2007/01/07(日) 20:47:03ID:???とりあえずやってみたのがファイルのパスを' 'でくくるとか
" "でくくって\を付けるとかくらいなもので…
>>685
ﾃﾞｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━!!!!
何でなのか理屈がよく分かりませんができたっぽいです。
迅速なお答え、本当にありがとうございました！
0690683
2007/01/07(日) 20:52:01ID:???ご察しの通りPerlの仕様だったようです。
これでPantherのPerlが5.6だったりしたら路頭に迷うところでした。
>>687
検証して頂きありがとうございます。
おかげさまで何とかなりそうです(*´∀`)
>>688
Perlは一応それなりに馴染んでいたつもりだったのですが
今回の件には完全にやられました。もっと精進します。
0691nobodyさん
2007/01/07(日) 21:22:42ID:???0692nobodyさん
2007/01/08(月) 05:15:48ID:???ttp://www.mcdonalds.co.jp/mcgriddles/index.html
0693nobodyさん
2007/01/09(火) 00:38:49ID:???どう書けばいいでしょうか。
jcode.plではなく普通に置換で行いたいと思うのですが。
ここの正規表現みていたら訳が分からなくなってきた・・・。
ttp://sieg.xeong.com/archives/2005/06/perl.html
0695nobodyさん
2007/01/09(火) 01:08:35ID:???0696nobodyさん
2007/01/09(火) 01:11:19ID:???0697693
2007/01/09(火) 02:24:52ID:???EUCはブラウザのミスによる文字化けがあるから嫌なんです（タブブラウザにしなくていいからこっちを先に治せM$）。
CHARSET設定していながら何かの拍子に化ける→エンコードし直しうざい
それに半角カタカナを使えるようにしたいのではないので。
・・・大体、半角カタカナを使って書く言葉って、あまりいい意味の言葉じゃないですよね。
0698697
2007/01/09(火) 02:37:18ID:???tr使ってもダメだと書いてあるページを見つけました・・・
もともとのスクリプトではフォームデコードに
&jcode'h2z(\$value);
があって、投稿した半角カタカナは全て全角に変換されるんですが
これだと「･･･」まで変換されて（個人的に）変な感じがする。
しかもこれはカタカナではない記号ですしね。
で、他に方法はないかと思ったのですが。
半角→全角は諦めるしかないみたいですね。
レスありがとうございました。
0699nobodyさん
2007/01/09(火) 02:47:31ID:???どうしてもあわせたいならHTMLをunicodeにしちゃえよ
0700nobodyさん
2007/01/09(火) 03:06:27ID:???後は濁点付きを適当に置き換えれば。
0701nobodyさん
2007/01/09(火) 03:14:56ID:???SJISだから合わせるとかなんとかってのは無視してくださいな。
そんなことどうでもいい。
とにかく半角カタカナを使ってもらいたくないというのと
半角カタカナを２ちゃん以外の場所で見たくないってだけ。
半角カタカナがあればエラーってのもやってみたし
半角カタカナを全角変換もやってみたけど
カタカナじゃないやつまで処理してしまうというのが・・・ってだけの問題。
0702nobodyさん
2007/01/09(火) 04:25:59ID:???ﾅﾝﾃｲｳｶ ﾀﾝﾅﾙ ｱﾚﾙｷﾞｰ ﾆ ｼｶ ﾐｴﾅｲ ｶﾝｼ ﾞﾀﾞﾅ
0703nobodyさん
2007/01/09(火) 06:21:11ID:???何処か一文字間違ってるんだろうけど何処が間違ってるか分からない、といったユーザの不満を解消すべく
ショッピングカートの改良しようと思っています
パスワードのMD5ハッシュをDBに保存するロジックを平文での保存にすることは簡単にできたので、
あとは何処がが間違っているかをユーザに教えるロジックを作ればいいんですが、どうするのがユーザビリティ的に好ましいでしょうか？
正しいパスワードとユーザ入力のパスワードが同じ文字数の場合には、
正しいパスワード "hoge2CH" の時、ユーザが "hoge2ch" と入力したら、
「パスワードの6文字目・7文字目が間違っています。」 と返す、のように簡単にいくんですが、
正しいパスワードが "hoge2CH" の時、ユーザが "hoge2C" と入力した場合に、
貴方がユーザだとしたらどういうエラーが返って来て欲しいかを教えて下さい。
0707nobodyさん
2007/01/09(火) 11:49:21ID:???> 貴方がユーザだとしたらどういうエラーが返って来て欲しいか
正しいパスワードそのものを表示して欲しいな。
0708nobodyさん
2007/01/09(火) 12:40:14ID:???パスワード送信できるようにすれば
0709nobodyさん
2007/01/09(火) 13:09:11ID:???>>697
>・・・大体、半角カタカナを使って書く言葉って、あまりいい意味の言葉じゃないですよね。
はい、いい意味じゃない言葉。
m9（^Д^）ﾌﾟｷﾞｬｰ （ ´_ゝ`）ﾌｰﾝ ( ﾟдﾟ)､ﾍﾟｯ( ﾟДﾟ)ｳﾞｫｹ!!
('Ａ｀)ﾏﾝﾄﾞｸｾ ( ´,_ゝ`)ﾌﾟｯ
顔文字だけでこれだけありますね。
顔文字だけならДゝあたりをNGにすればいいですが、顔文字なしで
使う場合もある。
NGワードに半角カタカナを指定すると誤爆しまくるのでダメ。
＃ｷﾞあたりでひっかかる
0710nobodyさん
2007/01/09(火) 13:12:47ID:???日本人だよね？作ったのって。
;#$jcode'h2zf{'xxx'}
;#These are pointer to the corresponding function just
;#as $jcode'convf.
これなんかどういう意味？どういう使い方するわけ？
訳はできても使い道がわからないんだが。
0711nobodyさん
2007/01/09(火) 13:20:54ID:???0713nobodyさん
2007/01/09(火) 16:27:08ID:???ここの内容をコマンドライン上ではなく、
perlスクリプト内でしたいのですが、
どうやってやればよいでしょうか？
ご教授お願いします。
PHPは結構かじりましたが、perlは全く0です。
正規表現もそれほど自信がないです・・・・ orz
0715nobodyさん
2007/01/09(火) 17:01:19ID:???単に「perlスクリプト内でしたいの」であれば1行毎に
$var =~ s/¥r¥n/¥n/;
をすれば良いのだが、>>714が読み取ったように、
「ファイルの読み書きやらデータのIOをどう処理したら良いか」
ということを聞きたいのか？
0716nobodyさん
2007/01/09(火) 17:07:56ID:???要はWindowsの改行コードをUNIXのものに変えたいということじゃないの？
$textに問題の文字列が入っているとしよう。
$text =~ s/\r\n/\n/g; # Perl
これで$text内の全ての\r\nが\nに変換される。
これはPHPでいう以下のいずれかの構文と同じ処理になる。
$text = preg_replace("/\r\n/", "\n", $text); // PHP: 意味合いとしてはこっちがより正確だが
$text = str_replace("\r\n", "\n", $text); // PHP: PHPではこっちがより推奨される
問題がWindowsとUNIXだけなのであれば、単純に\rを排除するだけでも良い。
$text =~ s/\r//g; # Perl
これはPHPでいう以下のいずれかと同じ処理。
$text = preg_replace("/\r/", "", $text); // PHP: 意味合いとしてはこっちがより正確だが
$text = str_replace("\r", "", $text); // PHP: PHPではこっちがより推奨される
が、これにMacが絡むと改行コードは\rだけだったりすることもありうるわけで、
単純に\rを排除していてはMacでは改行が全て消えて無くなってしまう。
より汎用性を求めるなら以下のようにすべきだろうね。
$text =~ s/\r\n/\n/g; # Perl1: Win -> UNIX
$text =~ s/\r/\n/g; # Perl2: Mac -> UNIX
これはPHPでいう（以下略
$text = preg_replace(array("/\r\n/", "/\r/"), "\n", $text); // PHP: 意味合いとしてはこっちがより正確だが
$text = str_replace(array("\r\n", "\r"), "\n", $text); // PHP: PHPではこっちがより推奨される
もしくは
$text =~ s/\r\n|\r/\n/g; # Perl: 上の1と2をまとめたもの
これはP（ｒｙ
$text = preg_replace("/\r\n|\r/", "\n", $text); // PHP: 配列を使わない場合
0717nobodyさん
2007/01/09(火) 17:12:28ID:???以下を hoge.pl で保存
=======
#!/usr/bin/env perl -i.old -p
s/＼r＼n/＼n/ ;
=======
$ perl hoge.pl hoge
じゃダメか？w
しかしソース元の -npe ってなんだかなあ
=====
#!/usr/bin/env perl
for my $name ( @ARGV ){
open IN, $name or die ;
my $data = do { local $/ ; <IN> } ;
close IN ;
rename $name , $name . '.old' ;
$data =〜 s/＼r＼n/＼n/g ;
open OUT, '>' . $name ;
print OUT $data ;
close OUT ;
}
=====
0718nobodyさん
2007/01/09(火) 17:13:48ID:???単なるバックスラッシュに脳内置換よろ
0719nobodyさん
2007/01/09(火) 17:21:51ID:???レスありがとうございます。
perlのスクリプトをちょっと改造したい
（ある変数内のデータから^Mを削除したい）のですが、
systemとかを使うと、ほかの部分も弄る必要性が出てきそうで、
現時点の自分のperl能力からはできれば避けたいと考えてます。
PHPなら下みたいな感じでよい気がするのですが、
同じことをperlではどうすればいいでしょうか。
perlは変数宣言とかが厳しいと聞いたことがありますが、
ほかはphpと似たようなものでしょうか？
$file_array = file( $file_path );
for($i=0; $i<count($file_array); $i++){
$file_array[$i] =~ s/\r\n/\n/;
}
$file_data = implode("\n", $file_array);
0720nobodyさん
2007/01/09(火) 17:31:31ID:???$file_pathに格納されたパスにあるファイルを開いて読み出し、
各行の\rを削り、さらに各行をさらにもうひとつの\nをはさんで
つなげているような。
そもそもPHPとかperl以前に、自分が何をやりたいのか、何をやろうと
しているのかを的確に理解して説明する能力を身につけるべきな気が
するぞ。
0722nobodyさん
2007/01/09(火) 17:38:59ID:???rep2マジお勧め。
>>719
その構文だと各行の間が"２つの"\nで連結されてしまうけどそれでいいのかな？
open(FILE, $file_path);
@file_array = <FILE>;
close(FILE);
for (my $i = 0; $i < @file_array; $i ++) {
$file_array[$i] =~ s/\r\n/\n/;
}
$file_data = join("\n", @file_array);
>>721
おまいも>>719見てからレスれｗ
0723nobodyさん
2007/01/09(火) 17:49:05ID:???ネスレじゃありませんよレスれ
0724nobodyさん
2007/01/09(火) 17:51:22ID:???スルーで。
0725nobodyさん
2007/01/09(火) 18:12:19ID:???0726nobodyさん
2007/01/09(火) 18:27:32ID:???軽く確認してみただけけれども、ファイルコピーだけで5.005でもJcode動いてるような。
5.005よりも古い鯖って見たこと無いのだけれどそんなにあるんですか？
0727nobodyさん
2007/01/09(火) 18:51:04ID:???http://fh.aaacafe.ne.jp/cgiperl.html
iswebは5.6
http://help.www.infoseek.co.jp/isweb/?id=20601
Jcode.pmは度忘れしたけど、CGI.pmも入ってないとこがあったはず。
上の２つは古きよきなんとやら。
すでに引越ししてるだろうけど。
0728nobodyさん
2007/01/09(火) 18:51:43ID:???0729650
2007/01/09(火) 20:30:53ID:???アドバイスありがとうございます。
>>660
やはりそれが原因でしたエスケープで解消しました。
>>664
ＣＧＩでＣＧＩファイルを書き出す必要性が頭悪すぎてよくわかりませんorz...
ですがいずれそういう必要性が無いとも限らないので作ってみようと・・・
たとえばホームページを春には桜吹雪の演出、夏は魚が泳ぎ、秋には紅葉が降り、
冬には雪が降るような演出をするとします。
このページそのものがＨＴＭＬでは作れそうに無いのでＨＴＭＬではなくＣＧＩの
ファイルだとします。
そのページを季節に合わせるためＦＴＰを使わずに更新するには更新用のＣＧＩの
ページからＣＧＩのファイルを更新すれば出来るみたいなー感じでいいのかなと。
でも、もっと簡単な方法がありそうですね。
0731nobodyさん
2007/01/09(火) 22:47:00ID:???処理速度あっぷのためにif分などの分岐をなくそうとcgiからcgiを書き出してたなぁ･･･。
今ならテンプレートを読み替えるだけで済むなぁ。
0732nobodyさん
2007/01/09(火) 23:05:36ID:???当然、各季節用の js なり背景なりを用意しておいて、CGIの中に書かれた
CSS部分を書き換えて背景変えたり、script type="text/javascript" src="ここ" を書き換えて
呼び出す js を変えたり…という動作をするCGIは作れる。
CGIからHTMLを書き換えたり、別のCGIを書き換えたり、いろいろできることはできる。
やることは「テキストファイルを読んで内容を変更して書き出す」だけですから。
適当に「設定ファイル」を作ってそれを差し替えるだけで済むようにすればCGIを組むより楽ですよ。
「季節が変わる毎」程度だったら、もっとも簡単かもしれないのがローカルで書き換えてFTP（ｒｙ
でも、勉強のためにローカル環境でこういうのを作って遊んでみたくなったんだったら、
是非遊んでみるべきだと思う。
0733nobodyさん
2007/01/09(火) 23:13:11ID:???0734nobodyさん
2007/01/09(火) 23:32:53ID:???>ＣＧＩでＣＧＩファイルを書き出す必要性が頭悪すぎてよくわかりません
それはこちらのセリフなのだがｗ
第三者にやれと言われてやってるなら仕方ないが、自分で思い付いてやってるとしたら、
他にもっと勉強した方が良いと思うぞ。
リファレンスとかオブジェクト指向とかな。
0737nobodyさん
2007/01/10(水) 02:08:30ID:???物理的にファイルを生成するという意味ではそのとおり。
論理的なプログラグを生成する難易度はまた別だけどな。
0738nobodyさん
2007/01/10(水) 10:52:10ID:???あるいは設定ファイルのようなものを外部で持っておいて
その設定ファイルを書き換えるとか。
0740nobodyさん
2007/01/10(水) 16:08:45ID:???仕組みを学び知ることは大事だよね
0742nobodyさん
2007/01/11(木) 05:11:48ID:???ifを使って、特定の条件を満たさないと隠しページへ行けない様にしたい
のですが、どういう関数を使えば良いかさっぱりわかりません。例えば、
あるページ上でテキストボックスに1と入力したら隠しページへ移動する
といった感じにしたいのですが、Basic認証のプログラムなどを参考にし
てみましたが、意味がわからず挫折しました。
隠しページはcgiファイルにして、直接URLを打ち込んでも閲覧できないよ
うにし、特定の条件をクリアした場合のみ閲覧できるようにしたいのです。
もちろんパーミッションは644にします。url_jump_toで最初試したのです
が、案の定駄目でした。
どなたか、条件をクリアしたらcgiファイル（パーミッション644）を閲覧
できる方法をよろしければ教えてください。房ですみません。
0743nobodyさん
2007/01/11(木) 07:13:27ID:???ActivePerlをインストールしたのですが、そこからどすればいいのか分かりません・・
.plファイルをダブルクリックしてもコマンドラインが一瞬でて消えるだけです・・
どなたか教えてください！！！
0744nobodyさん
2007/01/11(木) 07:52:48ID:???ＤＯＳ窓を開いて
> perl /path/to/hoge.pl
みたいに実行させたり hoge.pl が終了する部分に `pause` を書くとか。。
0745nobodyさん
2007/01/11(木) 07:57:07ID:???0746nobodyさん
2007/01/11(木) 10:36:19ID:???644は実行権限が無いから、プログラムとしては動かない
とはいえ拡張子がcgiだとhttp経由ではプログラムとしてしか見れないようになってるはず
つまり644で閲覧は現実的じゃない（できないことは無いだろうけど）
それよりもif文で分岐して2つのファイルのどちらかを読み込んで表示すればいいんじゃね？
0747nobodyさん
2007/01/11(木) 12:13:26ID:???以前は PPM 経由でインストールできてたのにこんなことってあるんですね・・・
0748nobodyさん
2007/01/11(木) 13:04:09ID:???0750nobodyさん
2007/01/11(木) 13:13:49ID:???http://www.microsoft.com/japan/msdn/vstudio/express/visualc/usingpsdk/
0752nobodyさん
2007/01/11(木) 13:20:57ID:???ppm3はモジュール名じゃなくてディストリ名で検索しないといけなかったような
つまりTime-HiResで
0753nobodyさん
2007/01/11(木) 13:28:22ID:???配布されてるので、いちいち別にとってきてインスコする必要はなくなった。
0754nobodyさん
2007/01/11(木) 13:29:22ID:???ありあと・・・でも >751 さんの方法で見つかった m(_ _)m
0757nobodyさん
2007/01/11(木) 14:56:34ID:???0758nobodyさん
2007/01/11(木) 15:08:39ID:???0760nobodyさん
2007/01/11(木) 15:27:03ID:???少し疑問があるのですが、これってURLを直接打ち込まれたら
第三者に覗かれる恐れがありますよね？
0761nobodyさん
2007/01/11(木) 15:28:49ID:???0762nobodyさん
2007/01/11(木) 15:30:33ID:???データファイルは HTTP で見れる範囲より外に置くか、ランダムな文字列で生成された16文字ほどのディレクトリに置けばいい
でなきゃ DB にぶち込むとか・・・
0763nobodyさん
2007/01/11(木) 15:32:42ID:???0764nobodyさん
2007/01/11(木) 15:36:39ID:???説明不足でした。条件を満たしたら隠しページのファイルを読み取るよう
にしたかったのですが、隠したいページのURLを直接入力されたら終わり
だなあと思いまして。
>>762
HTTPで見れる範囲外ですか...なるほど。ちょっと調べてみます。
ランダムなディレクトリはrand関数でなんとかなりそうですが、
僕の知識ではまだまだできそうにありませんorz
>>763
cgiを644にするとファイルが読み取れなくなってしまうので
どうしたもんかと途方にくれています。
みなさんありがとうございます。
■ このスレッドは過去ログ倉庫に格納されています