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

**nobodyさん** · 2006/06/26(月) 00:46:38

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

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

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

**574** · 2006/07/16(日) 19:11:43

レス遅くなってすみません。

>>577
一度別の変数に逃がしておいて、そっちの方で再度逆のパターンで取得する、
という理解で良いんでしょうか。参考にしてみます。
括弧でくくって逃がしておく方法は知らなかったので勉強になりました。

>>578
マッチ変数は1箇所でも使うと他の全ての正規表現にも影響が出るんですね。
今のところ使ってる箇所はないんで、できたら使わない方向で考えてみます。

>>580 >>581
速度も気になりますが、「注意して使ってください」の文言に
ちょっとビビってしまいました。でも、他にも正規表現使ってる箇所があるので
できたらマッチ変数使わなくても良いのならそっちの方が良いと思っています。

>>583-584 >>586
画に描いたようなツンデレと詳しいベンチマークありがとうございました。
局所的にはマッチ変数よりも$1使った方が処理は速いけれど
他にも正規表現使ってる箇所があれば、結果は逆になるということですね。
コード内で他にもいくつか正規表現使ってるところがあるので
マッチ変数を使わなくてはならない状況になれば$1を代用することにします。
非常に勉強になりました。

>>587
正規表現の置換と言えば即sでやってたので
trに特有の便利な修飾子があるのを見落としていました。
ずばりの解答も含めてありがとうございました。

レスくださった皆さん、ありがとうございました。
最近あちこちで落雷が発生しているみたいなのでパソコンの方もご自愛下さい。

**nobodyさん** · 2006/07/16(日) 19:42:51

誰かアンチKENTの方々、コレが最高という掲示板配布サイトなどを教えて下さいな。
by KENT信者

**nobodyさん** · 2006/07/16(日) 19:44:18

はいはい釣り釣り

**nobodyさん** · 2006/07/16(日) 22:04:02

入力された文字を展開して表示させる方法ってあります？
たとえば ^\d$ と入力すると

0
1
2
3
4
5
6
7
8
9

と展開するみたいな

**nobodyさん** · 2006/07/16(日) 22:16:57

ない

**nobodyさん** · 2006/07/16(日) 22:32:38

質問の意図が読めない
正規表現の展開?

**591** · 2006/07/16(日) 22:41:09

>>593
展開して表示する方法があるのかどうかです

^\d$なら>>591の通り0～9まで展開
^[Aa]$ならAとaの２つ展開
という意味です

**nobodyさん** · 2006/07/16(日) 22:52:27

[^a] とかの場合はどんな展開を想定してんだ？
できないってことでいいよ。

**nobodyさん** · 2006/07/16(日) 22:56:17

知らないのかｗ

**nobodyさん** · 2006/07/16(日) 22:56:40

残念ながら知らないw
>>592のいう通りじゃない？
簡単な正規表現だったら、頭の中で想像つくし、
複雑なものだったら、展開後の文字が何万行にも
わたってしまうから...

単純な例だと「/./」。
これの展開は 1byte で表されるものすべてだから、
多byte文字とか考えたらガクガクブルブルw

**593** · 2006/07/16(日) 22:59:52

>>597は>>591に対してのレス

**nobodyさん** · 2006/07/16(日) 23:01:02

my $p = qr/^\d$/;
my @c = grep { $_ = chr($_); /$p/ } (0..0xFF);

**nobodyさん** · 2006/07/16(日) 23:34:52

パソコンに入っているcsvファイルAを読み込んでデータを取り出して処理、
そしてサーバ上にあらかじめ用意してあるファイルBにその結果を書き出す、
ということをやりたいんですが、そういうことは可能でしょうか？

**nobodyさん** · 2006/07/16(日) 23:36:49

>>600
要約するとこういうことです。

CSVファイルをアップロードして、処理した結果を保存する。

結論。可能

**600** · 2006/07/16(日) 23:42:33

>>601
なるほど。とすると簡単な流れとしては
csvファイルAをサーバにアップロード
→オープンして処理
→ファイルBに書き込む
→ファイルA削除
という解釈で大丈夫でしょうか？

**nobodyさん** · 2006/07/16(日) 23:48:10

**591** · 2006/07/17(月) 00:05:10

>>599
ありがとうございます

**591** · 2006/07/17(月) 00:09:38

