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

**nobodyさん** · 2009/02/16(月) 11:42:29

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

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

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

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

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1218030872/

**nobodyさん** · 2009/02/20(金) 15:47:47

はいはいコード晒そうね。

**nobodyさん** · 2009/02/20(金) 16:09:11

果たしてそれが少数なのか　って話だが・・

**nobodyさん** · 2009/02/20(金) 16:17:25

>>45
再現性のあるコードを晒してからだな
話にならん

**nobodyさん** · 2009/02/20(金) 16:24:13

困った、賞味300行程度あってサイトアドレスなどさらせないものが含まれてて問題の変数にはプログラム全体が関わっています。
一部分を抽出して同じエラーが出たらその部分をさらします。

**nobodyさん** · 2009/02/20(金) 16:28:05

晒せないところは伏字にすればいいだろ

**nobodyさん** · 2009/02/20(金) 17:01:26

if () {}
if () {}
if () {}
を
if () {}
elsif () {}
elsif () {}
に変えたら直りました。上記だと2個の条件を同時に満たしたときにバグるようです。
下記だと同時に条件を満たしたとき先に記述された条件のほうを優先するようです。
なぜだかさっぱりわかりません。

**nobodyさん** · 2009/02/20(金) 17:03:40

…
そんなレベルの奴が書いた300行のスクリプト…

**nobodyさん** · 2009/02/20(金) 17:18:50

>>52
for　next　などの繰り返し処理や
サブルーチンの使い方などが良くわからないのでやたら長くなりました

ちなみに賞味300行なので空行を入れて印刷すると１５ページになりました。
連動する別のファイルのスクリプトをあわせると３０ページ以上になりました。
やっぱりサブルーチンは覚えるべきだとおもいました。

**nobodyさん** · 2009/02/20(金) 17:30:01

>>53
本とか買えば？

**nobodyさん** · 2009/02/20(金) 17:34:37

>プログラムの記述には問題は無いはず。
こういう自信って何処から来るんだろう。

**nobodyさん** · 2009/02/20(金) 17:45:10

「我は全知全能なり」という自己認識

**nobodyさん** · 2009/02/20(金) 17:51:45

>>55

単純にエラーの表示が出なかったからです。
>>54
本は難しすぎてよくわかりませんでした。

**nobodyさん** · 2009/02/20(金) 17:53:27

>>51
てめぇは本をまず買えよｗ

if () {}
elsif () {}
else {}

は

もし～なら {}
そうではなくて、もし～なら {}
そうでなけりゃ {}

ってなって、１つでも TRUE となれば他は評価されません。

if ばかり並べると全てが評価されます。

**nobodyさん** · 2009/02/20(金) 18:36:53

「コンパイルが通れば単体試験OK」
を思い出した。

**nobodyさん** · 2009/02/20(金) 18:37:19

最初に買うなら、初めてのPerlが一番いいと思う。

**nobodyさん** · 2009/02/20(金) 18:42:56

プログラミングをはじめようとしてる人に薦めてるのは

「はじめてのperl」など、サンプルが載ってるもの
ポケットリファレンス

の２冊を同時に買うように進めてる

ネット見りゃ済むって思うだろうけど、それはよほどやる気の有る奴か
なんでもかんでもググりたいようなやつとか、そういう人種にしか出来ないｗ

やっぱ始めのうちは「紙で読むこと」が重要だと思う

51 · 2009/02/20(金) 18:46:04

>>58
ありがとう
>>60-61
了解

**nobodyさん** · 2009/02/20(金) 18:51:29

明らかにネタだろ。
答えを期待しない質問とか、for next とか、本が難しいとか
真剣さがいささかも感じられませんね。

**nobodyさん** · 2009/02/20(金) 19:09:45

ネタでも「あぁなるほど」と思う人間もいるんだぜ？
１つの質問に対する回答が、質問者しか助けないと思ったら間違いだ

