>>47
関連して聞きたいんですが、44じゃないです。
---main.cgi
use Mode;
use CGI;
my $cgi = CGI->new();
my %params = $cgi->Vars;
($params{'mode'} || 'foo')->new( \%params )->execute();
---Mode.pm
package Mode;
sub new{
my $class = shift;
my $params = shift || {};
bless $params => $class;
}
package foo;
use base Mode;
sub execute{# fooの処理}
package bar;
use base Mode;
sub execute{# barの処理}
package baz;
use base Mode;
sub execute{# bazの処理}
-----------------------------------
こんな感じで処理振り分けしてますが、なんか問題あるしょうか。
セキュリティ関係ちょっと疎くて不安なのですが。