>>602
もっといい方法があるかもしれないけど
csvファイルAからGrep→ファイルBに書き込む
でいけるような

**nobodyさん** · 2006/07/17(月) 00:19:41

>>604
え、それでいいの？
シングルバイト、1文字限定なら、最初に言ってよ。

**nobodyさん** · 2006/07/17(月) 00:25:28

>>602
search.cpan.org にいって
NET::FTP とか NET::SSH::PERL とか
そっちがわ系のモジュールを検討してみたら？

**nobodyさん** · 2006/07/17(月) 00:31:41

>>606
ほんとだよなｗ

**600** · 2006/07/17(月) 00:46:22

602の流れでとりあえず書いてみようと思ったんですが
ファイルAをアップロード→オープン
のところで、おそらくアップロードが完了する前に
オープンをかけてしまいエラーが出てしまいます。
アップロードとファイルBへの書き込み処理は
別々にしないと無理ですかね・・・。

>>603
喜び勇んで早速書き始めてたらいきなり否定されてたとは・・・

>>605
grepを使うにしても、まずはサーバ上にファイルAを上げないとダメですよね？

>>606
そういうモジュールがあるんですか。
調べてみます。

**nobodyさん** · 2006/07/17(月) 00:51:38

>>609
そんなこたあないはず。
心配だったら sleep(1) でもしてみたらいいじゃない。

**591** · 2006/07/17(月) 00:59:20

>>606 >>608
ああああ、>>599はシングルバイト限定なんですね・・・
２バイト以上だとやっぱり無理？

**nobodyさん** · 2006/07/17(月) 01:06:13

気づいてなかったのかw

**nobodyさん** · 2006/07/17(月) 01:06:32

>>611
パターンなんて無限大にあるしなあ。
/.../ これだけ展開するので 255*255*255 だろｗ
もっと条件言うか何がしたいか言うかしないと「無理」って感じ。

**600** · 2006/07/17(月) 01:08:17

>>610
単に処理のコードが間違ってるだけでした・・・
一応602の流れでやりたいことはできました。

**nobodyさん** · NG

　　　　　　　　　　　　　　　　　　般若波羅蜜多心経

　　　　　　　　　　　観自在菩薩行深般若波羅蜜多時照見五
　　　　　　　　　　　蘊皆空度一切苦厄舎利子色不異空空不
　　　　　　　　　　　異色色即是空空即是色受想行識亦復如
　　　　　　　　　　　是舎利子是諸法空相不生不滅不垢不浄
　　　　　　　　　　　不増不減是故空中無色無受想行識無眼
　　　　　　　　　　　耳鼻舌身意無色聲香味觸法無眼界乃至
　　　　　　　　　　　無意識界無無明亦無無明尽乃至無老死
　　　　　　　　　　　亦無老死尽無苦集滅道無智亦無得以無
　　　　　　　　　　　所得故菩提薩垂依般若波羅蜜多故心無
　　　　　　　　　　　罫礙無罫礙故無有恐怖遠離一切顛倒夢
　　　　　　　　　　　想究竟涅槃三世諸仏依般若波羅蜜多故
　　　　　　　　　　　得阿耨多羅三藐三菩提故知般若波羅蜜
　　　　　　　　　　　多是大神咒是大明咒是無上咒是無等等
　　　　　　　　　　　咒能除一切苦真実不虚故説般若波羅蜜
　　　　　　　　　　　多咒即説咒曰
　　　　　　　　　　　羯諦羯諦波羅羯諦波羅僧羯諦菩提薩婆訶

　　　　　　　　　　　　　　　　　般若心経

仏説摩訶般若波羅蜜多心経観自在菩薩行深般若波羅蜜多時照見五蘊皆空度一
切苦厄舎利子色不異空空不異色色即是空空即是色受想行識亦復如是舎利子是
諸法空相不生不滅不垢不浄不増不減是故空中無色無受想行識無眼耳鼻舌身意
無色声香味触法無眼界乃至無意識界無無明亦無無明尽乃至無老死亦無老死尽
無苦集滅道無智亦無得以無所得故菩提薩捶依般若波羅蜜多故心無罫礙無罫礙
故無有恐怖遠離一切顛倒夢想究竟涅槃三世諸仏依般若波羅蜜多故得阿耨多羅
三貌三菩提故知般若波羅蜜多是大神呪是大明呪是無上呪是無等等呪能除一切
苦真実不虚故説般若波羅蜜多呪即説呪曰羯諦羯諦波羅羯諦波羅僧羯諦菩提薩
婆訶般若心経