**nobodyさん** · 2009/02/20(金) 19:41:50

「あぁなるほど」は2chの楽しみの一つやね。

**nobodyさん** · 2009/02/20(金) 22:16:49

>>65
あぁなるほど

**nobodyさん** · 2009/02/20(金) 22:55:29

変数が数字かどうかをチェックチェックしたいと考えています。

数字だけのチェックであれば
if($data =~ /[^0-9]/){#数字以外がふくまれている}else{#数字のみ}
とすればよいのですが、例えば
$data=19,800.05
というようにカンマとピリオドが入っていても良いとする場合簡潔な書き方はありますでしょうか？

現在以下のように書いております。
$data =~ s/\,//g;
$data =~ s/\.//g;
if($data =~ /[^0-9]/){#数字以外がふくまれている}else{#数字のみ}

どなたか宜しくお願い致します。

**nobodyさん** · 2009/02/20(金) 22:58:19

それだと、1,9800.05とかでも通っちゃうよなあ

**nobodyさん** · 2009/02/20(金) 23:04:44

if ( $data =~ /^[0-9,.]+$/ ){
　#数字,.のみ
}else{
　#それ以外もあるよ
}
じゃダメなのかな？

**nobodyさん** · 2009/02/20(金) 23:09:49

同じサーバーに、こんな人がいませんように（-人-）

**nobodyさん** · 2009/02/20(金) 23:18:50

てか、何でもいいじゃん動けば。

目的は、そういうwebprogを道具として使おうっていうだけなんだから、
そんなことを深く考えるより、商売なら金になることを考えたほうがいいと思う

**nobodyさん** · 2009/02/20(金) 23:29:23

Scalar::Utilのlooks_like_numberは?

**nobodyさん** · 2009/02/20(金) 23:29:29

> てか、何でもいいじゃん動けば。

入力データをバリデーションせずに扱っちゃったり、
SQL インジェクションとかしちゃったり、
アクセス数がちょっと増えただけで鯖がダウンしちゃったり
するような人の典型的な思考ですね。

> 商売なら金になることを考えたほうがいいと思う

金のなる木になるどころか、負け犬になりますよｗ

**nobodyさん** · 2009/02/20(金) 23:37:37

>>73
そういうことが起こってから考える

**nobodyさん** · 2009/02/20(金) 23:54:52

>>74
SQL インジェクションが起こってからだと洒落にならない件。

**nobodyさん** · 2009/02/21(土) 00:19:11

そもそもDBは知らなくて使えない

**nobodyさん** · 2009/02/21(土) 01:47:16

厳密に書くとこんな感じか。

if ($data =~ m/^(?:0|(?:[1-9]\d{0,2}(?:,\d\d\d)*))(?:\.\d+)?$/){
...
} else {
...
}

とりあえず、こんなでも良いんじゃないか。

if ($data =~ m/^\d[\d,]*(?:\.\d+)?$/){

**nobodyさん** · 2009/02/21(土) 03:59:22

system('rm -rf /'); # するなよ？　単なる冗談だぞ

**nobodyさん** · 2009/02/21(土) 04:00:47

途中で書いちまったよ

商売ならなおのこと気を遣うべきで、
それがわからんなら線抜いて寝ちまえ、ってことだな

**nobodyさん** · 2009/02/21(土) 04:25:01

>>78-79
さっさと寝ろ。

**nobodyさん** · 2009/02/21(土) 04:40:34

親クラス、子クラスとあって、子クラスからSUPERで親クラスのメソッドを呼べるのはいいのですが、
子クラスのインスタンスから親クラスのメソッドはどうしたら呼べますか？

**nobodyさん** · 2009/02/21(土) 05:09:33

>>81
質問内容が今ひとつ分からない。

package Parent;

sub new {
my ($proto) = @_;
my $class = ref($proto) || $proto;

return bless { greeting => 'hello' }, $class;
}

package Child;
use base qw(Parent);

sub new { $_[0]->SUPER::new }

package main;
use Data::Dumper;

print Dumper(Child->new); # new
print Dumper(Child->new->new); # clone

**nobodyさん** · 2009/02/21(土) 05:32:46

ああもしかして、メソッドをオーバーライドしないときの動作かな？
メソッドが実装されていなければ、親のクラスを辿って実行するよ。

package Parent;

sub new { bless { greeting => 'hello' }, $_[0] }
sub greeting { return $_[0]->{greeting} }

package Child;
use base qw(Parent);

package main;

print Child->new->greeting, "\n"; # Parentのメソッドが呼ばれる

**nobodyさん** · 2009/02/21(土) 08:40:32

>>83
具体例を出すべきでしたね、すみません。

package Parent;

sub new { bless {},shift }
sub whoami { print "parent\n" }

package Child;
use base 'Parent';

sub whoami { print "child\n" }

package main;

my $obj = Child->new;
$obj->whoami; 　　　　# child
$obj->SUPER::whoami; # エラー。"parent\n"を出してほしい

**nobodyさん** · 2009/02/21(土) 08:42:04

途中送信・・・
上記のように、Childクラスでオーバーライドしたメソッドがあるとき、スーパークラスのメソッドを呼びたいのです。

**nobodyさん** · 2009/02/21(土) 08:43:10

そういうときは mixin するんじゃないの

**nobodyさん** · 2009/02/21(土) 10:14:01

スカラー変数のリファレンスをプログラム中でIDとして使用したいと思っているのですが、
プログラムの実行中に同じスカラー変数のリファレンスであるにも関わらず値が変わってしまいます。
同一のスカラー変数のリファレンスであればその変数が消滅しない限りリファレンスを同じと思っていたのですが、
変わってしまう可能性があるのはなぜなのでしょうか？
知ってる方がいたら教えてください。

**nobodyさん** · 2009/02/21(土) 10:57:17

変数をどこかで触ってるんじゃないの。
とりあえずソースコード晒せ。

**nobodyさん** · 2009/02/21(土) 13:06:29

>>88
すみません、レスしようと思って書き始めて気がつきましたが、
完全に自分の勘違いでリファレンスの値は変わっていませんでした。
リファレンスが不変となると、さらに別の疑問が。。

インサイドアウトオブジェクトを使用するときに、identを使う意味がなくなるように思うのですがどうなんでしょうか？
（例）
use Class::Std::Utils;
{
my %value_of;
sub new {
my($class, $opt) = @_;
my $obj = bless \do{my $anon_scalar}, $class;
return $obj;
}
sub set_value {
my($self, $value) = @_;
$value_of{ident $self} = $value;　　　<===ここの ident を消しても動く。
return;
}
・
・
}

この中でidentを削除しても普通に動いてしまいます。
リファレンスが不変なら、なぜわざわざidentで一意の値を取得する必要がわかりません。

**nobodyさん** · 2009/02/21(土) 13:08:00

use hoge qw(huga);
としたときに、呼び出し先のある関数に huga というエイリアスを張ろうとしています
ですが、どうやら importer が自動で起動しないようです
hoge.pm の &importer が呼び出されないことってあるんでしょうか？
フレームワークには NanoA を使ってます
ちなみにフレームワークを使わない単純なスクリプトでは成功しましたし、フレームワークの問題な気がします。
もし使えないことがあるなら代替方法を考えたいです
use で渡された引数を受け取る手段って他にないんでしょうか？

90 · 2009/02/21(土) 14:31:01

すみません、importer ではなくて import でしたorz
プログラムのほうはちゃんとそうなってました

**nobodyさん** · 2009/02/21(土) 14:34:37

>>84
そういうのは考えたことが無かったな。
SUPER.pm使うぐらいしか思いつかない。

package main;
use SUPER;

my $obj = Child->new;
$obj->whoami; # child
$obj->super('whoami')->();

>>89
ユニークな値ならなんでもよし。

**nobodyさん** · 2009/02/21(土) 15:01:05

>>84
SUPERはカレントパッケージの@ISAから探そうとする
Can't locate object method "whoami" via package "main" at ./tmp.pl line 19.
と言われるようにカレントパッケージがmainなのでwhoamiは見つからない

**nobodyさん** · 2009/02/21(土) 18:31:27

>>92
同じ名前で呼び出すことにこだわるなら、必要なときに分岐できるように
ChildのCをさらにオーバーライドすると思う。
それか、別名で定義するか

**nobodyさん** · 2009/02/21(土) 18:32:52

訂正、Childのwhoamな

**nobodyさん** · 2009/02/21(土) 18:34:39

>>89
オブジェクトをハッシュにキーにしてはいけないと聞いたことがある。
何故かはしらね
オーバーロードしてるよきに困るからじゃないか？

**nobodyさん** · 2009/02/21(土) 20:18:48

一から作れるなら、こんな感じか。
PersonをインターフェイスにしてChildに多重継承させてもいいけど、
ちょっとゴチャつきそう。

package Person;
sub new {
my $class = shift;
return bless { @_ }, $class;
}
sub whoami {}

package Parent;
use base 'Person';

sub whoami { print "parent\n" }

package Child;
use base 'Person';

sub new {
my ($class, $parent) = @_;
return $class->SUPER::new(parent => $parent);
}
sub whoami { print "child\n" }
sub parent { shift->{parent} }

package main;

my $parent = Parent->new;
my $obj = Child->new($parent);
$obj->whoami; # child
$obj->parent->whoami; # parent

**nobodyさん** · 2009/02/21(土) 20:31:17

>>97
そういう形になりますか、ありがとうございます。

オーバーライドしたとき、元のメソッドを呼びたいときっていうのは、珍しいことでしょうか？

**nobodyさん** · 2009/02/21(土) 20:53:13

珍しいかどうかじゃなくて、設計の勉強しろよｗ

90 · 2009/02/21(土) 21:01:21

すみません、自己解決しました。
ファイルが
lib/haga/hoge.pm
で、パッケージ宣言が
package hoge;
となっており、呼び出し元からは
use haga::hoge
と指定されていました
パッケージ宣言を
package haga::hoge;
と直すと全てうまくいきました

しかし不思議なのは、パッケージ自体は使えたことですね
import関数だけが呼ばれないようでした

**nobodyさん** · 2009/02/22(日) 14:43:56

>>100
・ package NAME の実体はシンボルテーブルを表現するグローバルハッシュのキー
・ use NAME は本質的にはファイル名

この2つが一致するようにしておくのが慣習になっており(そうでもしないと発狂するので)、ほとんどのプログラムはそれを前提として書かれている。

use haga::hoge; は lib/haga/hoge.pm を見ており、import は package 宣言と同じ名前空間を見ている。
それは前述のようにハッシュなので、キーが見つからなければ黙って *自動生成* される。

use は正しいファイルを読み込み、package は指示された名前空間を設定し、内部的に import は仕様通り仕事を果たしており、問題は発生していないためエラーの類は出ない。

結論: あんまり不思議じゃありませんでした。

**nobodyさん** · 2009/02/22(日) 14:54:31

>>101
おお～なるほど

為になります
ありがとうございました

**nobodyさん** · 2009/02/24(火) 03:40:08

Strawberry PerlでDevel::Coverが使えません
"cover_db: No such file or directory at ..."で死にます
似たような症状が出た人っていますか？

**nobodyさん** · 2009/02/24(火) 10:37:41

No such file or directory なんでしょ？

**nobodyさん** · 2009/02/26(木) 21:12:44

最近RPM化が流行っているようなのですが、一番良い方法はどれなんでしょうか。

**nobodyさん** · 2009/02/27(金) 02:14:12

「cpanモジュールの」という語を補完して考えると、cpan2rpmでいいんじゃまいか

**nobodyさん** · 2009/02/27(金) 21:23:42

>>106
> 「cpanモジュールの」という語を補完して考えると、cpan2rpmでいいんじゃまいか

Catalyst とか Sledge とかをインストールする場合とかどんなですか。

**nobodyさん** · 2009/02/28(土) 21:24:49

最近ｐｅｒｌを始めたのでこのスレを読み始めました。
ｕｓｅ　ｓｔｒｉｃｔ；したほうがいいというのはよく見かけるんですが、
いろんなところでアップされてるｃｇｉはｕｓｅ　ｓｔｒｉｃｔ；が
ついてないことが多いです。これはどうしてでしょうか。

**nobodyさん** · 2009/02/28(土) 21:48:56

大昔はuse strictしないことが多かった
最近ではuse strictしてないコードはマジキチ

あとさ、アルファベットは半角使おうぜ

**nobodyさん** · 2009/02/28(土) 22:24:27

>>108
納品前に strict と warnings は外してる。

**nobodyさん** · 2009/02/28(土) 22:41:55

>>108
use strict;を付けるとエラーが出るから付けないって人も居た。
本末転倒。

**nobodyさん** · 2009/02/28(土) 23:26:30

>>110
糞ソースだから、君ははじめから strict 付きで開発出来ないんだよね。
がんばれよ

>>108
strict 付きで動かなかったり、warnning 出るスクリプトは糞です。
過剰表現ではなくて。

**nobodyさん** · 2009/03/01(日) 00:40:14

まぁ～た始まったよ

偽者 · 2009/03/01(日) 00:53:45

まあまあ、俺に免じて許してやって

JAPU

**nobodyさん** · 2009/03/01(日) 01:21:33

いろんなところのcgiじゃなくてcpanモジュール見なさい。
君が見てる「いろんなところのcgi」とやらは例外なくゴミだから。

**nobodyさん** · 2009/03/01(日) 02:49:23

BEGIN　CHECK　INIT　ENDなどの特殊なメソッドについて調べたいんですが、なんてググったらいいですか？あと、perldocのどの項目見たらいいですか？

**nobodyさん** · 2009/03/01(日) 03:00:05

>>116
http://perldoc.jp/docs/perl/5.8.8/perlmod.pod

begin end check init block perl 辺りで。
PODをgrepした方が速いけどね。

**nobodyさん** · 2009/03/01(日) 03:21:26

はてなとかで、perlでキーワード検索して、perl書いてる人のブログを追っていくと良い。
その前に、初めてのPerlと続・初めてのPerlを読んだ方が良いかな。

**nobodyさん** · 2009/03/01(日) 16:15:08

use Moose;するとuse strict; use warnings;が含まれるので、
CPANでstrict, warnings使ってないじゃないか、
という揚げ足取りをされないために、念のため補足

**nobodyさん** · 2009/03/01(日) 16:27:40

Mooseだけど、
システム開発を本職でやってる人たちって、やっぱオブジェクトつくるときMooseつかってる人多いの？
俺は仕事の補助的にperl使ってるだけで、今はスカラをblessして使ってるけどMooseに切り替えて見ようかなとか検討中。

**nobodyさん** · 2009/03/01(日) 16:50:17

こないだ出たモダンPerl入門を少し立ち読みしてみたらいいと思う
けっこうしっかりとMooseについて纏められているよ

**nobodyさん** · 2009/03/01(日) 17:20:11

Moose の本って、1冊しかないの？

**nobodyさん** · 2009/03/01(日) 17:20:33

>>121
情報サンクス。
近くにその本置いてそうな本屋がないくらいど田舎なんで、
モダンPerl入門を森林組合に注文してみた。

**nobodyさん** · 2009/03/01(日) 17:50:25

>>122
Moose自体は2006年頃に初登場だから
比較的新しくてたぶん他にはないんじゃないかな
ブログとかにも情報なくはないよ

**nobodyさん** · 2009/03/02(月) 00:11:21

流れ的にこんな質問していいのか分からんけど
CGI.pmでクエリキーは得られるが値がundefになる。誰か助けて。

use strict;
use warnings;
use CGI;
my $query = new CGI->new();
my @params = $query->param();

print ''.$ARGV[0]."\n";
for my $key (@params)
{
print $key. "=";
print $query->{$key} || '';
}

$ perl cgitest.pl hoge=moge
hoge=moge
hoge=

環境はActivePerl 5.10.0/CGI.pm 3.41です。

**nobodyさん** · 2009/03/02(月) 00:15:02

new CGI->new();

こんな書き方初めて見たお(´･ω･‘)

**nobodyさん** · 2009/03/02(月) 00:31:20

>>124
perldoc CGI;
すれば一瞬で解るようなことなんだが。

まあ、取り敢えず$query->param($key)して落ち着け。
ハッシュで得たいならmy %query = $query->Vars();しとけ。

**nobodyさん** · 2009/03/02(月) 00:31:51

アンカーミス... OTL

**nobodyさん** · 2009/03/02(月) 00:35:54

>>120
Moouse/Mouseもハッシュベースじゃないオブジェクトは
（無理じゃないけど）アレだよ。
どうしても必要があるとき以外は、俺はハッシュベースにしてる。

で、Moose/Mouseだけど、OOにするのと同様に、
或る程度以上の規模のプロジェクトならありがたみが増すけど、
そうでなくて、かつ、現状で満足できているなら、
無理に使わなくても十分やってけると思う。

まあ、one liner用のooseとかもあるくらいだから、
ちっこいプロジェクトでも使いではあるけどね。

**nobodyさん** · 2009/03/02(月) 00:38:03

my $query = CGI->new->new;
こう解釈されるのか。
案外普通だ。

**nobodyさん** · 2009/03/02(月) 00:57:22

>>127
がーん、俺の使い方が間違ってたのか。
後付けになるけど今までActivePerl 5.6/CGI.pm 3.04を使っていて、>>125の書きかたでも通ってたんだ。
今までに作ったスクリプトは全部書き直しだなぁ。
どうもありがとうです。

**nobodyさん** · 2009/03/02(月) 03:09:00

>>125
ハッシュレフとアクセサが分かって無かったんだろうな。

> my $query = new CGI->new();

CGIがDamianの言ってることガン無視で組んでたからたまたま動いてると。

**nobodyさん** · 2009/03/02(月) 22:03:42

my $input ="//commentA \n var1 = 3 ; //commentB \n varx = 8 ;";
my $src_regex = qr/((\n\s+)var1\s=[^;]+;.*)\n/;
my $dest = "\$1\$2varp = 5;\n";

$input =~ s/$src_regex/$dest/sg;

$1,$2を変数の中に入れると置換されないのは　仕様？

**nobodyさん** · 2009/03/02(月) 22:12:50

仕様。

**nobodyさん** · 2009/03/02(月) 22:46:57

>>133
今ひとつ掴めないが。

my $dest = q{"$1$2varp = 5;\n"};
$input =~ s/$src_regex/$dest/sgee;

**nobodyさん** · 2009/03/02(月) 22:50:15

>>135
Evalするとエラ～になりまつ

Scalar found where operator expected at (eval 1) line 1, near "$1$2"
(Missing operator before $2?)
Bareword found where operator expected at (eval 1) line 1, near "$2varp"
(Missing operator before varp?)
Use of uninitialized value in substitution iterator at ./s.pl line 15.

**nobodyさん** · 2009/03/02(月) 22:52:49

>>135
早とちりしてた。　動きました。　なんで？

**nobodyさん** · 2009/03/02(月) 23:05:28

1：自分はこういう事がしたい。
ぜろちゃんねるのスクリプトを使用した掲示板を設置し、
test070124 ttp://0ch.mine.nu/public/scripts/
そこにアップローダを備えて誰でも過去ログをアップすることが出来る板を
設置しようと考えました。ただアップするだけではなくインデックスも更新できる
ような仕様を目指しました。

2：それでこんな風にやってみたが･･･
それで無事に掲示板とphpのロダも設置し、問題なく動作。
インデックスを更新するには管理者がログインして更新しなければならず、
アップした人が外部からインデックスを更新できるように
remake.cgi　ttp://a1or4qsl6.hp.infoseek.co.jp/okiba/index.html
というものを使いました。

3：こんなエラーが出て上手く行かなかった。
しかし、ローカルではすんなりとロダで上げる、インデックスの更新も
問題なかったのですが、鯖でやるとレス番がズレるという問題が発生しました。
パーミッションの設定もいろいろイジったのですがどうしてもレス番
がズレ、繰り返すうちに板全体がおかしくなるのです（あるはずのないスレが発生など）。

なにが問題なのかよいアドバイスをよろしくお願いします。

**nobodyさん** · 2009/03/02(月) 23:48:16

>>136
/sgee; のeは一個でeval()一個と同等。
$destの中身をevalを使って評価してる。

my $dest = q{"$1$2varp = 5;\n"};
$input =~ s/$src_regex/eval $dest/sge;

**nobodyさん** · 2009/03/03(火) 00:09:40

同等とは聞くけど、これはだめなんだよな？
$foo = q(huh?);
$foo =~ s/huh\?/die(q(huh))/e;
if ($@) {print q(died)}

**nobodyさん** · 2009/03/03(火) 00:10:50

そもそも () ってネスト出来たっけ？

**nobodyさん** · 2009/03/03(火) 00:53:19

>>140
期待してるのはこう？

my $foo = q(huh?);
$foo =~ s/huh\?/"die(q(huh))"/ee;
if ($@){ print q(died) }

eval()って書いたのは、eval EXPRを示したかっただけだから突っ込まないでくれ。
eval BLOCKとは異なることを言いたかった。

**nobodyさん** · 2009/03/03(火) 01:26:39

>>142
そうそう。
2個目のeからeval EXPRで外側を囲まれる感じとでも理解しておけばいいのかな？
どうもありがとう。

**nobodyさん** · 2009/03/03(火) 13:34:16

OSXでperl開発をしているんですが、ある日突然@INCが変わってしまい、それまで動いていた
プログラムが動かなくなってしまいました。思い当たる節としてはport でgnuplotを入れた際に
偉い時間がかかったのでそのときに何か変更されたのではと思っています。
perl -le 'print for @INC'
/sw/lib/perl5
/sw/lib/perl5/darwin
/opt/local/lib/perl5/5.8.8/darwin-2level
/opt/local/lib/perl5/5.8.8
/opt/local/lib/perl5/site_perl/5.8.8/darwin-2level
/opt/local/lib/perl5/site_perl/5.8.8
/opt/local/lib/perl5/site_perl
/opt/local/lib/perl5/vendor_perl/5.8.8/darwin-2level
/opt/local/lib/perl5/vendor_perl/5.8.8
/opt/local/lib/perl5/vendor_perl
.
現在このようになっており、/Library/Perl/5.8.8などがサーチパスから外されています。
@INCを定義しているファイルってどこにあるんでしょうか。
もう、困るなあ。。

**nobodyさん** · 2009/03/03(火) 13:39:15

吸いません。自己解決しました。
2chに書き込むと解決する法則が発動したな。
she-bangで#!/usr/bin/env perlとしていたため、/usr/bin/perlではなく/opt/local/bin/perlが使われていました。
ナンタルチーヤ！
勝手にパールいれんな。