Perlコーディング初心者質問スレ Part 45
■ このスレッドは過去ログ倉庫に格納されています
0001988
2005/12/08(木) 22:48:27ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0514512
2006/01/08(日) 07:47:55ID:ekOfQHSyじゃあ、コテハン名乗りたいです！
というか、ここでのコテハンを持ちたいんです。ここの住人になりたいと思ったから！
よかったら、僕に命名してくれませんか
0517nobodyさん
2006/01/08(日) 08:17:21ID:???「ここの回答者は初心者ばかり」って言っていたやつは、
初心者以下だったことがはっきりしたのは収穫だったけど。
0518nobodyさん
2006/01/08(日) 09:48:09ID:???0519nobodyさん
2006/01/08(日) 11:38:52ID:???0520nobodyさん
2006/01/08(日) 12:52:37ID:???0521nobodyさん
2006/01/08(日) 13:15:22ID:Pbsz8/Oh暇ってよりも、みんなはNGワード登録したいだけなんじゃないかなとｗ
0523nobodyさん
2006/01/08(日) 22:08:51ID:???0524nobodyさん
2006/01/08(日) 22:52:11ID:???移動してもらえると有り難い。
自分の作ったCGIスクリプトをデバッグするスレ
http://pc8.2ch.net/test/read.cgi/php/1011174442/
>>523
【総合】 Webprog板質問雑談スレッド 1
http://pc8.2ch.net/test/read.cgi/php/1131016915/
業界談義、愚痴はプログラマ板へどうぞ。
http://pc8.2ch.net/prog/
0525nobodyさん
2006/01/08(日) 23:06:59ID:Uz3qgn+xA.cgiで入力した出力結果（たとえばヘローワールドとか）を
B.htmlの中に埋め込んで表示したい場合、って
どうやって表示させるのでしょうか？
A.cgi→B.cgiに表示させるのは判るのですが・・・
0526nobodyさん
2006/01/08(日) 23:08:46ID:???0527nobodyさん
2006/01/08(日) 23:14:20ID:???（ﾟ∀｡）
0528nobodyさん
2006/01/08(日) 23:17:56ID:???0530nobodyさん
2006/01/08(日) 23:56:33ID:Pbsz8/Oh0531514
2006/01/09(月) 00:40:09ID:YG2ddn0l初心者の質問スレなので、スレ違いの発言は避けます。すみません。
0532nobodyさん
2006/01/09(月) 00:42:41ID:Exqn7RF4その書き方だと「僕は初心者じゃ有りません」ってなっちゃうぞ！
あっ！初心者にも達してないってことなのか！
すみませんでした！！
0533nobodyさん
2006/01/09(月) 00:43:12ID:???0534nobodyさん
2006/01/09(月) 00:59:21ID:DuxY6YkJ自分で調べなさすぎるけど。
0535531
2006/01/09(月) 01:39:57ID:YG2ddn0lあっ、いやそうじゃなくてですね。
僕は初心者には違いありません。
ただ、余計なことを書き過ぎたので必要以上の私語は慎みますと言う意味です。
0536531
2006/01/09(月) 01:58:24ID:YG2ddn0lそこで、僕の理解が正しいのかだけ答えてもらえませんか？
フォームで入力したものをcgiファイルに渡して、それを変数に入れて使うとき
$i=$FORM{'i'};とか、$FORMが$inになってるものとか、$i=$cgi->param('i');みたいなのとかありますよね。
３番目が別物と言うのは何となく分かるんですが、１番目と２番目もやはり違うものどうしですか？
0537nobodyさん
2006/01/09(月) 02:57:25ID:???前者の二つはcgi-lib.plを使って後者はCGI.pmを使っていると見受けられます。
0538nobodyさん
2006/01/09(月) 03:41:58ID:???0539536
2006/01/09(月) 05:18:37ID:YG2ddn0lありがとうございます。
>前者の二つはcgi-lib.plを使って後者はCGI.pmを使っていると見受けられます。
と言う点については、理解しています。（cgi-lib.plやCGI.pmの説明は出来ませんけど＾＾；）
僕が分からなかったのは、$FORMと$inについてで
両方ともcgi-lib.plをrequireしていますよね？んでも、違う変数にセットしている。と言うのがいまいち理解に苦しんでいたんです。
この２つ（もっとあるのかもしれませんが）を使い分けるような必要性があるから作られていると思うのですが、それはどんな時なのでしょうか？
0540nobodyさん
2006/01/09(月) 05:22:52ID:???cgi-lib.plの中身を見れ。すぐわかる。
そういうことしようとしないですぐ聞いちゃうから呆れられるんだよ。
0541nobodyさん
2006/01/09(月) 05:29:28ID:uNKy5Wkjfor ループを使うときに $i を使う人と $j を使う人が居る
配列に @list を使う人と @arr を使う人が居る
ただそれだけ
難しく考えすぎ
0542539
2006/01/09(月) 06:12:11ID:YG2ddn0lすみません。読もうとしたことはあったんですが、正直、全く読めず僕にはまだ早いのかもと諦めていました。T_T
でも、それも読むべきなんですね。果てしない道のりですね。
ご指摘、どうもありがとうございました！
>>541
そうなんですかー。
あまり難しく考えないで良いとわかって良かったです！
少しずつ、基礎の基礎が分かるようになって行けば、基礎の段階に進めるので
地道に頑張ります。
0543nobodyさん
2006/01/09(月) 09:38:58ID:DuxY6YkJ君ひどすぎるよ。
わからんところがあったら自分で少しは調べろよ。自分で少しは考えろよ。
まず、｢Perl 入門｣でもググって、Perlの基礎を勉強しろよ。
｢初心者以下｣っていわれるのはそれすらしてないからだろうが。
しましたとかいうなよ。実際君は基礎的な構文すら理解してないんだから。
わかったら>>1と>>7読め。
0544nobodyさん
2006/01/09(月) 12:25:25ID:???0545nobodyさん
2006/01/09(月) 12:51:17ID:???unixの
perl -e 'print $var, "\n";'
をどう書いたらいいでしょうか。
NG: perl -e "print $var, \"\n\";"
0546nobodyさん
2006/01/09(月) 13:21:44ID:???0547nobodyさん
2006/01/09(月) 13:39:16ID:???0548nobodyさん
2006/01/09(月) 13:43:05ID:???ども。
あれ、それででけた。さっき、だめだったのは何かの間違い。
でも、やっぱcmd.exeでは、かなり面倒ですね。
0550nobodyさん
2006/01/09(月) 16:33:02ID:???知ってれば悩まなくてよかったのにね。
0551nobodyさん
2006/01/09(月) 23:08:44ID:???copalって知ってる? 便利やよ。
ttp://homepage1.nifty.com/kaityo/copalpro/
0552nobodyさん
2006/01/10(火) 03:27:54ID:j2HoU23fプログラムは面白いです。今まで嵌っててここに挨拶に来るのも忘れてました。
>>543
ご指摘ありがとうございます！！
今の僕じゃ何も言えないので、お言葉、だまってありがたく頂戴します。
>>all
あの、ここは初心者の質問スレということなので僕にとって知りたい事を質問させて頂いてたつもりだったんですが
どのレベルなら許されますか？
0553nobodyさん
2006/01/10(火) 04:05:08ID:???0554nobodyさん
2006/01/10(火) 04:15:56ID:NnDCxprG関数を全部覚えろとは言わない。
多用される関数・構文ぐらいは覚えた上での質問を。
とりあえずリファレンスは手元に置いておいたほうがいい
個人的には技術評論社が好き
0555nobodyさん
2006/01/10(火) 04:36:29ID:???ここは「知りたいことを質問する場」じゃなくて
「初心者じゃ手に負えないこと」を質問する場所。
お前のように試行錯誤もしないで疑問を片っ端から
垂れ流す場所じゃ無いってこと。つかお前何歳？
0556nobodyさん
2006/01/10(火) 05:40:00ID:???スルーされることによって、どういう質問なら適切か、答えが返ってくるかって覚えていくもんだろ？
>>555
＞つかお前何歳？
思わず笑っちまったがこの質問は無いだろうｗ
何歳だったら良いって問題じゃないっつーか。
この質問が既に話を聞いてあげる姿勢の現れっつーか。
深みに嵌りかけてますぞ
0558nobodyさん
2006/01/10(火) 09:25:04ID:j2HoU23funshift(@hoge, splice(@huga, 1, 1));
@hugaの１番目だけを、@hogeの先頭にくっつけたいのです。
本の通りなのですができません。
何故なのでしょうか？
0559nobodyさん
2006/01/10(火) 09:37:51ID:???splice @huga, 0, 1
0561nobodyさん
2006/01/10(火) 10:57:13ID:j2HoU23f>>559,>>560
レスありがとうございます。
「splice @huga, 0, 1」も「shift @huga」も、@hugaの１番目のみを削除しているんですよね？
１,２,３,４,５
６,７,８,９,１０
１１,１２,１３,１４,１５
っていうファイルを
２,３,４,５
７,８,９,１０
１２,１３,１４,１５ と変える...？
ちょっと違うような。@hugaから抜いた１番目のものを
@hogeの先頭にくっつけるには
unshiftを使って、<配列の先頭に要素を追加する>と書いてありました。
更にそのまま引用すると
●配列の$i番目の要素を別の配列の先頭に追加する
unshift(@newarray, splice(@oldarray, $i, 1));
（CGI/perlポケットリファレンスより抜粋）
何が間違っているのでしょうか......
0562nobodyさん
2006/01/10(火) 12:06:07ID:???perlの配列は添字が0から始まるので、最初の要素から
0番目,1番目,...とあらわすことがよくあります。ポケット
リファレンスはこの書き方を採用しているようですな。
0563nobodyさん
2006/01/10(火) 12:09:39ID:???> 何が間違っているのでしょうか......
ここ↓
> ●配列の$i番目の要素を別の配列の先頭に追加する
splice の第二引数は配列の先頭からのオフセットなので 0 から始まるのよ。
即ち通常は splice し始める要素の添字と一致する。従って、
> unshift(@newarray, splice(@oldarray, $i, 1));
の動作はその本の記述に合わせると、
「配列の$i+1番目の要素を別の配列の先頭に追加する」
ということになる。
@oldarray から取り除くものが先頭要素に固定されているのなら >>559 の言うように、
unshift @newarray, shift @oldarray;
で等価。
0565563
2006/01/10(火) 12:44:26ID:???おせっかいついでに、
当方は
「あなたがどんな結果を期待しているのか」
「実行したコード」
「実際の結果」
のうちどれひとつとして知らないので、本来は「何が間違っているのでしょうか」と問われても「何かが間違ってるんでしょうねぇ」としか答えられないのですわ。
だから期待した返答がなくても、あるいは期待しなかった返答すらなくても許してね。ぼくがんばったの。
0566nobodyさん
2006/01/10(火) 15:28:44ID:???ﾏｼﾞお勧め！
0567nobodyさん
2006/01/10(火) 15:57:35ID:???$namae = 'kansuu';
$bangou = 1;
${$namae . $bangou} = kansuu;
&$kansuu1;
sub kansuu { print 'hoge' }
0568nobodyさん
2006/01/10(火) 16:06:53ID:???0569nobodyさん
2006/01/10(火) 16:24:34ID:???これでOK？
ちなみになぜ&kansuu1;でいいのかいまいちわかってなかったりするw
myとか使ってやってみてるけどﾃﾞｷﾈorz
#!/usr/local/bin/perl
use strict;
$main::namae = 'kansuu';
$main::bangou = '1';
$main::{$main::namae . $main::bangou} = 'kansuu';
&kansuu1;
sub kansuu { print 'hoge' }
0570567
2006/01/10(火) 16:31:00ID:???それがstrictじゃ無い環境だと勝手に文字列扱いしてくれるんだよね、これが
-wで警告が出るけど、その辺の解釈が微妙だからstrict subsがあるわけだ
my $hoge = func;
sub func { print 'hoge' }
print $hoge;
>>569
ちょ、おまｗ
>>567はネタで考えられる限りの悪例だぞｗ
> ちなみになぜ&kansuu1;でいいのかいまいちわかってなかったりする
${$namae . $bangou}ここで$namaeと$bangouを連結した名前の変数、
つまり$kansuu1に代入してるから。
strictに真面目に書くとこう
my $name = 'kansuu';
my $num = 1;
my %hash;
$hash{$name}[$num] = \&func;
&{$hash{$name}[$num]};
sub func { print 'hoge' }
0571nobodyさん
2006/01/10(火) 16:37:22ID:???俺もまさかそのままで通るとは思わなかったw
一応strictになってるっぽいw
あと、$kansuu1に連結して、&kansuu1で呼び出すのはわかるんだけど、
なぜ&kansuu1;でサブルーティン呼び出せるのかがいまいちわからんのだ
0572nobodyさん
2006/01/10(火) 17:11:34ID:???あーｽﾏﾝ$がないの読み落としてた
これは、名前空間を直接操作してmain::kansuu1にkansuuを登録しちゃってるから。
$, = "\n";
print keys %main::;
とかやってみるとわかると思う
0573nobodyさん
2006/01/10(火) 17:34:33ID:???ちょっとだけわかってきた気がする
#!/usr/local/bin/perl
use strict;
$main::test = 'yeah';
$main::{$main::test} = 'kansuu';
&yeah;
sub kansuu { print 'hoge' }
これでも呼び出せるって事か
つかややこしいなぁ
初心者の俺には理解の範疇を超えそうな感じだよ
色々試してがんばって消化してみる
0574nobodyさん
2006/01/10(火) 17:34:45ID:NnDCxprG0575nobodyさん
2006/01/10(火) 18:05:03ID:???俺はこのやり取りを見ずに>>573を見ても、
何でだかさっぱりわからなかったと断言できるかも。
普通にsub yeahを探しちゃうだろうし。
0576nobodyさん
2006/01/10(火) 18:07:05ID:???0577nobodyさん
2006/01/10(火) 18:15:52ID:???確かにuse strict;は通るがそういう問題じゃない
0578nobodyさん
2006/01/10(火) 18:15:53ID:???0579nobodyさん
2006/01/10(火) 20:48:46ID:???0581nobodyさん
2006/01/10(火) 23:19:13ID:???Shift_JISコードのCSVファイルを読み込んで、jcode.pl を使ってJISコードに変換してから
ブラウザに吐き出すCGIプログラム（プログラムはJISコード）を作成中なのですが、
1. CSVを読み込む
2. htmlタグ文字のエスケープ（<>&"'）
3. JISコードに変換
4. 出力
の場合には文字化けは起こらなかったのですが、2. と 3. の処理を逆
（変換してからエスケープ）にすると文字化けしてしまいました。
これは、JISコードの日本語文字中に、htmlタグ文字（<>&"'のどれか）が
含まれているのが原因という認識でいいのでしょうか？
その回避策として、Shift_JISの状態でエスケープをするのは問題ないでしょうか？
（Shift_JIS の場合は「\」が入る文字があるのは認識してますが他にも含まれる文字があればマズイですよね…）
ご教示いただけると幸いです。
0582nobodyさん
2006/01/10(火) 23:27:58ID:???> これは、JISコードの日本語文字中に、htmlタグ文字（<>&"'のどれか）が
> 含まれているのが原因という認識でいいのでしょうか？
そのとおり。どれかどころか全部含まれる
> その回避策として、Shift_JISの状態でエスケープをするのは問題ないでしょうか？
その五つの文字に関してはShift_JISの範囲外だから問題ない。
良く知られている\のほかにも色々な文字が範囲に入っているので
EUC-JPに変換したほうが良いこともある。
ここを見ると良く解ると思う
ttp://www-cms.phys.s.u-tokyo.ac.jp/~naoki/CIPINTRO/CCGI/kanjicod.html
0584581
2006/01/11(水) 02:32:30ID:???レスありがとうございます。
JISコードの場合は <>&"' が全部出てくる可能性があるんですね。
非常に勉強になります。。
ちなみに、タグ文字をエスケープ（< など）で現れる
セミコロンは自体は大丈夫でしょうか？
（日本語の1byte目とくっついて文字化けなど）
とりあえずはSJISのエスケープでやってみます。
ありがとうございました。
0585nobodyさん
2006/01/11(水) 03:01:58ID:???範囲内にあるかは>>582のページと適当なASCIIコード表をつき合わせればわかる。
ttp://adlib.rsch.tuis.ac.jp/~akira/lect/softa/ascii.html とか
--------------------------------81=====9F---------------E0=====FC-: SJIS全角 上位
----------------40=============================================FC-: SJIS全角 下位
に対しセミコロンは3Bで範囲外
そもそも、範囲内だったしてもamp;のように1byte目となる位置は必ずアルファベットでしょうが
0586nobodyさん
2006/01/11(水) 09:19:18ID:???これは絶対外せないルールなのか？
0587nobodyさん
2006/01/11(水) 10:05:55ID:CQ4aDWhiこのCGIをダウソしたんですが、CGIを設定することができずに困ってます
とりあえずウェブスペースにうｐしたら「500 Internal Server Error」と表示されました
どなたかお願いします
0588nobodyさん
2006/01/11(水) 10:41:24ID:???0589587
2006/01/11(水) 10:49:16ID:???このあたりの設定も満足にできていません
>>588
たぶん自分のコーディングミスだと思います
0590587
2006/01/11(水) 10:56:49ID:???ここに設置しようと思ってます
0591nobodyさん
2006/01/11(水) 11:22:37ID:???0592nobodyさん
2006/01/11(水) 12:01:21ID:???0593587
2006/01/11(水) 15:39:23ID:CQ4aDWhi薄々聞く場所を間違えたのではないかと思っていましたが
お邪魔しました
他をあたります
レスありがとうございました
0594nobodyさん
2006/01/11(水) 18:11:07ID:???use strict;
use warnings;
use utf8;
binmode(STDOUT,':encoding(shiftjis)');
use LWP::UserAgent;
my($ua,$req,$res);
$ua = LWP::UserAgent->new;
$ua->timeout(10);
$req = HTTP::Request->new( GET => $ARGV[0] );
$res = $ua->simple_request($req);
この状態で$res->header('Content-Type')を出力するとなぜか二重になって返ってきます。
例えばYahooにアクセスさせて出力すると
text/html;charset=euc-jptext/html; charset=euc-jp
なんて文字列が返ってきます。
これはおかしいと思うのですが、なにか間違えていますか？
HTTP::ResponseはActive Perl 5.8.7についてたやつで、バージョン1.52です。
0595nobodyさん
2006/01/11(水) 18:12:22ID:???$iにはmyとかつけてあげた方が負荷的には少なかったりする？
再利用されるならグローバル変数でも問題なさそうな気がするけど、
こういう所って負荷を気にするならどうするのかなとちょっと質問。
もっと気をつけるところはあるんだろうけど、とりあえずやれるだけはやっておきたいので。
0596nobodyさん
2006/01/11(水) 18:27:30ID:???0597nobodyさん
2006/01/11(水) 18:50:18ID:???0598nobodyさん
2006/01/11(水) 18:55:27ID:rynIEcBA0599nobodyさん
2006/01/11(水) 18:59:22ID:???0600nobodyさん
2006/01/11(水) 19:07:41ID:???リダイレクトを自動的に処理させたくないのでsimple_requestを使っています。
また $ua->get をつかっても、やはりContent-Typeが二重になって返ってきます。
今気がつきましたが、Googleにアクセスすると完全に二重ではなく
text/htmltext/html; charset=Shift_JIS
という、すごい中途半端な感じになります…。
0601nobodyさん
2006/01/11(水) 19:14:24ID:???ってしたらリダイレクトされんと思うが
0602nobodyさん
2006/01/11(水) 19:26:15ID:???それリスト ("text/html", "text/html; charset=Shift_JIS")
as_stringでprintしてみ
0604nobodyさん
2006/01/11(水) 19:48:01ID:???そうすればgetメソッドでもできましたか。
しかし、個人的に見た目にすぐわかるのでsimple_requestを使っておきます。
>602-603
なるほど。リストでしたか。
解決できました。本当にどうもありがとう。
META要素も読んでいるのですか？
HTTP関係のモジュールは継承がすごくてどのモジュールをperldocすればいいのか…。
0605nobodyさん
2006/01/11(水) 19:54:11ID:???use utf8;
意味解って使ってるか？
0606nobodyさん
2006/01/11(水) 20:20:40ID:???はい、スクリプト中のリテラルをすべてUTF-8として扱い、
それらをUTF-8フラグ付き文字列に変換するということですよね。
今回のスクリプトではマルチバイトの文字がないので意味はないですが、
よく、スクリプトを作るに出力するエンコードをbinmodeですぐ変換できるようにつけていました。
その習慣で今回もつけてしまいました。すいません。
0607nobodyさん
2006/01/11(水) 20:59:00ID:???use encoding 'utf8';
じゃないのか？ まぁどっちでもいいのかもしれんけど。
use utf8;
$useutf8したからこんな変数名も使える = '中身';
print $useutf8したからこんな変数名も使える;
exit;
0608nobodyさん
2006/01/11(水) 21:19:14ID:???> META要素も読んでいるのですか？
LWP::Protocol::httpがLWP::Protocolのcollect()を呼び出していて、
そこでHTML::HeadParserをrequireしてる。
0609nobodyさん
2006/01/11(水) 22:10:05ID:???encondingプラグマはスコープがグローバルなはずなので、
他のエンコードで書かれたモジュールで問題が起きませんか？
マルチバイト使ったモジュールなんかそう無いので気にする必要ないかもしれませんが、
自分で何か作った時に、「した覚えがないのにUTF-8化されている」のはなんかハマる気がします…。
>>608
LWP::UserAgentからちょっと呼んでみました…。
…私には荷が重いようで…。
よくわからないので、headerメソッドの第1要素を使っておきます…。
どうもありがとうございます。
0610nobodyさん
2006/01/12(木) 01:27:01ID:???CGI を書くときには 有名なとほほさんの http://www.tohoho-web.com/cgi/wwwperl.txt のように
環境変数を直接読むのが普通です。
ただ、近頃は、CGI.pm を使うの方法も増えているようです。
でも、聞いた話によると、CGI,pmを読み込む分、環境変数を直接扱うより遅くなるそうですし、
使えない環境もあるそうです。
なんか、CGI.pmのマニュアル見ても難しそうだし、結局、CGI.pmを使うメリットというのは何なのでしょう?
0611nobodyさん
2006/01/12(木) 01:31:28ID:???バイナリかよ、って笑っちゃうぐらい
今は物好きしか使ってないんじゃない？
0612610
2006/01/12(木) 01:40:26ID:???環境変数直接扱い → CGI.pm
と変わってきたけど、結局、今はまた環境変数直接扱いの方が見直されてきたということで良いんでしょうか?
■ このスレッドは過去ログ倉庫に格納されています