**607** · 2006/07/17(月) 01:10:00

>>609
適当にぐぐっただけなので、中身は知らんよ。
ただ、ftp, ssh 系のモジュールは、cpan に結構ある
から、その中に役立つものはあるかも。

**nobodyさん** · 2006/07/17(月) 01:11:22

>>591
昔ム板のPerlスレで似たようなお題が出たのを思い出した。

Perlについての質問箱 21箱目
ttp://pc8.2ch.net/test/read.cgi/tech/1134327348/478-
ミラー
ttp://makimo.to/2ch/pc8_tech/1134/1134327348.html#478

で、こんなのが紹介されている。
ttp://search.cpan.org/~bowmanbs/Regexp-Genex-0.06/lib/Regexp/Genex.pm
読んで試してみたらどうも\d等の文字クラスが含まれていると、
ランダムにしか出てこないみたいだけど参考まで。

**600** · 2006/07/17(月) 01:21:32

>>616
FTPと似たようなことができるみたいなので
よく分からない状態で用いるのは、
セキュリティ上危険な気がしました。
ご忠告ありがとうございました。

**nobodyさん** · 2006/07/17(月) 05:25:24

膨大なスクリプト内のいろんなところにexitが置いてあるコードはスパゲッティと考えていいですか？

**nobodyさん** · 2006/07/17(月) 06:08:57

(´･ω･｀)ﾓｷｭ?

**nobodyさん** · 2006/07/17(月) 07:11:29

>>619
mod_perlでも動かすのかな？
それより、local宣言だらけを心配した方がいいよ。
逆に、my宣言が全然ないとか。

**nobodyさん** · 2006/07/17(月) 10:19:25

>>619
exitの飛び先は明確だし、フローがでたらめな訳でもないから、違う。

**nobodyさん** · 2006/07/17(月) 11:23:26

>>618
> FTPと似たようなことができるみたいなので
> よく分からない状態で用いるのは、
> セキュリティ上危険な気がしました。

「FTPと似たようなこと」をやろうとしてるんじゃなかったのか。
にほんごってむずかしーね。

**nobodyさん** · 2006/07/17(月) 12:15:35

それを実行するには「ftpと似たような事」をしなければ出来ないと
いう事に思い至らなかっただけでしょ。

**nobodyさん** · 2006/07/17(月) 14:29:03

>>600
何悩んでるか知らないけど、アプロダ参考にすればいいんじゃないの？

**nobodyさん** · 2006/07/17(月) 16:03:52

FTPつかわずに、どうやってアップロードしてるんだろう？
http?

**nobodyさん** · 2006/07/17(月) 16:31:38

64**9を計算すると
1.8014398509482e+016
ってなるけど実数表示させるにはどうすりゃいいのん？

**nobodyさん** · 2006/07/17(月) 16:33:45

>>627
5.8以上ならuse bigint;
それ以前を考慮するならMath::BigIntを直接使う

**nobodyさん** · 2006/07/17(月) 16:47:46

>>628
おおそんなのがあったのか
ありが㌧

**nobodyさん** · 2006/07/17(月) 16:51:55

>>628
ｽﾏｿ、”Math::BigIntを直接使う”
直接使う？

**nobodyさん** · 2006/07/17(月) 17:13:50

>>630
perldoc bigint を見れば分かるけど、
> "bigint" is just a thin wrapper around various modules of the Math::BigInt family.

**nobodyさん** · 2006/07/17(月) 22:48:16

>>631
英語読めない

**nobodyさん** · 2006/07/17(月) 22:53:09

"bigint"は Math::BigInt 関連のモジュールの単なる小さなラッパーです。

**nobodyさん** · 2006/07/17(月) 22:57:20

>632
消防はもう寝な

**nobodyさん** · 2006/07/17(月) 23:00:55

>>627
> 1.8014398509482e+016
実数表示してるじゃん。という突っ込みは誰もしないの?

**nobodyさん** · 2006/07/17(月) 23:01:54

>>632
お前の次のセリフは「ラッパーって何？」だ

**nobodyさん** · 2006/07/17(月) 23:05:15

