Perl コーディング初心者質問コーナー Part34
■ このスレッドは過去ログ倉庫に格納されています
0001前スレの連投で気分崩したので後よろ
04/04/05 16:01ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0219205
04/04/13 19:40ID:???で出来ました。ありがとうございます。
0220nobodyさん
04/04/13 23:40ID:???187で質問した者です。
WEB動作環境は勤め先にあるので返答が遅れました。（アクセス制限がかかってるので）
ここに書いた例が間違っていて、実物はちゃんとダブルクォート閉じてました。
いろいろやってみて、どうも
Ａ． ＣＧＩが出力したＨＴＭをそのまま（連続で）表示した場合と、
Ｂ． それをソース表示して「保存」し、改めて表示した場合で
振る舞いが違うようです。こんなことがあるのかいなと思うのですが．．．
Ａ．Ｂ．のＨＴＭでは、hrefを使って別のCGIを引数つきで呼んでます。
そのCGIを、サーバにあった ENV.PL（環境変数を表示するやつらしい）と換えてみると
Bで表示される環境変数の多くがAでは出てこず、QUERY_STRINGもありませんでした。
（空文字列でなく、環境変数そのものが出て来ない）
ひょっとするとPERLの問題ではないかもしれませんが、スレ違いなら誘導してください。
明日はサーバーを変更してやってみます。
0221nobodyさん
04/04/14 00:50ID:???x <A href="test2.cgi?hogehogehoge">
o <A href="http://〜/cgi-bin/test2.cgi?hogehogehoge">
0223nobodyさん
04/04/14 06:12ID:???回答ありがとうございます。
最初の例では詳しく書いていませんでしたが、どちらのCGIの参照も
http:// から記述してます。（厳密には場所は一段違うところ）
222もそういう主旨ですよね？
0224nobodyさん
04/04/14 15:57ID:???CGI: Common Gateway Interface part 11
http://pc5.2ch.net/test/read.cgi/php/1055597189/
0225nobodyさん
04/04/14 19:03ID:ALtQW+6b187,220,223です。
誘導ありがとうございました。実は、サーバー変更（自分のPCでAN HTTPD走らせて）したら
問題なく環境変数が渡りました。問題のあったサーバーはNT＋IISです。
どうもCGI機能まわりのようなので、あちらで聞いてみます。お騒がせしました。
0226nobodyさん
04/04/14 20:57ID:1L/HDnzJこちらへ質問させて頂きます。
a.pl
b.pl
というスクリプトで、a.plからb.plへ標準出力で引数を渡し
b.plで受け取った引数を加工して、同じく標準出力で
a.plへ返すには、どうすれば良いのでしょうか？
open(FD,"./b.pl data1 data2 |");
という感じでやってみたのですが、a.pl⇒b.plへ
うまく渡されません。
どなたか、ご教授お願い致します。
0227nobodyさん
04/04/14 21:06ID:???0228226
04/04/14 21:38ID:1L/HDnzJ0229nobodyさん
04/04/15 14:38ID:???@<<< @<<<<<< @<<<<<< @<<
$a $b $c $d
.
write;
で出力される物を掲示板などのhtmlに出力したいのですがどうすればいいでしょか？
print format DATA;
みたいなアホな事してみましたがやはりエラーです。
ぐぐっても該当しそうな記事がみつからないし図書館のperlクックブックは
貸し出し中・・
先輩方よろしければお助けください。
0230nobodyさん
04/04/15 15:06ID:???0231229
04/04/15 15:19ID:???0232nobodyさん
04/04/15 17:41ID:???format =
@<<< @<<<<<< @<<<<<< @<<
$a $b $c $d
.
write;
formatは半角スペースでレイアウトするからhtmlへ出力するなら
<pre>で囲んで使うとかしないと。
固定ピッチになって間が抜けて見えるから掲示板には向かない気がするが。
0235233
04/04/15 22:16ID:???あ、writeでエラーになるってことね…。
format DATA =
@<<< @<<<<<< @<<<<<< @<<
$a,$b,$c,$d
.
$~ = 'DATA';
write;
0236nobodyさん
04/04/15 22:22ID:???0237nobodyさん
04/04/16 03:04ID:OgytMPQdkey $hash
key %$hash
と色々やってみたのですが 「keyの引数はハッシュじゃないとダメ」とエラーになります
0238nobodyさん
04/04/16 03:09ID:OgytMPQd0239nobodyさん
04/04/16 03:19ID:5vM41xl8なぜでしょう？
0241nobodyさん
04/04/16 03:27ID:5vM41xl8どのような記述をすると初期値に戻ってしまうのか
教えて下さいませ
0242nobodyさん
04/04/16 03:35ID:???そもそもそういう質問をすることからして何か勘違いしてる可能性もあるが。
0243nobodyさん
04/04/16 03:45ID:5vM41xl8役立たずですね
0244nobodyさん
04/04/16 03:56ID:???暇つぶしなだけ
0245nobodyさん
04/04/16 03:59ID:2Due2Uz0早く寝ろ
0246nobodyさん
04/04/16 04:03ID:???漏れは今起きた
0247nobodyさん
04/04/16 04:03ID:???0248nobodyさん
04/04/16 05:09ID:5vM41xl8自力で解決しました。
役立たずさんは早く寝てください。
0249nobodyさん
04/04/16 06:03ID:???0250nobodyさん
04/04/16 06:56ID:???>なぜでしょう？
これでどう解決すればいいんだよ
き違いはイラク行ってろ
0251nobodyさん
04/04/16 09:58ID:???0252nobodyさん
04/04/16 10:28ID:???0253nobodyさん
04/04/16 10:33ID:???0254229
04/04/16 10:48ID:???>>233
>>234
みなさん、ありがとうございました。うまく出力できるようになりました。
あれから起動hddが逝って換装後os再インストなどでご報告遅れてしまいました。
>>232
ん〜そうですねぇ。間が抜けてみえちゃいますねぇ。
一応管理用のデータ表示程度に出力させたかったので御の字なんですが
本当はこれ以外の出力のさせ方しらなかったのです。
純粋にプログラム初心者なperl初心者なのでhtmlタグの知識などもほとんどなかったり。
ほかにも出力の出し方探してみようと思います。どうもでした。
0255nobodyさん
04/04/16 11:25ID:???グローバル変数の値が初期値に戻ってしまいます
なぜでしょう？
240 名前：nobodyさん 投稿日：04/04/16 03:24 ID:???
>>239
そうなるようなコード部分があるから
241 名前：nobodyさん 投稿日：04/04/16 03:27 ID:5vM41xl8
>>240
どのような記述をすると初期値に戻ってしまうのか
教えて下さいませ
242 名前：nobodyさん 投稿日：04/04/16 03:35 ID:???
初期値を代入した部分が再度実行されれば戻るでしょ。
そもそもそういう質問をすることからして何か勘違いしてる可能性もあるが。
243 名前：nobodyさん 投稿日：04/04/16 03:45 ID:5vM41xl8
>>242
役立たずですね
0256nobodyさん
04/04/16 11:39ID:TQSKBaOOhttp://anonymouse.ws/anonwww.html
↑これみたいに、URLｸﾘｯｸしたら串刺さった状態で該当サイトに飛ぶようなスクリプト探してるんですが、
こんなのって普通に配布されてるんでしょうか？
だとしたらどういう検索ワードで探せばよいか教えてほしいんですけど・・・
0257nobodyさん
04/04/16 12:35ID:???>>1
http://pc5.2ch.net/test/read.cgi/php/1078568723/
0259nobodyさん
04/04/16 22:59ID:???お恥ずかしい初歩的なミスですが、？の後のクエリーを全角文字で書いてました。
受け側もデコードとかしてなくて、それでもクエリーはちゃんと読めて、思ったとおりの
HTMを出力していたのですが、その時点で正常ではなかったようで、そこから飛ぶ
先の環境変数が壊れていました。
誘導してもらった先でも報告しました。報告ですのでマルチポスト御容赦。
0260nobodyさん
04/04/17 00:14ID:???コマンドラインオプションをつけてplファイルを起動したいのですが
perlでコマンドラインオプション引数を受け取る方法がわからないのです。
たとえばデバック用にコマンドラインオプションであらかじめｐｌ内の変数を
設定しておいてフラグを立てたり、logファイルの読み込みディレクトリを
変更したりしたいのです。
そういうことはできないのでしょうか？アドバイスいただければ幸いです。
0262260
04/04/17 01:16ID:???さっそくやってみます。
0263nobodyさん
04/04/17 08:40ID:???掲示板のファイル名取得コードが
$file =~ /\/([\s\S]*)\./;
となっている為、相対パスでlog/log.txtなどの場合は正常に取得できるのですが
絶対パスでH:/bbs/log/log.txtなどの場合は正常に取得できません。
正規表現を調べて
$file =~ /*\/([\s\S]*)\./;
$file =~ /*.\/([\s\S]*)\./;
$file =~ /.*\/([\s\S]*)\./;
$file =~ /.\/([\s\S]*)\./;
みたいな事もやってみたのですが文法エラーだったり目的通りに動いてくれなかったりで
気づけば朝。
こういった場合どういうようにしたらいいのでしょうか？
0264nobodyさん
04/04/17 10:15ID:???絶対パスが他のサーバのファイルだとしたら笑いますよ。
0265nobodyさん
04/04/17 10:16ID:???正規表現を勉強する。
http://www5a.biglobe.ne.jp/~n_rieko/perl/8.htm
0266263
04/04/17 10:34ID:???今自鯖立てていろんな掲示板設置して掲示板弄ったりして
変数やら制御構文やら関数やらを覚えてるんですがその過程で
掲示板のファイル名やlogなどのファイル名を一括表示できる
cgiを作りたいなと思いまして。
>>265
まさに今そのＨＰ見ながら勉強させてもらってるんですが
無い知恵絞って出てきたのが上の文です。
これでいけるはずだ！と思って書いてみてもミスると次どうすればいいのかも
思いつけなくて・・。
0267nobodyさん
04/04/17 10:42ID:???プログラミングは
1 これでいけるはずだ
2 やっぱ駄目。
3 直して1に戻る。
の繰り返しなので、2で止まってしまう人は、お金出して他人に任せなさい。
0268263
04/04/17 10:55ID:???分かりました。お金出して他人に任せ・・たくないので１にもどります。
とりあえず寝ます。ありがとうございました。また何か詰まったら質問させてください。
0269nobodyさん
04/04/17 11:07ID:???最近、Perlの気持ちになってないﾔｼが多いよ。
0270nobodyさん
04/04/17 11:19ID:???そんなことない？
$file =~ /.*\/([\s\S]*)\./;
俺ならこれに何か付け足す。
あとはガンガレ。
0271nobodyさん
04/04/17 11:29ID:???$
0273nobodyさん
04/04/17 12:31ID:???$file =~ /.*\/(.+)\./;
/だけならいいけど、\まで対応すると一気に面倒なんだよなぁ。
全角とか半角カナが。(SJISね)
0274nobodyさん
04/04/17 14:20ID:ksEVTWBi「&」 … @pairs = split(/&/,$buffer);
と
「=」 … ($name,$value) = split(/=/,$pair);
でデータ切ると思いますが、これを別の文字にできますか？
「&」を「<>」とかに替えてみて、GETだと出来たんですが
POSTで渡すとき強制的に「&」になるようでデータを渡せませんでした。
POSTの時「&」意外にする方法はあるのでしょうか。
お願いします。
0275nobodyさん
04/04/17 14:58ID:???http://pc5.2ch.net/test/read.cgi/php/1055597189/
0276nobodyさん
04/04/17 20:32ID:???./Hoge/Foo.pm
というモジュールを作り、
package Foo;
use strict;
@ISA = qw(Hoge);
としたのですが、
Can't locate Hoge.pm in @INC (@INC contains: /usr/...とか色々
と怒られてしまいます。また、
use Hoge;
としている./aho.plでも、useの行で
BEGIN failed--compilation aborted at …
と怒られてしまいます。
おそらくHoge.pmの位置というか、そのような物が悪いのだと思うのですが、
どう直せばいいんでしょうか？
らくだ本では、Hoge::Fooは./Hoge/Foo.pmを表すって書いてあったと思うんですが…。
0277nobodyさん
04/04/17 21:01ID:???#--- ./Hoge.pm ---
package Hoge;
sub new { return bless {}, shift }
1;
#--- ./Hoge/Foo.pm ---
package Hoge::Foo;
use base 'Hoge'; # base.pm のヴァージョンが古いとコケる場合がある
# use Hoge; push @ISA, 'Hoge'; # その場合の代替策
sub foo { print 'foo!' }
1;
#--- ./script ---
#!/usr/bin/perl
BEGIN { print map "[$_]\n", @INC } # @INC に . が存在するか確かめる
use Hoge::Foo;
Hoge::Foo->new->foo;
__END__
0278nobodyさん
04/04/17 21:08ID:???http://www.kt.rim.or.jp/~kbk/perl5.005/perlfaq8.html#How_do_I_add_a_directory_to_my_i
0279nobodyさん
04/04/17 22:03ID:???が
package Foo;
となっていました…。
フルパスというか、祖先も全部書かないと駄目なんですね。
ありがとうございました。
0280nobodyさん
04/04/17 22:33ID:???./Hoge/Foo.pm の中身は package Foo; でも package Bar; でも
構わないが、use は実際のディレクトリ構造に従って Foo.pm を
探すので、./Hoge 内に置いている限り use Hoge::Foo; とする
必要がある。
0281nobodyさん
04/04/18 16:47ID:P05Ai4P1当方レンタルCGIを運営しておりまして
某スクリプトを使用させていただいているんですが（現在配布中止）
なんか背景に画像を設定しても出ないというバグが発生してるんです。
$btagu = '<BODY BGCOLOR="' . $para[8] . '" BACKGROUND="' . $bground . '" TEXT="' . $para[10] . '" LINK="' . $para[11] . '" ALINK="' . $para[12] . '" VLINK="' . $para[12] . '">';
画像はちゃんとアップされてて、画像を背景にしたはずのページのタグにも
ちゃんと画像のファイル名が入っているのですが画像が表示されないで
色が出てきてしまうんです
この状態だと、画像が入ってた場合色よりも画像のほうが優先されるはずなんですが
されないんです。
画像ファイルが入ってた場合に色よりも画像を優先させることはできませんか？？
0282nobodyさん
04/04/18 16:52ID:???ちなみに、まったく同じHTMLタグで.htmlファイルとしてアップすると
背景は表示されるんです
それが、掲示板などのCGIファイルになると表示されません
0283nobodyさん
04/04/18 16:59ID:gbPENzjB0284nobodyさん
04/04/18 17:06ID:???>281-282
パーミッション関係が怪しいと見た。
>282は全く同じフォルダで試してる？
0285nobodyさん
04/04/18 17:07ID:???全く同じHTMLで結果が異なるなら、Perlのコーディングの問題じゃありません。
Web製作板向けですのでお帰りください。
0287nobodyさん
04/04/18 17:54ID:wgfpZXEV一定時間(24時間とか1週間とか)ごとにスクリプトを自動実行させたいんですが、
perlから可能なんでしょうか。
ここかモジュールスレかCGIか迷ったんですが、perlからの呼び出しなので
とりあえずここで。
0288nobodyさん
04/04/18 17:58ID:???アクセスがあった時に前回の自動実行から一定時間以上過ぎていたら実行をさせる。
これを聞いてイメージが湧かないなら無理。
0289nobodyさん
04/04/18 18:04ID:???レスありがと。
静的なHTMLに一定期間ごとに情報を負荷していくCGIなので、CGI呼び出しは
一般ユーザーからは行われない。自分でCGI叩くなら自動じゃなくて手動だ(笑)。
サーバーの負荷のことを考えると、SSI埋め込みとかimg埋め込みで毎回CGI
起動するのはやりたくない。
放置しておいても更新されていくようにしたいんだけど・・・無理かな。
0291nobodyさん
04/04/18 18:13ID:???perlから呼び出したいし、自宅のレスト環境はWindowsだから、環境にあまり依存
しない汎用モジュールでもないかな・・・モジュールスレいったほうがいいですか？。
0292nobodyさん
04/04/18 18:18ID:???レンタルサーバじゃまず無理。
どうしてもやりたければ、Windowsにタイマー仕込んで、一定期間ごとにCGI呼びにいかせろ。
0294nobodyさん
04/04/18 18:30ID:???・・・ないよなあ。そうは思ったが、この世界、物好きが組んでたりするんで、
わずかな可能性にかけたかった(笑)。
おとなしく別の手を考えます。
でも「いや、できるぞ」って方がいらっしゃったら情報よろしく。
0295nobodyさん
04/04/18 18:33ID:???自動実行の定番ぐらい（ｒｙ
0296nobodyさん
04/04/18 19:25ID:???my $time = time();
while(1){
if((time() - $time) >= 3600){
処理;
$time = time();
sleep 3599;
next;
}
sleep 1;
}
# 共有鯖でやるべからず
0297nobodyさん
04/04/18 19:39ID:???0298nobodyさん
04/04/18 19:46ID:2RoBAPGK0299nobodyさん
04/04/18 19:46ID:???0300nobodyさん
04/04/18 20:18ID:???0302nobodyさん
04/04/18 21:13ID:gbPENzjBなんつースクリプトや…
0304nobodyさん
04/04/19 09:42ID:???0305nobodyさん
04/04/19 11:29ID:???表示させるcgiをつくりたいのですが。
2. こんな風にやってみた。
#!/usr/local/bin/perl
$folder = ./hoge/
opendir(DIR, '$folder') or die;
@file = sort readdir(DIR);
closedir(DIR);
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<P> フォルダの中身 </P>\n";
foreach (@file){
print $_, '<BR>';
}
print "</HTML>\n";
exit(0);
3.普通にエラーになる・・。
改善方法ありますでしょうか・・。
0306nobodyさん
04/04/19 11:47ID:???とりあえず2行目はいきなり syntax error になるだろうな
0308nobodyさん
04/04/19 11:55ID:???何を見て書いたコードなのかは知らないが、せめてエラーメッセージの確認ができる環境で試すべし。
0309305
04/04/19 14:24ID:???これで一応syntaxはOKになるんですが表示されません。。
#!/usr/bin/perl
$folder = "./hoge/";
opendir(IN, "$folder") or die;
@file = sort readdir(IN);
closedir(IN);
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<P>フォルダの中身</P>\n";
foreach (@file){
print $_, '<BR>';
}
print "</HTML>\n";
exit(0);
0310nobodyさん
04/04/19 15:01ID:???俺のところではそのコードでちゃんと動く。
コーディング以外の部分を疑うべきだろうな。
例えばディレクトリのパーミッションとか。
0312305・309
04/04/19 15:44ID:???フォルダ名間違ってた・・・。
ごめんなさい。逝ってきます。
0313nobodyさん
04/04/19 16:06ID:???〜 or die; とするぐらいならどうしてもう一歩すすめて 〜 or die "適当なメッセージ: $!"
としないのか...
0314nobodyさん
04/04/19 16:46ID:???print "Content-type: text/html\n\n";
の前に鰓が出て、「ぷりめちゃ〜」って出るからなんじゃなぁい？（ｗ
0315nobodyさん
04/04/19 17:03ID:???@array を : で2つに分けて片方だけ表示したいのですが。
下記のように記述してみましたが、できませんでした。
書き方が違うのだと思います。
教えていただけませんか？
while (@array){
($hour, $min) = split (/./, "$array[$_]");
}
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
foreach (@array){
print $hour[$_],\n;
}
今のままだと動作がものすごく遅くて
結局最後にエラー表示がでてしまいます。
一応、文法的な間違いはないようですが･･････。
0316nobodyさん
04/04/19 17:05ID:???0317nobodyさん
04/04/19 17:07ID:???＞@array を : で2つに分けて
意味がわからん
＞while (@array){
＞($hour, $min) = split (/./, "$array[$_]");
＞}
これはどういう処理してるつもり？
0318nobodyさん
04/04/19 17:17ID:ZjO/sTltたかし
たろう
こういち
さぶろう
よしゆき
みたいなテキストファイルがあって、
それを読み込んで
「ぬるぽ」をHTMLから送信すると
ぬるぽ
たかし
たろう
こういち
さぶろう
よしゆき
見たいな感じにテキストファイルの一番上の列に
書き出すことはできますか？
またできるのでしたらその方法を教えていただけますか？
0319nobodyさん
04/04/19 17:21ID:???print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
foreach (@array){
($hour, $min) = split (/:/);
print $hour,"<br>\n";
}
■ このスレッドは過去ログ倉庫に格納されています