Perl コーディング初心者質問コーナー Part28

>>10

前述のソースで、
$sth->bind_columns( \( @hash{ @{$sth->{NAME_lc} } } ))
を
$sth->bind_columns( \( @$hash_ref{ @{$sth->{NAME_lc} } } ))
に変えたら、できました。

勉強になりました。多謝。

>>前スレ999さん、ありがとうございます。
やりたい事は、あるクラスに2種類の振る舞いを与えたいのですが、
その振る舞いの違いが、組み込み関数のいずれを使うかといった違いのため
その関数のリファレンスを取って処理を切り替えようとしたところ、
"Not a CODE reference at ..."と言われてしまいました。

ソースで言うと以下のようなことをやろうとしております。
{ package Link;
　　sub Switch {
　　　　・・・略・・・
　　　　if ($flag) { $self->{create_func} = \$link; }
　　　　else { $self->{create_func} = \$symlink; }
　　}
　　sub Create {
　　　　・・・処理・・・
　　　　&{$self->{create_func}}($src, $dst);
　　　　・・・処理・・・
　　}
}

なので、Filter::Simpleはちょっと違うかもです。
うーん。sub {} とか、eval で逃げちゃうのが楽かなぁ。

$hoge{$hoge}
ってどういう意味ですか？

キー$hogeで取り出せる、ハッシュ%hogeに含まれる要素。

訂正。キー$hogeと対を成す、ハッシュ%hogeに含まれるバリュー。

DBD-Oracleをインストールしたいのですができません。
Error: PPD for 'DBD-Oracle.ppd' could not be found.
ってでてしまいます。パッケージダウンロートしてきてReadmeに書いてあるとおりに
展開したディレクトリで
ppm install DBD-Oracle.ppd　とかやってみたんですけどこちらもだめでした。
ActivePerl 5.8.0をつかっています。どなたか知恵を貸してください