>>636
ラッパーってあのラッパーですか？

**nobodyさん** · 2006/07/17(月) 23:21:32

DAYONE

**nobodyさん** · 2006/07/17(月) 23:36:11

>>628
5.8.8でuse bigint;したけど64**9は>>627みたいになったぞ?

**nobodyさん** · 2006/07/17(月) 23:43:04

>perl -e "printf '%.0f', 64**9"
18014398509481984

こうですか？　わかりません＞＜

**nobodyさん** · 2006/07/17(月) 23:45:16

printfでもできるのか

**nobodyさん** · 2006/07/18(火) 00:11:32

>>639
user@localhost:~$ perl -Mbigint -e 'print 64**9, "\n"'
18014398509481984
user@localhost:~$ perl -v | grep v5
This is perl, v5.8.8 built for i486-linux-gnu-thread-multi

**nobodyさん** · 2006/07/18(火) 00:24:40

教えてください
このような表記は許されるのでしょうか？

１）$TEST[100]に代入されている文字列を表示させたい
２）$TEST[***]<-ここに$A[1]を入れたい

$A[1]=100;
$TEST[100]='TEST';
print $TEST[ $A[1] ];

やはり･･･
$A[1]=100;
$TEST[100]='TEST';
$B=$A[1];
print $TEST[$B];

なのかなあ

**nobodyさん** · 2006/07/18(火) 00:40:05

>>643
>print $TEST[ $A[1] ];
全然これで構わない。何もおかしくない。

**643** · 2006/07/18(火) 00:46:23

644さん、ありがとうございます。

ソース記述が途中で間違っていたのかも知れなかったです。
この表記がまちがっていると思い込んで2時間位悩んでいましたm(_ _)m

**nobodyさん** · 2006/07/18(火) 00:52:26

それより大文字の変数名やめないかｗ

**nobodyさん** · 2006/07/18(火) 01:00:06

BASICを思い出す

**nobodyさん** · 2006/07/18(火) 02:34:41

>639
5.8.4 だけど、use bigint で 18014398509481984 って結果でたよ

>643
大文字は定数で使われるのがほとんどなので、変数は小文字でどぞ。

**nobodyさん** · 2006/07/18(火) 03:41:25

すいませんアドバイスおねがいします

