Perlコーディング初心者質問スレ Part 43
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2005/08/12(金) 01:26:47ID:mHnZWvqz【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0492485
2005/09/18(日) 17:39:42ID:???0493nobodyさん
2005/09/18(日) 17:42:06ID:???なんで、それだけで動くと思う？
http://perldoc.jp/docs/modules/DBD-mysql-2.1026/DBD/mysql/INSTALL.pod
0494485
2005/09/18(日) 17:57:30ID:???Perlモジュールスレがあったみたいなので、そちらで勉強してきます。
0495nobodyさん
2005/09/19(月) 19:07:11ID:beipsuRn共通の設定定義ファイルを読み込み、それがシステムで使いまわされる感じを
考えています。
＊パス構成＊
cgi-bin/
| settings.pl … (x)変数に設定を代入している、定義ファイル
-log
| |counter.cgi … (a)アクセスカウンター ( settings.pl で設定した変数が生きている )
|
-bbs
.|index.cgi … (b)掲示板トップ ( settings.pl で設定した変数が消えている )
(a)にて、require '../settings.pl' を行うと、(x)で宣言した変数は生きているのですが
(b)にて、require '../settings.pl' を行っても、(x)の宣言が反映されません。
どなたか、お知恵をお貸しいただければ幸いです。
0497nobodyさん
2005/09/19(月) 21:36:55ID:???問題が発生する最も短いソースを作ってみることが大切だね。
そうすると、質問しなくても自分で解る場合も多い。
一番ありそうなのは、変数のスコープが違っているということだろうけど。
0498nobodyさん
2005/09/19(月) 21:45:40ID:uGVzhqRv0499nobodyさん
2005/09/19(月) 21:49:45ID:???全然試してないけど
my $file = 'hoge.txt';
my $line = 12;
open(FH, $file) || die "$file : $!\n";
while (<FH>) {
next if ($. < $line || $line < $.); # skip
print $_; # 目的の行
}
close(FH);
0500495
2005/09/19(月) 21:55:20ID:???レスありがとうございます。
二重require(use) して、干渉しているようです。？?（？Д？）
cgi-bin/
| settings.pl … (x)変数に設定を代入している、定義ファイル
-log
| |counter.cgi … (a)アクセスカウンター
|
-bbs
.|index.cgi … (b)掲示板トップ
.|BBSthread.pm … (c)ｽﾚｯﾄﾞ制御モジュール
(b)の index.cgi では、 use BBSthread.pm を宣言していて、
さらに (c) の BBSthread.pm で require '../settings.pl' 宣言していました。
試験的に use BBSthread をコメント化したところ、
settings.pl で設定した値が取得できました。
counter.cgi ではこのような二重require を行っていません。
これが原因っぽいです。
今回は、二重require されないようコーディングすることによって回避します。
ありがとうございました。
0501nobodyさん
2005/09/19(月) 22:03:07ID:???質問の上手い下手だけでその人の素質が分かりそうな気がする。
0502nobodyさん
2005/09/20(火) 00:12:02ID:???同じファイルに対してrequire を二重に実行すると、２回目は読み込まれない。
BBSthread.pm とcounter.cgi とで変数のスコープが違っているなら、
先にrequire した方にのみ、settings.plの内容が反映されることになる。
手っ取り早く解決するなら、require を eval に変更すればいいのだが、
このような使い方は感心しないね。
settings.pl の内容を、システムに共通な定数のリストを返す「関数」
にして、各モジュールはこの関数を呼び出すのが常道だと思われるが。
0503nobodyさん
2005/09/20(火) 02:27:35ID:jMPX6Q/fSQLで取得したデータをHTMLでテーブルにして表示しているのですが、
よくフリーメールであるような各行にチェックボックスがあって、
それにチェックを入れたデータだけCSVに書き出すといったものを作りたいのですが、
ロジック的にはどういったものになるのでしょうか？？チェックボックスでCGIに渡せるパラメータは
○○=on とかってなりますよね。どうやって、データを識別したらよいでしょうか？？？
0505nobodyさん
2005/09/20(火) 03:50:56ID:???決してバカにするつもりで聞くわけじゃないけど、今までにCGIのプログラムを
書いて、ブラウザからフォームのデータを受け取ってみたことある？
いや、もしかして、そのレベルでつまづいているんじゃないかと思ったんで。
0506nobodyさん
2005/09/20(火) 04:20:05ID:???そういうひねくれた質問の仕方すると何かいいことある？
いや、もしかして、初心者いじって喜んでるんじゃないかと思ったんで。
0507nobodyさん
2005/09/20(火) 06:54:46ID:???0508nobodyさん
2005/09/20(火) 07:07:20ID:???0509nobodyさん
2005/09/20(火) 07:19:44ID:???<input> には name と value に任意の文字列が指定できる。
チェックボックスの場合、チェックがオンになっているときだけ
name=value という形式の文字列が送られてくる。
従って name が同じでも value が違えば識別できる。
順序は保証されないので、順序に依存してはいけない。
0510nobodyさん
2005/09/20(火) 08:49:48ID:???試してみてから質問してもらえるか。
> 2： それでこんな風にやってみたが･･･
> 3： こんなエラーが出て上手く行かなかった。
0511505
2005/09/20(火) 11:54:43ID:???503の質問って、別の板にもあった。そこでWebProgに行けって言われたから
ここに来たのだろうと思うんだが、質問内容に何も改善がなく、コピペしている
だけなんで、あいかわらず質問者の意図もレベルも分からなかいから、
どこまで分かってる？ と、確認しているだけなんだが・・・
何を試したかとか、どこまで分かっているか、とか、情報が一切ないのは困る。
0512nobodyさん
2005/09/20(火) 18:16:45ID:???CGI.pmを使ってフォームの値を受け取ろうとしてます。
-----
<form action="hoge.cgi?getval=ggg" method="post">
<input type="hidden" name="postval" value="ppp">
<input type="submit">
</form>
-----
こんな感じのフォームの値を受け取ろうとしているんですが、
GETの引数がCGI.pmに渡されません（この場合getvalが渡されない）
これは仕様でしょうか？何か方法があったりしますか？
0513nobodyさん
2005/09/20(火) 18:27:59ID:???0514nobodyさん
2005/09/20(火) 18:28:07ID:???> <form action="hoge.cgi?getval=ggg" method="post">
自分で method="post" て書いてるじゃないですか…。GET引数は渡りません。
hiddenで渡してください。
0515512
2005/09/20(火) 18:42:00ID:???>514
故意にPOSTを指定してるんです。
actionに「acton=hoge.cgi?getval=ggg」としてるんで、GETの値も渡るかなと思ったんですが、
ダメなんですかね？
そういうものなんでしょうか？
0516nobodyさん
2005/09/20(火) 18:53:02ID:???それでは、なぜGETとPOSTがあるのかを説明してください。
また、メソッドになぜ両方指定するものがないのかも考えてください。
0517nobodyさん
2005/09/20(火) 18:53:22ID:???(undef, $getval) = split /=/, $ENV{QUERY_STRING};
でOK。
0519nobodyさん
2005/09/20(火) 19:06:19ID:???0520512
2005/09/20(火) 19:12:18ID:???えっと、分かりません(汗
なんでなんでしょう？
私の中では、ブックマーク可能なページはGETにしとく、、くらいの認識しかないです。
あと、URL直接叩かれるとまずいページはPOST、、とか。そんな認識でごめんなさい。
>517
CGI.pmに頼らず、自分でパースしなくてはならない、ということですね。
これならできそうです。
で、
POSTのときってURLでパラメータ渡しちゃダメなんでしょうか？それが普通？
php書くときは結構普通にやってたけど、これって考えを改めたほうが良いですか？
0521nobodyさん
2005/09/20(火) 19:15:09ID:???> POSTのときってURLでパラメータ渡しちゃダメなんでしょうか？それが普通？
お行儀は良くない程度と思っておけばいいんじゃない？
CGI.pmはmethodを見るから受け取れなかっただけ
0522nobodyさん
2005/09/20(火) 19:22:09ID:???> POSTのときってURLでパラメータ渡しちゃダメなんでしょうか？それが普通？
問題ないと思うよ。
おれもよく使ってる。
0523nobodyさん
2005/09/20(火) 21:01:01ID:???もしも下記に間違い等ございましたらご教示いただきたい
次第です。
宜しくお願いいたします。
sub remove_emoji{
my $str = $_[0];
# i-mode, EZweb
my $sjis = '[\x81-\x9F\xE0-\xF7\xFA-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\x7F]|[\xA1-\xDF]';
my $emoji = '[\xF8\xF9][\x40-\x7E\x80-\xFC]';
$str =~ s/\G((?:$sjis)*)(?:$emoji)/$1/go;
# vodafone
$str =~ s/\x1B\$[\x21-\x7A]+\x0F//g;
return $str;
}
0526nobodyさん
2005/09/20(火) 22:23:57ID:???不愉快な思いをさせてしまい、本当に申し訳ありませんでした。
今のところ不具合はないのですが、もしもアドバイス等いただ
ければと思い書かせていただいた次第です。
悪気はありませんのでお許しください。
すみませんでした。
0527nobodyさん
2005/09/20(火) 22:29:15ID:???CGIモジュールではPOSTメソッドのときにurlのquery stringで渡した
パラメタはurl_paramっていう別のインタフェースでとるようになって
いるのよ。詳しくはCGIモジュールのマニュアル嫁。特にMIXING POST
AND URL PARAMETERSという見出しのところ。
0528512
2005/09/21(水) 00:16:24ID:???なるほど、安心しました。
>527
ごめんなさい。おもいっきり書いてましたね。
どうもありがとうございます。ものすごく助かりました。
精進します。
0529nobodyさん
2005/09/21(水) 02:03:43ID:???0530nobodyさん
2005/09/21(水) 11:00:47ID:???自作CGIを評価するスレ
http://pc8.2ch.net/test/read.cgi/php/1049514428/
0531nobodyさん
2005/09/21(水) 11:41:12ID:AdBzR2Q9perlで作成したcgiの質問があります。
HTML側で
<input type=file name="aaa">
<input type=file name="bbb">
とファイルを指定して
perlのcgi側で受け取りたいのですが
やり方がわかりません。
色々ネット上を調べたり「とほほ」を見ていたけど
二つ以上ファイルを受け取る方法がわかりません。
なにか情報をいただけますと幸いです。
0533531
2005/09/21(水) 13:22:54ID:AdBzR2Q9今の所
use CGI;
my $cgi = new CGI;
my $comment = $cgi->param('comment');
上記のようにして取得しています。
だたファイルの場合はどうすれば取得できるのか不明だったため
質問させていただきました。
0534nobodyさん
2005/09/21(水) 13:51:44ID:???これが原因じゃなかったら他の回答者のレスに期待してくれ。
0535531
2005/09/21(水) 15:03:05ID:AdBzR2Q9<FORM METHOD=POST ENCTYPE="multipart/form-data" ACTION="test02.cgi">
<INPUT TYPE=file NAME="AAA"><BR>
<INPUT TYPE=file NAME="BBB"><BR>
<INPUT TYPE=submit VALUE="送信">
うーむ 助けて偉い人ー
0537531
2005/09/21(水) 15:56:07ID:AdBzR2Q9INPUT TYPE=file
のデータの取得方法が分からないのです、、、
説明不足で申し訳ありません
0538531
2005/09/21(水) 15:58:18ID:AdBzR2Q9ひとつだけだったら
http://web.archive.org/web/20010210200144/wakusei.cplaza.ne.jp/twn/cgi-bin/wwwupl2.txt
で取れるとわかったのですが。
0541531
2005/09/21(水) 17:13:23ID:AdBzR2Q9えーっとそのCGIモジュールを使用した際の
取得方法をお教えいただきたいのです。
わがままなのは十分承知しておりますが
ヒントではなくズバリッお教えいただけますと幸いです。
0542nobodyさん
2005/09/21(水) 17:21:41ID:???CGIモジュールの使い方をどうやって調べるか？
下記の順序でお試しください。
１．マニュアルを読む
２．和訳がないかググる
３．分かりやすく説明したサイトがないかググる
４．使っている他のスクリプトがないかググる
５．開き直ってにちゃんねるで聞く
0543531
2005/09/21(水) 17:36:51ID:AdBzR2Q9use CGI;
my $buffer;
my $query = CGI->new;
my $file = $query->param('BBB');
#my $file_name = ($file =~ /([^\\\/:]+)$/) ? $1 : 'uploadedd.bin';
my $file_name = 'aaa.jpg';
open(OUT, ">$file_name") or die(qq(Can't open "$file_name".));
binmode OUT;
while (read($file, $buffer, 1024)) {
print OUT $buffer;
}
close OUT;
どうもお騒がせいたしましたっ
0544nobodyさん
2005/09/21(水) 22:30:20ID:???0545nobodyさん
2005/09/21(水) 23:07:53ID:???0546nobodyさん
2005/09/22(木) 02:02:03ID:???0548nobodyさん
2005/09/22(木) 09:00:24ID:???0549nobodyさん
2005/09/22(木) 10:10:21ID:???0550nobodyさん
2005/09/22(木) 17:44:54ID:???0551nobodyさん
2005/09/22(木) 17:46:12ID:???0552nobodyさん
2005/09/22(木) 18:00:03ID:???0553nobodyさん
2005/09/22(木) 18:34:37ID:???0554nobodyさん
2005/09/22(木) 19:49:05ID:???0555nobodyさん
2005/09/22(木) 19:57:59ID:???↓test.pl
-----
#!/usr/bin/perl
use strict;
use const; # この行をコメントアウトすると動く
use func;
my $obj = func->new();
$obj->print_var();
-----
↓func.pm
-----
package func;
use const;
sub new() {
my $class = shift;
my $self = {@_};
bless $self, $class;
}
sub print_var() {
printf('[%s]', FOO);
}
1;
-----
↓const.pm
-----
use constant FOO => 'aaa';
1;
-----
tesp.plを実行しても、const.pmの中のFOOの値が表示されずに、そのまま"[FOO]"が表示されます。
でも、test.plの中の「use const;」をコメントアウトすると、きちんと"[aaa]"が表示されます。
各ページで共通の定数を用意したいときは、違う方法が必要なのでしょうか？
0556nobodyさん
NGNGPerl5.8以降のサーバーで動作しなくなったのですが
使えなくなった関数などがあるのでしょうか？
わかる方いましたら教えてください。
0557nobodyさん
2005/09/22(木) 20:37:31ID:???0559nobodyさん
2005/09/22(木) 20:56:13ID:???そのやり方ではだめ。const.pmが最初にuseされるときにカレントの
パッケージでFOOが定義されて、それ以後のuseでは既に読み込まれている
ので無視されている。test.plのuseをコメントアウトすると動くのは
それによってfunc.pmでのuseが最初になるからだ。
で、こういう用途には定数をexportするモジュールにするのが普通。
perlmod読んでパッケージとモジュールについて勉強するのがいいだろう。
0560nobodyさん
2005/09/22(木) 21:04:17ID:???なら関数とかいうんじゃなくて鯖独自の問題のような希ガス
0561556
NGNGsub NewsChange {
for ($NC = $NewsMax; $NC >= 2; $NC--) {
$News[$NC] = $News[$NC - 1];
}
$News[1] = $_[0];
$GFyear++;
}
ここらへんが誤動作してそうです・・・。
0562556
NGNGsub NewsChange {
for ($NC = $NewsMax; $NC >= 2; $NC--) {
$News[$NC] = $News[$NC - 1];
}
$News[1] = $_[0];
$GFyear++;
}
ここらへんが誤動作してそうです・・・。
0566556
NGNGまったく別なんですが３つのサーバーで試してずっと前から使ってた１つ目のサーバーは大丈夫で
２つ目、３つ目の新しいサーバーが同じようなバグが出て使い物にならなかったので
新しい仕様だから使えないのではないかと思いました。
0567nobodyさん
2005/09/22(木) 22:54:51ID:???0568556
NGNGエラーメッセージは出ません。
まったく同じスクリプトをまったく同じ手順で設置しているんですが
正常にゲームができるサーバーと、ゲーム開始直後に
同じログがずらりと並んでゲームができなくなるサーバーがあります。
0569nobodyさん
2005/09/22(木) 23:15:47ID:???願うしかないような希ガス。
0571nobodyさん
2005/09/23(金) 00:46:02ID:???ログってあんたが勝手に考えた仕組みだろう。
そのログを取る部分、そしてログの意味とか晒してもらわにゃ何とも言えん。
ていうか、変数の流れを追えばちゃんとエラーを特定できるはずだから。
0573エスパー回答者
2005/09/23(金) 01:51:44ID:???FORTRAN に対する郷愁が無いのなら、@Newsは0番目の要素から使うようにすべきだろう。
unshift @News, $new_element;
splice @News, $NewsMax-1;
$GFyear++;
とすれば、誤動作していたサブルーチンNewsChange を削除することができる。
これで問題は全て解決する（......はずだよな）。
0574nobodyさん
2005/09/23(金) 10:48:25ID:???0575nobodyさん
2005/09/23(金) 11:41:48ID:???とか、言ってみたりする。
0576nobodyさん
2005/09/23(金) 11:47:00ID:???JavaScript にしとけ。
0577nobodyさん
2005/09/23(金) 12:07:02ID:???0579nobodyさん
2005/09/23(金) 16:12:52ID:NELxQvyQここのアクセスカウンターって改造されてね？
0580nobodyさん
2005/09/23(金) 16:20:20ID:???0582nobodyさん
2005/09/23(金) 20:49:12ID:???0583nobodyさん
2005/09/23(金) 21:32:21ID:???0584nobodyさん
2005/09/26(月) 01:11:42ID:???Perl内で、他のURLにあるデータを参照することはできますか？
具体的には、
open(WORK,"http://www.hogehoge.net/foo/baa.txt");
みたいな事です。
0587nobodyさん
2005/09/26(月) 02:22:09ID:???なぜゆえ・・・
■ このスレッドは過去ログ倉庫に格納されています