Perl: インスタンスの動的生成
オブジェクトのインスタンスを動的に生成したい！一瞬悩んだ挙句これ。
my @objs;
for (qw/Animals::Dog Animals::Cat Animals::Cow Animals::Pig/) {
eval "use $_;";
push(@objs, $_->new());
}
ワーイ。
« Taskbar Notification Area | Main | byebye bA »
オブジェクトのインスタンスを動的に生成したい！一瞬悩んだ挙句これ。
my @objs;
for (qw/Animals::Dog Animals::Cat Animals::Cow Animals::Pig/) {
eval "use $_;";
push(@objs, $_->new());
}
ワーイ。
Comments
お！
コードハイライト聞いてる。
これ、手が書いた？それともプラグイン？
Posted by: kaz | September 11, 2003 10:33 PM