１．(2/3)*(2/3) の解を 4/9 にするにはどうすればいいですか？
２．次に１．の解を 1/2.25 (分子を１）にするにはどうすればよいですか？

**nobodyさん** · 2006/07/18(火) 03:50:18

CGIでクッキーかきました。保存されてるのを確認したのですが、
$ENV{'HTTP_COOKIE'}で何も取得できません！
作成直後ではなくて、ブラウザでリクエストを再送しても取得できません。
どんな原因が考えられましょうか！

**nobodyさん** · 2006/07/18(火) 04:54:13

>>649
>>628と同様に、bigrat or Math::BigRatでどうよ。
2はライブラリ任せにしないで、算数的に出力時にdenominatorをnumeratorで割れば？

**nobodyさん** · 2006/07/18(火) 05:24:58

>>649
use bigrat;
$a = (2/3)*(7/57);
print $a,"\n";
printf( "1/%f",1/$a);

%fのところはうまくいじらないと思い通りの出力にならないかも？
つーか7/8を1/xと表示したいときxは何になってほしいのか・・・？

**nobodyさん** · 2006/07/18(火) 05:35:52

>>650
$ENV{'HTTP_COOKIE'}で何も取得できなくて、
いったい何で”保存されてるのを確認した”のか、教えてください。
パッと思いつく原因としてはクッキーを出してるスクリプト
と受け取ってるスクリプトがあるディレクトリが別になってるとか？
どうやってクッキーを発行して、どうやって受け取ろうとしてるのか、
もっと詳細に報告してください。

**650** · 2006/07/18(火) 09:21:50

どうもです！確認はクッキーフォルダにクッキーファイルができたことを確認しました。
スクリプトはいっしょで、読み書きするスクリプトをリロードして確認したり、
読みと書きでパラメータを分けて行き来したりしています。
Set-Cookie: session=test;expires=;\n
と書いてます。index.cgi?a=1で書いてindex.cgi?a=2で読んでいます。

宜しくお願いします！

**nobodyさん** · 2006/07/18(火) 09:28:15

アドバイスよろしくお願いします。

現在作ってるスクリプトで設定内容などは
$config = {
'test' => "テスト"
}
sub get{
my $pkg = shift;
my $hash = $config;
bless $config, $pkg;
}
my($cfg) = config->get();
print $cfg->{test};
この用にして設定内容を取得してます。
そして今回、$config の中に配列へのリファレンスを含めるようになり

@urls = (ずらずら～っと);

と URL が書かれた配列へのリファレンスを

$config = {
'urls' => \@urls,
}

として $config へ設定しました。
この際に $cfg で値を取得する書き方としては

@{$cfg->{'urls'}}

で正解なのでしょうか？
もっときれいな書き方や「こっちのほうが解釈としては正解じゃね？」みたいな
書き方があれば教えていただければ幸いです。

**nobodyさん** · 2006/07/18(火) 10:10:41

>>655
おｋ

**nobodyさん** · 2006/07/18(火) 10:19:23

なんで設定をオブジェクトにしてるのか不明だけど、書き方はおk

**nobodyさん** · 2006/07/18(火) 10:26:39

設定したつもりの値が得られるという意味では正しいかもしれないが、
perlのoopの使い方がどうみてもむちゃくちゃなので勉強しなおしてください。
変な癖をつけると後で苦労するよ。

**nobodyさん** · 2006/07/18(火) 10:32:26

>>655
OOPをやりたいなら
package Config;
sub get{
my $pkg = shift;
my $hash = shift;
bless $hash, $pkg;
}
.....(いろんなメソッド）
package main;
my $cfg = Config->get({'urls'=>\@urls})

そのままだと、sub getが意味ない

>>658
perl oopのいい入門て見たことない希ガス・・・

**nobodyさん** · 2006/07/18(火) 10:35:44

レスありがとです
この書きかたでいこうかと思います

>657
以前このスレだかどこかで KENT の様に設定用変数を数多く
用意するのは綺麗じゃないみたいなことがあったときに、
私が
config.pl
%config=('test'=>2);
sub getconfig{return %config;}

my %config=&getconfig();

ってやってるって書いたら効率悪いって言われたもんで、
ちょっと書き直してたらこうなった次第です。

**nobodyさん** · 2006/07/18(火) 10:35:45

その get() が、実は new() な所がちょっと…

**nobodyさん** · 2006/07/18(火) 10:43:45

ローカルにハッシュをコピってから参照するほうが、その都度
関数コールするよりもオーバーヘッドは少ないかなって思ったので。

数回から数十回のコールでオーバーヘッドを気にするのは無駄
とは分かってはいたんですがやっぱりスマートな書きかたではなかったですか(-_-;

**nobodyさん** · 2006/07/18(火) 10:46:41

やっぱ慣例に沿った(newしてからget)方が、自分以外が読む人のためになりますか？

**nobodyさん** · 2006/07/18(火) 10:52:28

>>650
print "content-type: text/html\n";
print "Set-Cookie: session=test\n";
print "\n";
print $ENV{HTTP_COOKIE};
とりあえずうちの環境だと、これを２回読み込むと画面にsession=test
と出るので、それでだめだったら環境がおかしい

**nobodyさん** · 2006/07/18(火) 12:38:15

できました！ありがとうございます。
Set-cookie:～\nContent-type:～\n\nってなってたのをクッキーとContent-typeの順番を入れ替えただけで
行けたっぽいです。書き込み時がおかしかったようです。
ネットで順番はどっちでもいいようなことを見たし、実際クッキーらしきものが書かれていたのでこれでいいのかと
思ってました。ざっと試しただけですが、これから詳しいことを検証したいと思います。
あと、バグ入りクッキーは本当にクライアント環境によって挙動が違いました。(会社では場合によって読めた)

**nobodyさん** · 2006/07/18(火) 13:25:28

Content-type:～\n\nSet-cookie:～\n
となっていたに1票

**nobodyさん** · 2006/07/18(火) 14:04:40

>>663
ていうか、ただのハッシュとして使うだけなら
なんでオブジェクトにするのか全く不明。
それなら単純にハッシュを宣言して、読み込むだけの方が良い。

**nobodyさん** · 2006/07/18(火) 14:22:23

>>665
順番はどうでもいいけど検証するなら空行が何を表すのかってことを検証して下さい。

**nobodyさん** · 2006/07/18(火) 14:43:02

空行位置は665に書いたとおりなんで、間違ってないと思うんですよ。
それでも、やはり順序不問ってことは、どっかでケアレスミスしたかもしれません。今夜再検証してみます。

**nobodyさん** · 2006/07/18(火) 15:15:34

>667
外部ファイルにhashで設定を書いてrequireすると、
同じ内容の変数が２つ存在することになって無駄があるので
オブジェクトにした次第です。

**nobodyさん** · 2006/07/18(火) 15:24:45

>>670
その考え方が間違ってる。そんなことでオブジェクトにしちゃいけない。
だったらまだ、>>660 にある最初の書き方の方が、考えがマトモ。

同じ内容の変数が２つになるのが嫌なら、
外部ファイルの変数を別のハッシュに代入せずに、そのまま使えば良いだけの事。

**nobodyさん** · 2006/07/18(火) 15:28:41

ifで（unlessを使わずに）「特定の文字列にマッチしなければ」という条件式を
書くにはどうしたら良いんでしょうか？
単純に
if($data !=~ /MOJI/)
という書き方では反映されないみたいなんですが。

**nobodyさん** · 2006/07/18(火) 15:31:12

**nobodyさん** · 2006/07/18(火) 15:31:47

比較の質問なんですが
「○○かつ△△」を文字列で扱う方法はやはりないのでしょうか？

$type1 = 'BAKA';
$type2 = 'KASU';
if ( $type1 eq 'BAKA' and $type2 eq 'KASU')

みたいにするには数値をそれぞれ代入してからやるべきなのでしょうか？

**nobodyさん** · 2006/07/18(火) 15:34:06

>>670
リファレンスを使えば二重にならない。

**nobodyさん** · 2006/07/18(火) 15:38:45

質問の意味が分からない

**６７２** · 2006/07/18(火) 15:39:57

>>673
if($data =!~ /MOJI/)
と書いてみましたがエラーが出て動かないです。
どこが間違っているんでしょうか？

>>674
単純に
if ( ( $type1 eq 'BAKA' ) && ( $type2 eq 'KASU' ) )
で良いじゃないでしょうか。

**nobodyさん** · 2006/07/18(火) 15:42:18

if ($data !~ /MOJI/)

**６７２** · 2006/07/18(火) 15:46:52

>>678
できました。
=とか!とかはあくまでチルダに対して付いてたんですね。
ありがとうございました。

**nobodyさん** · 2006/07/18(火) 15:47:11

>>676
数値比較では && や and を使えますが
文字列でも同じように && や and を使っていいのかどうかということです

**nobodyさん** · 2006/07/18(火) 15:47:29

Perlの本て、読まないのかな。
最近の質問見てるとネットだけで独学の人が多いような気がする。

**nobodyさん** · 2006/07/18(火) 15:48:55

>>680
and や && は比較の内容と関係ない。
だから当然使って良い。

**nobodyさん** · 2006/07/18(火) 15:49:31

>>677
どうもです

>>682
ありがとうございます

**nobodyさん** · 2006/07/18(火) 16:01:37

perldocの存在を知らない気がする

**nobodyさん** · 2006/07/18(火) 17:42:03

>675
その都度デリファレンスするのって、見た目が余り綺麗じゃないからその案は
以前考えてるときに却下しました。

**nobodyさん** · 2006/07/18(火) 17:51:43

>>685
誰がデリファレンスしろと…。

>>675 が言ってるのは、
外部ファイルで %config を定義して、return ¥%config; でリファレンスを返せば
同じハッシュが２つにならないということでしょう。
使う時は $cfg->{'hoge'} みたいなので良いんだし。デリファレンス要らない。

**nobodyさん** · 2006/07/18(火) 18:24:24

OOP考えるならさあ、、
「とりあえず外部PL(PM)ファイルに設定をずらずらして require」じゃなくて、
普通の(TXT)ファイルとかにCSVとかTSVみたいな感じで設定を書いて、
my $cfg1 = Config->new('config1.txt');
my $cfg2 = Config->new('config2.txt');
みたいな感じで設定取ってくるもんじゃないの？
>>655みたいに値を得たいときは my @url = $cfg1->get('url'); とかしてさ。
そうじゃないならOOPの意味もないな、って思うんだけどｗ