Perlコーディング初心者質問スレ Part 55

**nobodyさん** · 2007/05/30(水) 11:34:01

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >>2-10

前スレ　http://pc11.2ch.net/test/read.cgi/php/1171102883/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/

**nobodyさん** · 2007/06/18(月) 00:46:35

ログイン時に受信すればいい

**nobodyさん** · 2007/06/18(月) 05:55:05

151 さんは、メールを送った直後に自動更新されることを期待していると思うんだ。
152 みたいなバカは死ぬとよい。

**nobodyさん** · 2007/06/18(月) 06:31:20

>>151 = >>153？
バカな153のせいで、151の質問に答える奴はいなくなりましたとさ(終)

**nobodyさん** · 2007/06/18(月) 06:32:06

>>152 == >>154 ?

**nobodyさん** · 2007/06/18(月) 06:45:55

ここまで俺の

**154** · 2007/06/18(月) 07:36:43

>>155
まぁ、そうくるだろうと思ったよ。マジレスすると152は漏れじゃない。
信じなくても良いけど、>>153を援護すればする程、>>151の質問に
答える奴はいなくなるよ？(w

**nobodyさん** · 2007/06/18(月) 07:57:34

ここまで俺の

**nobodyさん** · 2007/06/18(月) 08:46:27

神経戦乙

**nobodyさん** · 2007/06/18(月) 09:05:53

> 答える奴はいなくなるよ？(w

答える能力はないが煽っていますということ？

**nobodyさん** · 2007/06/18(月) 09:30:18

qmailならhomeディレクトリにメール受信時にスクリプトを動作させることはできるが、
他のメールサーバーでも同じことはできるかと思う

**nobodyさん** · 2007/06/18(月) 13:27:43

答える答えない以前に、Perlの質問じゃないから。

**nobodyさん** · 2007/06/18(月) 13:29:32

> 答える答えない以前に、Perlの質問じゃないから。

それがどうしたの？

**nobodyさん** · 2007/06/18(月) 13:59:19

それがどうしたの、と言われましても…
ここはPerl"コーディング"質問スレな訳ですし。
ロジック的なことを聞きたいのならば、
この板にも適切なスレッドがありますし、
更に深い内容ならUNIX板とかに行けば良いでしょう。
しかし、そのロジックを理解した上でのコーディングに関する
質問はスレ違いではありませんが、レベル的に
"自分で考えれば分かる"程度なので、処理をアシストする
モジュールくらいしか案内出来ないでしょう。
少なくとも 151 の書き込みを読む限りでは。

**nobodyさん** · 2007/06/18(月) 14:18:33

>>153 が >>152 を煽る理由がわからん
152 が質問者なのか
違うのなら質問に答えると思うが

**nobodyさん** · 2007/06/18(月) 14:47:39

上島竜平は　まで読んだ。

54 · 2007/06/18(月) 15:51:47

>>152-155まで皆氏ねば済む話じゃないか

**nobodyさん** · 2007/06/18(月) 15:52:52

名前欄誤爆った…54ってorz

**nobodyさん** · 2007/06/18(月) 16:14:07

情けない質問するやつも氏ねば済むんじゃね？

**nobodyさん** · 2007/06/18(月) 16:21:21

メール着信でスクリプトをキックする方法は、管理者に訊いた方がいい。
システム構成によって方法が違うから。
禁止されてるかも知れないし、maildropが使われてるかも知れない。

ここからPerlコーディングについての質問。

**nobodyさん** · 2007/06/18(月) 18:46:23

もうバレバレじゃん(w
>>153を援護する奴が>>151(質問者)だろ？
大体、質問した奴がこの流れで16時間も静観してる訳無いだろ？
しかも口調が一緒だし(w

>>151 = >>153 = >>155 = >>160 = >>163

質問に答えてもらおうと必死。

**nobodyさん** · 2007/06/18(月) 19:28:33

>>171
スレ違い

**nobodyさん** · 2007/06/18(月) 19:32:33

+= >>172

**nobodyさん** · 2007/06/18(月) 19:39:27

my $intAnchor = 1;

while( $intAnchor < 1001 ) {
>>172 += $intAnchor;
$intAnchor++;
}

**nobodyさん** · 2007/06/18(月) 19:57:19

塩

**nobodyさん** · 2007/06/18(月) 20:07:15

いや>>151 = >>153 = >>155 = >>160 = >>163も十分見苦しいけど、
>>152 = >>154 = >>157 = >>165 = >>171もなんか必死すぎて嫌いだ
お前ら皆どっかいっちゃえ！！！１１

**nobodyさん** · 2007/06/18(月) 21:04:16

>>151
CGIで読むってことは、CGIがメーラー(POPクライアント)の役割をするわけだから、
CGI起動時にメールボックスから届いたメールを読み出せばいいのでは。
Net::POP3でも使ったらどうですか? 読み出したらサーバから削除するなどの
処理はすべて自分で書く必要があります。GUIのないメーラーを作るようなもんです。
…ていうことではなくて、届いたタイミングで、届いたメールデータを処理したい
ってことかしら。であれば、perlというよりは、.forwardまたはdot-qmailファイル
にでもプログラムにパイプで渡す設定をしておけば、プログラムから標準入力
を読んで処理すれば済む。MIME::Parserを使うと便利。
まずはコードを書いてみることです。

**nobodyさん** · 2007/06/18(月) 21:31:22

素朴な疑問。
CGIで、場合によってLocationヘッダを返した場合、
ユーザからみると、即座にページを飛ばされるんですが、
そのCGIはLocationヘッダを返したあともexitしない限り、
以後の処理をし続けるんでしょうか。

**nobodyさん** · 2007/06/18(月) 21:41:57

#!/usr/bin/perl

use strict;
print "Location: http://www.yahoo.co.jp/\n\n";
sleep(10);
exit;

**nobodyさん** · 2007/06/18(月) 21:45:01

どうも。確かめる方法がわかりました。つまらん質問すみません。
飛ばした後にファイル出力できたので、ちゃんと最後まで処理しますね。
てことは飛ばした場合もちゃんとexitしたほうが無駄が少ないということ
ですよね？？

**nobodyさん** · 2007/06/18(月) 21:57:32

きみの言う無駄とは？

**nobodyさん** · 2007/06/18(月) 22:27:24

ああ、そういう突っ込みになりますよね。無駄があるのは僕だけの事情でした。
例えば、通常、ウェブページをきちんと出力するルーチンの途中で例外的に
飛ばした場合の、その後のページ出力処理、とか。

**nobodyさん** · 2007/06/18(月) 23:07:27

179さんの言ってる意味がいま解りました。最後まで処理しないと
飛ばないんですね。面目ない。

**nobodyさん** · 2007/06/18(月) 23:15:58

そりゃ単にバッファをフラッシュしてないだけだろ

**151** · 2007/06/18(月) 23:52:23

質問の仕方等々で至らぬ点があり、なんだか揉めてしまったようで申し訳ないです。
普通に帰るのが遅い人間＆出先から書きにくい状態でした。

意図としては>>177さんが書いてくださったような、
「届いたタイミングで、届いたメールデータを処理したい」、
つまり、メールを受けたことをトリガとしてバックエンドの処理を動かすという
というものでした。
例えば、メールで「1+1」と送ると、バックエンドで計算処理をして、
答えを「2」で返す、というような。

ご指摘いただいたように、Perlコーディングという内容ではないので、
いただいたお答えを元に、うちの環境で確かめることにしてみます。

ほんとうにありがとうございました。

**nobodyさん** · 2007/06/20(水) 13:54:26

改行を含む文字列の中の一部分を取りたいときに、直近の改行コードまでという指定は出来ないものでしょうか？

kani
kanimiso@
kanikama

上のような文字列(@部分がいろいろ変わる)からmiso@を抜き出したいんだけど

s/.*kani(.*)\n/$1/;

みたいにするとmiso@\nkanikama\nまでが取れてしまいます。

**nobodyさん** · 2007/06/20(水) 14:25:25

最短マッチとかs修飾子とか

**nobodyさん** · 2007/06/20(水) 14:53:02

最短マッチで出来ました。ありがとうございました。

**nobodyさん** · 2007/06/20(水) 18:37:42

中身が空っぽもしくは
<html>
<head></head>
<body>
</body>
</html>
になってるファイルにhogehogeを書き込んで
<html>
<head></head>
<body>
hogehoge
</body>
</html>
にしたいのですがどうしたらよいでしょうか。

**nobodyさん** · 2007/06/20(水) 18:40:27

>>1

**nobodyさん** · 2007/06/20(水) 18:40:41

質問ってレベルじゃねえぞ…

**nobodyさん** · 2007/06/20(水) 18:40:54

>>189
それだけの条件なら何も考えずに最終結果を固定で上書きするだけでいいんじゃねーの?

**nobodyさん** · 2007/06/20(水) 18:43:32

すみません>>189に追加させてください

<body>～</body>にhogehoge以外に既に何か文字が入っていても
それを消さずにその下に追記するようにしたいのです。
<body>
fugafuga
</body>
を
<body>
fugafuga
hogehoge
</body>
こんな感じです

**nobodyさん** · 2007/06/20(水) 19:04:32

HTML::Templateでも使っとけよ・・・

**nobodyさん** · 2007/06/20(水) 20:24:57

open(FILE,"<index.html");
my $html = <FILE>;
close(FILE);
$html =~ /<\/body>/;
my $top = $`;
my $bottom = $';

$top .= "追加する文字列\n";
$top .= $bottom;

open(FILE,">index.html");
print <FILE> $top;
close(FILE);

exit;

This is not confident.
Please point it out when the mistake is found.

**nobodyさん** · 2007/06/20(水) 21:07:55

perl -MIO::All -e '($tmp = ${io("index.html")}) =~ s{(</body>)}{hogehoge$1}, $tmp > io("index.html")';

**nobodyさん** · 2007/06/20(水) 21:32:55

perl -0777 -i.bak -pe 's{(</body>)}{hogehoge＼n$1}' index.html

**nobodyさん** · 2007/06/20(水) 22:14:26

>>189です。みなさんありがとうございます。
ご飯食べてお風呂入ってるあいだ自分でもこんなの思いついたんですけど
>>195さんのとかのほうがスマートでしたね

if (-e $xmlfile && -s $xmlfile) {

open (FILE, "<test.htm") or die "$!";
@file = <FILE>;
close (FILE);

foreach $line (@file){
if($line =~ /<\/body>/){
$line =~ s/$追加する文字列\n$&/;
}
}

open (FILE,">test.htm");
print FILE @file;
close(FILE);

} else {

open (FILE, ">test.htm") or die "$!";
print FILE "<html>\n<head>\n</head>\n<body>\n$追加する文字列</body>\n</html>\n";
close (FILE);

}

**nobodyさん** · 2007/06/20(水) 22:45:40

/<\/body>/ こんな書き方する馬鹿は氏ねばいいのに！

**nobodyさん** · 2007/06/20(水) 23:06:37

>>199
だめなの？

**nobodyさん** · 2007/06/20(水) 23:09:39

>>199
そこまでは思わんが、実行するまでもなくグダグダな195に
195を実行せずにレスする質問者を見るとなあ。

**nobodyさん** · 2007/06/21(木) 00:03:24

>200
if ($line =~ m{</body>})
こんな感じにしたほうが読みやすいだろ、ってこと

**nobodyさん** · 2007/06/21(木) 00:04:59

いや
別にいいだろｗｗｗ

**nobodyさん** · 2007/06/21(木) 00:15:52

それだけで氏ねとか言われたならなんだかちょっぴりかわいそすｗｗｗ

**nobodyさん** · 2007/06/21(木) 00:35:30

基本だろ。大丈夫か？
ってまた彼が言ってるだけか。

**nobodyさん** · 2007/06/21(木) 01:03:59

>>189へのレスのシカトっぷりと、結局自分で書けた（=質問する意味ね
えじゃん）って事と、>>195のふざけた態度みて（なにが添削しろだよ、
せめてsyntax errorなくしてからレスれ）寛大で居られるおまえらは凄い。

氏ねとは思わんが消えろとは思うぞ、心の底から。

**nobodyさん** · 2007/06/21(木) 01:06:53

Template

**nobodyさん** · 2007/06/21(木) 01:09:30

>>206のキレっぷりも凄いがなｗ
>>195の最後の2行は「これ自信無い。間違ってたら指摘して」って事じゃねぇの？

**nobodyさん** · 2007/06/21(木) 01:15:30

>>189は釣りだったってことで

**nobodyさん** · 2007/06/21(木) 01:17:03

>>195は回答者としては初心者(良回答とは言えない)だろうが、
一応>>193の答えにはなってるからいいんじゃないのか？
自分で書けた～のくだりは同感だが、そんなのにいちいち目くじら立ててもな。
ついでに言うと、>>206は海外に行かない方が良さそうだな。

**nobodyさん** · 2007/06/21(木) 01:20:11

>>210
syntax error出るのが答えなの？
要件にも沿ってないよ。実行してみ？

**nobodyさん** · 2007/06/21(木) 01:25:23

>>208
正確な和訳は出来てたが、つい勢いで。
>>210
どっちかってーと質問者よりも195の方が消えて欲しい。
一回くらいは実行してから、レスするのが礼儀じゃないか？
特に自信ないならなおさら。

最後の一行は同意。

**nobodyさん** · 2007/06/21(木) 01:27:55

>>208
そう書いたつもりなんだろうけど「俺じゃなくてこのコードさんが、自信がない、と」に
なってたりでいろいろアレなことになってる。

>>206
俺は寛大じゃないけどめんどくさいので>>195はほったらかしてた。

>>210
辞書で confident 引いて用例眺めろ、ってあんたに言えば>>195に伝わりそうな気がする。

**nobodyさん** · 2007/06/21(木) 01:53:11

質問者が自己解決するまでに
ろくな回答もできない低脳どもの集まるスレはここですか？

**nobodyさん** · 2007/06/21(木) 10:11:00

違う。
お前が一人で荒らしてるスレ。

**nobodyさん** · 2007/06/21(木) 10:22:50

これだからPerlはｗｗｗ
tp://0-9.sblo.jp/article/4439458.html

**nobodyさん** · 2007/06/21(木) 10:28:38

>>194

**nobodyさん** · 2007/06/21(木) 13:21:32

"1,21,10,100,1"のようにランダムに数字が入った文字列の中で
「1」という要素が含まれているかどうかを知りたいのですが、
splitで配列化してハッシュに入れる方法以外には無いでしょうか？

最短マッチで

$data = '1,21,10,100,1';
if ($word =~ /(1?,)/) { print "存在します¥n"; }

とやったら最後にある「1」がチェックできませんでした。

**nobodyさん** · 2007/06/21(木) 13:47:27

色々勘違いしてそうだから「最短マッチ」でググるといいよ
それと$dataと$wordのtypo

**nobodyさん** · 2007/06/21(木) 13:53:22

おまえら魚でも食って落ち着けよ

**nobodyさん** · 2007/06/21(木) 14:35:54

if (grep { $_ eq '1' } split(/\,/, $data)) { print "存在します\n"; }

**nobodyさん** · 2007/06/21(木) 14:51:26

/1(,$)/じゃダメ？

**218** · 2007/06/21(木) 14:57:47

>>219
ググって勉強し直しました。typo＿|￣|○
文字列なのだからわざわざ分割せずに正規表現を使って調べる方法は無いかと
思ったのですが、素直に分割した方が早そうですね。
221さんもありがとうございました。

**nobodyさん** · 2007/06/21(木) 16:08:32

if($data =~ m/1/g){print"存在します\n"}

**nobodyさん** · 2007/06/21(木) 16:14:09

/\b1\b/

**nobodyさん** · 2007/06/21(木) 16:22:39

print "存在します\n" while($data =~ m/\b1\b/g);

**nobodyさん** · 2007/06/21(木) 16:28:11

if($data =~ /^1,|,1,|,1$/){ print "true \n"; }

**nobodyさん** · 2007/06/21(木) 16:52:54

>>216の
>CGI.pmをラップしてMyCGI.pmを作った。
>CGI::Varsを上書きして定義し、最後に「return $this->SUPER::Vars()」とかした。
>帰ってきたのはhashに見える別物。参照を突っ込むと「'ARRAY(nnnn)'」って文字列で保存しやがる。
>保存できねぇなら半端にやらずにいっそ死んでくれ。。。

ってどういうこと？

**nobodyさん** · 2007/06/21(木) 17:06:27

質問です。
CGIの処理で、別のCGIを呼び出すにはどうしたらいいのでしょうか？
例えばセッションを確認して、有効じゃなかったので、ログインページを表示するCGIに
飛ばす場合などです。
現状ではレスポンスヘッダーのlocationに、呼び出したいCGIのパスを指定して渡していますが、
そうするとサーバはperlの起動を2回してることになって負荷的にスマートじゃない気がします。
何か定番のやり方があれば教えてください。

**nobodyさん** · 2007/06/21(木) 17:22:50

>>229
俺はlocationにしてるな。
locationをブラウザに渡してからリクエストを受けるから2回起動してるわけじゃないぞ。

**nobodyさん** · 2007/06/21(木) 17:33:17

うちもlocationだなー。
で、飛ばす先（CGI）へのパラメータとして、元のページのURLを渡す。

**nobodyさん** · 2007/06/21(木) 17:40:38

>>228
「ぼくは頭が悪すぎるから死にたい」ってことじゃね？

**nobodyさん** · 2007/06/21(木) 17:41:43

>>228
ログインページ表示を切り出しておいて呼び出すとか。

**233** · 2007/06/21(木) 17:43:15

×>>228
○>>229

**nobodyさん** · 2007/06/21(木) 18:33:45

use strict;
の必要性について教えて下さい。
色んなサイトを見てみても、書いてあることがまちまちで混乱しています。
要はグローバル変数を認めないということだと理解しているのですが、
それは変数名をタイプミスすることによるエラーの回避や
可読性を考慮してのことなのでしょうか？
それともその他に重要な部分があるのでしょうか？
例えば、
$hoge = '2ch';
print $hoge;
という内容で、どこからも呼び出されないfuga.cgiがあった場合、
use strict;
my $hoge = '2ch';
print $hoge;
とする必要性はあるのでしょうか？

**nobodyさん** · 2007/06/21(木) 18:42:32

2行なら一目でわかるのでいらないという考え方もあるし、普段から
習慣をつけておくという意味ではやっといたほうがいいという人も
いる。好きにしろ。

**nobodyさん** · 2007/06/21(木) 18:43:32

つーかどこからも呼び出されないCGIならそもそも存在する必要ないっしょ

**nobodyさん** · 2007/06/21(木) 18:43:38

それは変数名をタイプミスすることによるエラーの回避や
可読性を考慮してのことなのでしょうか？

↑で９割正解かと

**nobodyさん** · 2007/06/21(木) 18:53:29

Template Toolkit で EVAL_PERL オプションを付け、
テンプレートの中にPERLのコードが書けるようにしました。
で、下記のように書いてテンプレートフォルダ内の count.txt を読み込むよう記述したのですが
その内容が全く出力されませんでした。
Template Toolkitではパールのコードは書けるけどファイルハンドルは扱えない等、
そういう制限があったりするのでしょうか？

[% PERL %]
open FH,"count.txt";
my @count = <FH>;
print @count;
close FH;
[% END %]

**235** · 2007/06/21(木) 18:59:48

>>236
これから新たに書く場合は心掛けた方が良いけど
既に書き上げてしまったものの中で、自分でコードを全て把握しており
第三者に読ませることがないものについては放置でも良い
という方針でいこうと思います。

>>237
「そのCGIだけで完結していて、他のCGIから呼び出されない」という意味です。

>>238
ありがとうございます。
「とりあえずuse strict;は必須！」と書いてあるところは多いのですが
そのメリットやデメリットについてまで詳しく書かれているところは少なく
自分の理解が合っているのか不安だったので助かりました。

**nobodyさん** · 2007/06/21(木) 19:05:29

>>239
そんな制限はきいたこともないな。よくわからんがファイル開けて
ないんじゃねーの?

printやcloseのエラーまで厳密にチェックしろとまではいわないが、
openのエラーチェックだけは省略しないほうがいいよ。

**nobodyさん** · 2007/06/21(木) 19:18:14

>>239
ありがとうございます。
エラーチェックしてみたところ、openの段階でファイルが開けていませんでした。
しかしパスも間違えていないのに何故に開けないんだか。。
原因不明です（´・ω・｀）

**nobodyさん** · 2007/06/21(木) 19:19:16

すいませんアンカ間違えました。
>>241さんです。

**nobodyさん** · 2007/06/21(木) 19:52:32

>>239
ちょこっと検証したけど挙動が変だわw
何れも当環境下なので、あなたの所で上手く行くかどうかは保証外。
以下、成功例
#!/usr/bin/env perl -w
use strict ;
use Template ;
my $tt = Template->new({ EVAL_PERL => 1}) ;
$tt->process(\*DATA, ) ;
__DATA__
[% PERL %]
open FH , 'hoge.pl' or die ;
my @line = <FH> ;
close FH ;
print @line ;
[%- END -%]

'hoge.pl' という名前で保存。これは上手く動いた。ちなみに $/ が undef されてるっぽいので、
@line を $line に変更しても動く。最終改行の制御がどうしても一個多かった。

**244** · 2007/06/21(木) 19:54:53

失敗例。

my $tt = Template->new({ EVAL_PERL => 1}) ;
$tt->process(\<<"EOF", ) ;
[% PERL %]
open FH , 'hoge.pl' or die ;
my @line = <FH> ;
close FH ;
print @line ;
[% END %]
EOF

Possible unintended interpolation of @line in string at hoge.pl line 9.と
Global symbol "@line" requires explicit package name at hoge.pl line 9.が出る。
かといって my @line を普通に先に宣言しても上手く動かない。

**nobodyさん** · 2007/06/21(木) 20:22:49

事故レス。'EOF' にしたら動いた、、、、orz...

**nobodyさん** · 2007/06/21(木) 20:24:59

>>245
それはttが動く以前の話だろ。

use strict;
print <<"EOF";
@line
EOF

と同じこと。

**nobodyさん** · 2007/06/21(木) 20:35:19

>>244さん
わざわざ検証して下さってありがとうございます！
環境の違いがありますが試してみます！
大変参考になりました、感謝です！

**nobodyさん** · 2007/06/21(木) 21:06:24

>>247
> かといって my @line を普通に先に宣言しても上手く動かない。
ってこっちの例を出すべきでしたね。失礼。

**244** · 2007/06/21(木) 22:19:28

ああ、復活した！
アホでした。245以降の私の戯言は消去してください。バルス！！
ああああああ、穴があったら入りたい。ったらありゃしない。

**nobodyさん** · 2007/06/21(木) 23:04:05

unless(open(FILE,"<test.dat")){&error();}
flock(FILE,2);
my @test = <FILE>;
flock(FILE,8);
close(FILE);

として、test.dat(↓)を読み込み、
テスト1
テスト2
テスト3

unshift(@test,"テスト\n");

と先頭に文字列を追加して

unless(open(FILE,">test.dat")){&error();}
flock(FILE,2);
print FILE @test;
flock(FILE,8);
close(FILE);

という様に書き込んだのですが、見てみると

テスト4 テスト1
テスト2
テスト3

の様に改行されず出力されている様ですが、これは何故でしょうか？