这可以使用Perl:
my @array = ($class1,$class2,$class3);
foreach my $c (@array)
{
my $temp = $c->new();
$temp->run($var1,$var2);
}
这背后的想法是数组将始终包含不同的类名。然后我想创建该类的对象并从中运行一个方法。每个类有点类似,但在run方法中包含自己的逻辑?
如果这是不可能的,我可以采用不同的方式吗? 这是不好的编程?
答案 0 :(得分:5)
您需要确保始终可以访问run-Method:
my @array = ($class1,$class2,$class3);
foreach my $class (@array) {
my $temp = $class->new();
if ($temp->can('run') {
$temp->run($var1,$var2);
} else {
...
}
}
答案 1 :(得分:5)
perl中的一个类是bless
语句。你用一个类的名字祝福一个引用,并且wham!,就是那个类。没什么特别的。
当然,你可能最终得到一个没有方法的类,这可能有点问题。但是,我为子类共享公共父类的子类执行此操作,但类的类型更改了类的行为:
Package Main_class;
use Carp;
sub new {
my $class = shift; #We'll ignore this one
my $subclass = shift; #This is my actual class
my $self = {};
my $class .= "::$subclass";
bless $self, $class; #Now, it's my class!
if ( not $self->isa($class) ) {
croak qw(Subclass "$subclass" is an invalid subclass);
}
return $self;
}
在我的计划中,我会这样做:
my $object = Main_class->new($subclass);
而且,如果我不希望我的程序死...
my $object;
eval {
$object = Main_class->new($subclass);
}
if ( $@ ) {
Here be dragons.... #What do you do if that object creation failed...
}
这是我执行此操作的程序的an example。
这里我正在阅读一个问题及其类型的文件。我读了宏名称,以及问题的类型。然后我使用我的父类来创建对象,但我用正确的子类祝福它。重要的是使用所有类可用的isa
通用方法。我测试我创建的对象是否实际上是我的类的子类。
答案 2 :(得分:0)
以前的答案涵盖了您正在寻找的内容,但我可能会补充说,如果您在执行此类操作时不需要显式使用()/ require()每个类的包,那么Module :: Runtime会很有用。事情:
use Module::Runtime;
for my $cls (@classes) {
my $obj = use_module($cls)->new;
...
}
答案 3 :(得分:-1)
use strict;
use warnings;
use class1;
use class2;
use class3;
my @array = qw(class1 class2 class3);
foreach my $c (@array)
{
my ($var1, $var2) = (12,34);
my $temp = eval { $c->new };
$temp->run($var1,$var2);
}
未经测试,但这是你应该调查的事情。你确实需要“使用”你正在使用的任何课程,并且总是使用严格来节省你未来几个小时的问题