Perlコーディング初心者質問スレ Part 46
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/01/18(水) 02:17:46ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0116nobodyさん
2006/01/22(日) 01:37:04ID:???これらのことはPERLで可能ですか？
PERLでプログラムを作って条件にあわせて、メールアドレス宛に
いってほしいＵＲＬを生成して送ります。
↓
そのメールが送ってきた人がそのURLをクリックして、リンク先にいくと
結果が載っていて、その結果は多数のHTMLのページをスタイルシートを利用して
1ページにまとめて組み合わせたものになっている。
というようなことは出来ますか？
簡単に言えば、
ページ１で山田さんがＡとBとCの中からＡを選び、ＤとＥとＦの中からＥを選びます。
↓
すると、山田さん宛にＡとＥの内容が記述されたページのＵＲＬが届きます。
↓
そのURL先のページもcgiによって生成される（メールからＡとＥの変数を渡すことになるのかな？）
↓
その表示されたページは複数のHTMLページをあらかじめ作っておいて、それらを呼び出して、組み合わせで出来上がる。この場合ＡとＥを呼び出す
0117116
2006/01/22(日) 01:38:53ID:???あらかじめHTMLページを用意しておいて、変数にしたいところのタグだけ $HOGEHOGE のようにしておいて、
cgiのほうに読み込み、$HOGEHOGEの変数の値を適用させて表示することって可能ですか？
0118nobodyさん
2006/01/22(日) 01:42:24ID:???>そのメールが送ってきた人がそのURLをクリックして、
ちゃんとした日本語文で書いてくれ
0119116
2006/01/22(日) 01:42:52ID:???の部分ですが、URLから判定させること出来ないですか？
その行き先のURLは一律で http://www.hogehogehoge.com/hoge.cgi というように決まっていて
hoge.cgi以降にＡとＥが表示されるように
http://www.hogehogehoge.com/hoge.cgi?A&E
みたいなURLを先ほど記述したメールで送っていて、これをクリックすると
hoge.cgiがＡのhtmlとＥのhtmlを組み合わせればいいということを判定して
これらをスタイルシートを使って組み合わせて1ページで出力するということです。
説明が分かりづらくてごめんなさい。
0122nobodyさん
2006/01/22(日) 02:12:52ID:???''(0バイト文字列)または'.'または'..'と言う文字列に「のみ」
合致する正規表現ってどう書けばいいですか？
「〜を含む文字列」なら自力でも書けそうな気がするんですが・・・orz
0126nobodyさん
2006/01/22(日) 02:49:48ID:???Perl 以前の問題
逆に聞きたいが、「スタイルシートを使ってページを組み合わせる」と自分で
書いているが、これは XSLT か？ 「スタイルシートを使って組み合わせる」
という方法はいったいどこで聞きかじったんだ？
0128nobodyさん
2006/01/22(日) 03:59:08ID:???0130nobodyさん
2006/01/22(日) 06:28:00ID:???・htmlのselectでも使って選択させ、その内容をcgiに発射
↓
すると、山田さん宛にＡとＥの内容が記述されたページのＵＲＬが届きます。
・cgiで受け取った情報を元にURL作ってsendmailかなんかでメール発射
↓
そのURL先のページもcgiによって生成される（メールからＡとＥの変数を渡すことになるのかな？）
・受け取ったURLを押すとcgiが起動
↓
その表示されたページは複数のHTMLページをあらかじめ作っておいて、それ
AとEのｈｔｍｌを読み込み”s/$HOGEHOGE/なにか/g;”かなんかで変更して一緒に表示
単純すぎて説明しずらいorz
てか、ほんとにperlできるの？
0132nobodyさん
2006/01/22(日) 07:45:24ID:???1) 山田が hoge.cgi?select1=A&select2=E で発射
2) piyo.cgi?para=A、piyo.cgi?para=E というURL付メールが届く
3) piyo.cgi?para=A、piyo.cgi?para=E が加工したページを表示
簡単にPerlで実現できると思うのだが。
0133nobodyさん
2006/01/22(日) 08:12:49ID:???どこが解らないか言ってもらえれば詳しく解説したり、
モジュールを薦めたりいろいろやりようもあるんだがねぇ
# >>130の最後の一文を「ほんとにperlでできるの？」と読んで
# 130にレスを返そうとしてしまった件...ｱﾌﾞﾅｶｯﾀ
0134nobodyさん
2006/01/22(日) 08:15:06ID:???1) 山田が hoge.cgi?select1=A&select2=E で発射
2) piyo.cgi?para=AE というURL付メールが届く
3) piyo.cgi?para=AE が加工したページを表示
だろ
piyo.cgi?para1=A¶2=E でもいいけど。
0135nobodyさん
2006/01/22(日) 08:17:25ID:???＆amp；って書かないと駄目なのか
験し→&
0138nobodyさん
2006/01/22(日) 09:43:12ID:???0139nobodyさん
2006/01/22(日) 10:52:36ID:???それぞれの処理を Perl のどの機能を利用して実現したらいいのか
具体的なイメージが湧いていないように見える。慌てずに一つずつ
自分で対処してくれ。他にもいろいろ書かれているが、個々の処理は
どれも難しくないが、>>117 を読む限り、目的の処理全体を実現
するには君の力はまだかなり足りない。
0140nobodyさん
2006/01/22(日) 12:37:05ID:???例えば、passwdコマンドにパスワードを渡してその結果を得るにはどうすればいいのでしょう。
渡すだけならばopen(PASS,"| /usr/bin/passwd")で出力用パイプでできるのですが、
これだと結果を変数へ受け取れません。
試しに入力と出力のパイプを二つつけてみましたが、
Can't open bidirectional pipe
と言われてしまいました…。
0142nobodyさん
2006/01/22(日) 12:45:31ID:???ここはpasswdが、受け取るべき値を返すものと仮定してください…。
実際にやろうとしているコマンドはCourier-IMAPのuserdbpwです。
0143nobodyさん
2006/01/22(日) 12:47:03ID:???は…速い。
それですと値を渡せないと思います。
こちらから値を渡して、なおかつその結果を受け取りたいと思っています。
0144nobodyさん
2006/01/22(日) 12:53:47ID:???PIPEを入力と出力両方開くだけならこれ
http://search.cpan.org/~abergman/ponie-2/perl/lib/IPC/Open2.pm
しかしpasswdのような特殊な入力方式を使っているものでできるかは知らない…
0145nobodyさん
2006/01/22(日) 13:16:41ID:???おお、これでできそうな気がしますが…、すごいサイズのモジュールですね。
configureだけしてみましたが、大量のファイルを呼んでいる上に
なぜだかすごいWARNINGができるのちょっと入れるをの躊躇してしまいます…。
もう少し他の方法を探ってみます。
どうもありがとうございました。
0146nobodyさん
2006/01/22(日) 13:26:12ID:???あ、貼ったリンクのURLが悪かった、ｽﾏｿ
IPC::Open2とIPC::Open3は標準モジュールだよん
0147nobodyさん
2006/01/22(日) 13:47:43ID:???おかげさまで何とかできました。
ただWriter->autoflush(1)とするとなぜか
Can't locate object method "autoflush" via package "IO::Handle"
といわれることや、closeしなくていいのか、という疑問がありますが、
自分で使う用のスクリプトなので、とりあえず今は目をつむることにします。
とても助かりました。
どうもありがとうざいました。
0149nobodyさん
2006/01/22(日) 14:33:51ID:???(ﾟДﾟ)
0150116
2006/01/22(日) 15:08:15ID:???==========================================================================================================
HTMLページ（select使って変数発射）→hoge.cgiが条件などがURLを生成してメール送信→URLのpiyo.cgi?PARA=AEにAとEの
両方のページがインラインフレームを使って表示される。
==========================================================================================================
・htmlのselectでも使って選択させ、その内容をcgiに発射
↓
すると、山田さん宛にＡとＥの内容が記述されたページのＵＲＬが届きます。
・cgiで受け取った情報を元にURL作ってsendmailかなんかでメール発射
↓
そのURL先のページもcgiによって生成される（メールからＡとＥの変数を渡すことになるのかな？）
---------ここまでの過程はすべて自分でプログラムできます------------
分からないのは、ここからで、どのような処理を施せば、hoge.cgiが
・メール受け取ったURLをクリックするとpiyo.cgiが起動
↓
その表示されたページは複数のHTMLページをあらかじめ作っておいて、それ
AとEのｈｔｍｌを読み込む。
これですね。piyo.cgiが URLの piyo.cgi? 以降をどのような処理で読み込んで
AとEを合わせて表示しろ っていう処理の方法が分からなくて困っています。
0151150
2006/01/22(日) 15:13:29ID:???HTMLページ（select使って変数発射）→hoge.cgiが条件などからURLを生成してメール送信→URLのpiyo.cgi?PARA=AEにAとEの
両方のページがインラインフレームを使って表示される。 ^^^^
==========================================================================================================
訂正です。 条件など「から」 でした。すいません
0152nobodyさん
2006/01/22(日) 15:46:09ID:???そこがいちばん簡単だと思うんだがなぁ。
つーかなぜインラインフレームにこだわるのかも分からないけどね。
完成している HTML を2つくっつけたら明らかにおかしなことになるし。
なんか自分で変な条件をつけてはまってないか？
おれなら
1. パラメータを解釈して
2. 対応するファイルを開いて読み込み
3. <body></body> の間を抜き出して
4. これをファイル分くり返して
5. くっつけて print
して終わり。インラインフレームは使わない。
0153nobodyさん
2006/01/22(日) 16:01:49ID:???すいません、ここの箇所だけが分からなくて。。。
その方法でかまわないと思います。
パラメーターの解釈ってどうなるんですか？
そのcgiのURLを引っ張り出して、そこに PARA=Aが含まれるか？とかですか？
もし、よければどのような形になるか書いてもらえませんでしょうか？
例えば、呼び出すA.htmlの中身は
<HTML><HEAD></HAED><BODY> A </BODY><HTML>
呼び出すB.htmlの中身は
<HTML><HEAD></HAED><BODY> A </BODY><HTML>
としてですね。
0154nobodyさん
2006/01/22(日) 16:15:37ID:???0155nobodyさん
2006/01/22(日) 16:23:24ID:???「ここの箇所だけ」が分からないんじゃない。
それが分からないのは CGI の基礎が全然分かってないってこと。
0156nobodyさん
2006/01/22(日) 16:31:34ID:???ここは小学生の相手をする学童保育所じゃないんで、
CGIの仕組みを勉強してから来てね
0157nobodyさん
2006/01/22(日) 16:42:49ID:???0158nobodyさん
2006/01/22(日) 17:20:29ID:???登録時にプルダウンメニューから入力させているのですが
登録内容の変更・削除時にあらかじめ登録していた内容が
プルダウンで表示されるようにすることはできるのでしょうか？
<OPTION>タグでselected指定をすれば実現すること自体は分かっているのですが。
どうしても難しそうだったら、変更の度に新たに入力し直してもらおうと思ってはいますが
登録側に不親切だと思うので、できれば実現したいです。
0159nobodyさん
2006/01/22(日) 17:47:41ID:???1. 「あらかじめ登録していた内容」を読む。
2. それに基いて適宜 selected な <option> を吐く。
必要なのはこれだけ。
どうしても難しそうなのは、回答の度に新たな質問が生成し直されそうな点ですが
回答側が不機嫌になりかねないので、できればもう少し基礎を学んで欲しいです。
0160158
2006/01/22(日) 17:52:20ID:???ごめんなさい、そしてありがとう。
0161nobodyさん
2006/01/22(日) 18:08:15ID:???0162nobodyさん
2006/01/22(日) 18:34:46ID:???メールにインラインフレームの記述した HTML を書き個数だけ用意して、
メールにその HTML のアドレスを書きゃぁいいのでぁ？
AD, AE, AF
BD, BE, BF
CD, CE, CF
0164nobodyさん
2006/01/22(日) 18:59:27ID:???いちいちﾚｽしている暇があるなら、CGIの基礎を学んでこい！
その方が早い。
ﾏｼﾞ話、基礎中の基礎だからな。
ちょっと勉強すればわかるって程度の話なんだからな。
0165nobodyさん
2006/01/22(日) 21:29:59ID:???とか思ったり
0166nobodyさん
2006/01/24(火) 23:59:54ID:8wVWM4jMということをしたいのですが、エラーになってしまいます。
どこが間違えていますか？
がんばって考えてみたがエラーで鬱な部分＿|￣|○
↓
if($in{"q1"] ne ""){ $message2 .= $in{"q1"]; }
0167166
2006/01/25(水) 00:01:27ID:Ofc3DeTHcgi-lib.plを使って、$in{"q1"}で変数の中身を取り込んでいます。
0168nobodyさん
2006/01/25(水) 00:04:06ID:???if($in{"q1"] ne ""){ $message2 .= $in{"q1"]; }
〜 〜
なんというか…フォント変えたほうが良いんじゃないか…
0169nobodyさん
2006/01/25(水) 00:09:09ID:???}と]の間違い
単純に
if($in{"q1"}){ $message2 .= $in{"q1"}; }
じゃまずいのか？
0170nobodyさん
2006/01/25(水) 00:09:29ID:Ofc3DeTHぐはーーーー、これで3日間悩んでいますた。
ありがとうございます・・・うぅ。
まさかこんなオチとは＿|￣| . . . ○
0171nobodyさん
2006/01/25(水) 00:10:36ID:Ofc3DeTHありがとうございます。
「空かどうかの判断」はそういう記述でもOKなんですね。
0172nobodyさん
2006/01/25(水) 00:14:24ID:???それだと"0"のときも空扱いなのに注意。
むしろ空なんだったら繋いでも結果変わらないんだから
$message2 .= $in{"q1"};
これだけで良くない？definedか調べるのなら解るけど
# 漏れの書き込みがずれてるし…フォント変えとこう:-p
0173nobodyさん
2006/01/25(水) 01:45:33ID:???でいいんじゃないかな・・・
0175nobodyさん
2006/01/25(水) 02:10:15ID:???$text1, $text2, . . . $text50
改行処理をして、
$text1
$text2
$text3
.
.
.
$text50
としたいのですが、文字列に全角36文字文で「\n」を入れたいんです。
半角や数字・記号等が混じっているのですが、どのように挿入するのでしょうか？
0176nobodyさん
2006/01/25(水) 02:13:47ID:???0177nobodyさん
2006/01/25(水) 02:15:29ID:???0178nobodyさん
2006/01/25(水) 02:16:22ID:???0183181
2006/01/25(水) 02:46:39ID:???require "jcode.pl";
require "fold.pl";
require "cgi-lib.pl";
$bytes = '72';
$text=$in{"text"};
jcode::convert(\$text, "euc");
while (length($text)) {
(my $text_mod, $text) = fold($text, $bytes);
$text_mod .= $folded, "\n";
}
print "$text_mod";
最終的には改行された(\nの入った) $text_modができたらいいのに難しいです・・・。
0185nobodyさん
2006/01/25(水) 02:55:57ID:???>>184
配列を使おうと勉強しているのですが、
＠が出ると眠くなってしまうので、できたためしがありません。
@_ とかの独特の表記がまだ飲み込めません。
0187nobodyさん
2006/01/25(水) 03:49:07ID:???0188nobodyさん
2006/01/25(水) 04:10:50ID:???0189nobodyさん
2006/01/25(水) 10:15:17ID:???> > ＠が出ると眠くなってしまうので
> おまえはトンボか？ ｸﾞﾙｸﾞﾙｸﾞﾙ。
ウケタ...今度使わせて貰うw
0190nobodyさん
2006/01/25(水) 10:55:53ID:???△
0191nobodyさん
2006/01/25(水) 22:22:06ID:???$AAA[0]=$AAA[0]+1+$RR;
$AAA[1]=$AAA[1]+1+$RR;
と
$AAA[1]=sprintf("%03d",$AA[1]);
$AAA[2]=sprintf("%03d",$AA[2]);
って、もっと効率よく記述できませんでしょうか
0192nobodyさん
2006/01/25(水) 22:29:35ID:???0193nobodyさん
2006/01/25(水) 22:38:09ID:???map とか foreach とか。
@AAA = map { $_ + 1 + $RR } @AAA;
$_ = $_ + 1 + $RR foreach @AAA;
@AAA = map { sprintf('%03d', $_) } @AA;
0194nobodyさん
2006/01/25(水) 22:38:35ID:???効率よくするのはその部分だけ見せられてもほとんど無理だが、
見やすくするならforeachやmapが有効。
その操作は配列全体に行うの？配列全体になら
$RR = int(rand(2)) + 1;
$_ += $RR foreach @AAA;
及び
@AAA = map { sprintf("%03d",$_) } @AA;
配列の一部だけなら@AAA[0,1]のように配列の一部を指定すればOK。
その場合それが見やすくなるかは微妙だけど
0197nobodyさん
2006/01/25(水) 23:46:22ID:???$hoge = '10';
&fuga($hoge);
print $hoge;
sub fuga(){
$aaa = @_ + 50;
return $aaa;
}
結果は「60」になると思ったのですが「10」でした。どこかが間違えているのでしょうか？
$hoge に fugaサブルーチン を通した結果を表示させたいです。
0198nobodyさん
2006/01/25(水) 23:50:34ID:???0199197
2006/01/26(木) 00:03:19ID:???$hoge = '10';
&fuga($hoge);
print $hoge;
sub fuga(){
$aaa = @_ + 50;
return;
}
returnだけで値を返したつもりですがこれでも「10」です・・・。
0200nobodyさん
2006/01/26(木) 00:11:19ID:???@hoge = (10, 20, 30);
print &fuga(@hoge);
sub fuga(){
my($total);
foreach (@_){
$total += $_;
}
return $total;
}
0201nobodyさん
2006/01/26(木) 00:37:33ID:???$moge = fuga($hoge);
print $moge;
sub fuga(){
$aaa = $_+50;
return $aaa;
}
0202nobodyさん
2006/01/26(木) 00:46:45ID:???$hoge = 10;
$moge = fuga($hoge);
print $moge;
sub fuga(){
$aaa = $_[0]+50;
return $aaa;
}
0203nobodyさん
2006/01/26(木) 02:00:59ID:???ちょっと↑見たら早速両方のパターン
&あるとわかりやすいとかくらいしかメリットないのかな
0204nobodyさん
2006/01/26(木) 02:25:15ID:???この質問結構出るな…
この話題から論争になったことがあるのでFAQを挙げるだけに留めて置く事にする。
ttp://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq7.html#What_s_the_difference_between_ca
漏れの好みとしては必要ないなら&つけない
0205nobodyさん
2006/01/26(木) 03:21:18ID:???&foo();
のようにしてる。
渡す値が無くても括弧はつけてるかな。
ちゃんと関数が呼ばれて意図した動作なら「お好きなように」って感じかな
0206nobodyさん
2006/01/26(木) 06:40:19ID:???time 関数を HiRes モジュールからインポートして使おうと思っているのですが、
インポートする際に関数を別名でインポートすることはできますか？
HiRes の time() は mtime() とかっていう名前で扱いたいので・・・
0207nobodyさん
2006/01/26(木) 06:51:16ID:???0208nobodyさん
2006/01/26(木) 06:56:34ID:???use Time::HiRes;
BEGIN { $::{mtime} = *Time::HiRes::time }
0209nobodyさん
2006/01/26(木) 06:58:32ID:???なんか気持ち悪いｗ
&mtime();
のようにして呼び出すことはモジュールを書き換えない限り無理ってことなのかな？
0210nobodyさん
2006/01/26(木) 06:59:05ID:???0211208
2006/01/26(木) 07:03:01ID:???>>206
Time::HiResはExporterを使ってExportしているだけなので、
Exporterがやる仕事を自前で書いてやれば良い。
で、それは何かというと使用する側のパッケージのシンボルテーブルに
指定されたシンボルをエクスポートするということなので
BEGINブロックの中でその操作を行うと>>208のようになる
0212nobodyさん
2006/01/26(木) 07:10:34ID:???Exporter とか BEGIN とかそこらへんを勉強してきます。
ありがとうございました。
0213nobodyさん
2006/01/26(木) 09:55:58ID:o/1/VUZ9sub bynumber{ $a <=> $b}; }
@number = sort bynumber @number;
配列の値を数値で並べる方法なんだそうだが、
サブルーチンがどういう働きしてるかさっぱりわからん。
誰か解説お願いします。
0214nobodyさん
2006/01/26(木) 10:27:31ID:???些細なことなんですが・・・
*Time::HiRes::time
の time のケツにセミコロンがありませんが (strict で書いてるけどエラー無し)、付けたほうがいいです・・・よね？
0215nobodyさん
2006/01/26(木) 10:29:21ID:???昇順でソート
配列に入れる値が既に並んでしまってるのでもっとばらけて入れてみるとわかるかと
ちなみに
$b <=> $a
ってすると降順になります
■ このスレッドは過去ログ倉庫に格納されています