这个使用Switch.pm的代码是否安全？

时间：2012-11-22 05:42:28

标签： perl if-statement switch-statement

在我们公司，我们使用这个代码（最后给出）大约10年，它运行良好。

前几天我们遇到了一些问题，我们不得不重新编写完整的包，我们决定用Damian的Switch模块替换这个代码（为了提高代码的可读性）。

一切都对我们很好。

后来我在Perlmonks发现达米安把这个模块放在

之下
  

你不应该在生产中使用Damian模块，因为它们的目的   是探索和制作未来核心语言特征的原型。

但它对我们来说运作正常，因为我们没有达到这个模块的限制（我猜）。

现在我请大家看一下这两个实现（嵌套if else vs switch）并让我知道在新的实现中使用Switch是否正常或者我们是否为我们创造了一些未来的问题？在下面给出的代码中使用Switch是否正常或是否有任何隐藏的错误/问题？

我已经在CPAN和Perlmonks上阅读了这个模块的错误和评论，我想我们的代码远远没有碰到那些错误（我想是这样）。

我们正在使用Perl 5.8.5。

PS：我知道Switch的替代品，我们在Perl 5.10中有given/when，我们可以使用dispatch table和其他指定here的解决方案，但是现在我们只想比较使用Switch的新实现。

使用嵌套if else 

if ($command =~ /^enter$/) {
    $self->show_main_frames();
}       
elsif ($command =~ /^XYZ_MENU/i) {
    $self->show_main_menu($manual, $dbot);
}
elsif ($command =~ /^DBOT/i) {
    $dbot->process();
}
# XML is used for the reminders-history: Request 2666
elsif ($command =~ /^XML_DBOT/i) {
    $dbot->process();
}
elsif ($command =~ /^UGS/i) {
    $ugsui->process();
}
elsif ($command eq "kill") {
    my $login = $self->{COMMON_HASH}{login} || "";
    my $su_login = $self->{CONF}->get("start", "SU_LOGIN");
    if ($login eq $su_login) {      
            # usually only certain user with certain permission will be
            # able to do this. 
            $self->do_error("Daemon was killed by ".$login);
            $self->db_connection->disconnect();
            $self->{LOG}->write("User $login killed the daemon", 0);
            exit; # this 'exit' actually kill the daemon
    }
    else {
            $self->do_error("User $login tried to kill the daemon. ".
            "This incident will be reported");
            $self->{LOG}->write("User $login tried to kill the daemon", 2);
    }
}
elsif ($command eq "logout") {
    # check if we should delete the password cookie
    my $forget_me = $self->{CGI}->param("forget_me") || 0;
    if ($forget_me) {
            $self->{DB_PASSWORD_COOKIE}->delete_cookie();
    }

    $ugsui->do_logout();
    # Cliff edit remove id from logged_in
    $session->remove_session($session->login());
    # delete the session of the user
    delete $self->{SESSIONS}{$session->id()};
    if ($self->{CACHE_TO_FILE}) {
            my $session_data_path = 
                XYZ_DIR
            ."/code/cache/session_data"
        .$session->id();
            unlink($session_data_path);
    }
}
# if we just login we should create all the main frames        
elsif ($command eq "login") {
    # if extra_param holds "command*XXX" the XXX will be placed instead of
    # the command. extra_param holds pairs that are astrics-separated
    my $extra_param = $cgi->param("extra_param");
    $extra_param = "" if (!defined($extra_param));
    $extra_param =~ /command\*([^\*]+)/i;
    my $other_command = defined($1) ? $1 : "";
    if ($other_command =~ /^dbot/i) { # meanwhile - works only on dbot 
                                  # commands
        $command = $other_command;
            # now we will get the other parameters from the extra_param 
            # (actually including the command that is still in the 
            # $extra_param)         
            while ($extra_param =~ /^\*?([^\*]+)\*([^\*]+)(.*)/) {
            $extra_param = $3;
            my $name = $1;
            my $value = $2;     
            $cgi->param(-name => $name,
                 -value => $value);
            }#end while
    }#end if
    else{
    $self->show_main_frames();
    }
}#end elsif
else {
    $self->show_main_frames();
}#end outer else

使用开关 

switch ($command) 
{
    case /^enter$/      { $self->show_main_frames() }
    case /^XYZ_MENU/i   { $self->show_main_menu($manual, $dbot) }
    case /^DBOT/i       { $dbot->process() }
        case /^XML_DBOT/i   { $dbot->process() }
        case /^UGS/i        { $ugsui->process() }
        case "kill"     {
                my $login = $self->{COMMON_HASH}{login} || "";
                    my $su_login = $self->{CONF}->get("start", "SU_LOGIN");
                if ($login eq $su_login) {      
                        # usually only certain user with certain permission will be
                        # able to do this. 
                        $self->do_error("Daemon was killed by ".$login);
                        $self->db_connection->disconnect();
                        $self->{LOG}->write("User $login killed the daemon", 0);
                        exit; # this 'exit' actually kill the daemon
                    }
                else    {
                        $self->do_error("User $login tried to kill the daemon. ".
                            "This incident will be reported");
                        $self->{LOG}->write("User $login tried to kill the daemon", 2);
                    }
                    }
        case "logout"       {
                    # check if we should delete the password cookie
                    my $forget_me = $self->{CGI}->param("forget_me") || 0;
                    if ($forget_me) {
                            $self->{DB_PASSWORD_COOKIE}->delete_cookie();
                    }

                $ugsui->do_logout();
                # Cliff edit remove id from logged_in
                $session->remove_session($session->login());
                # delete the session of the user
                delete $self->{SESSIONS}{$session->id()};
                    if ($self->{CACHE_TO_FILE}) {
                            my $session_data_path = 
                                XYZ_DIR
                        ."/code/cache/session_data"
                        .$session->id();
                    unlink($session_data_path);
                    }
                    }
        case "login"        {
                # if extra_param holds "command*XXX" the XXX will be placed instead of
                # the command. extra_param holds pairs that are astrics-separated
                my $extra_param = $cgi->param("extra_param");
                $extra_param = "" if (!defined($extra_param));
                $extra_param =~ /command\*([^\*]+)/i;
                my $other_command = defined($1) ? $1 : "";
                if ($other_command =~ /^dbot/i) 
                    { # meanwhile - works only on dbot 
                                       # commands
                    $command = $other_command;
                        # now we will get the other parameters from the extra_param 
                        # (actually including the command that is still in the 
                        # $extra_param)         
                        while ($extra_param =~ /^\*?([^\*]+)\*([^\*]+)(.*)/) {
                        $extra_param = $3;
                        my $name = $1;
                        my $value = $2;     
                        $cgi->param(-name => $name,
                             -value => $value);
                            }#end while
                    }#end if
                else {$self->show_main_frames();}
                }
    else            {$self->show_main_frames();}
} # end switch

3 个答案:

答案 0 :(得分：8)

Switch自己解析源代码。这可能导致难以诊断直接使用它的代码中的错误。 Switch创建的问题并不是间歇性的，因此如果您的代码有效，您无需担心。

但实际上，它并没有增加多少。

使用Switch：

switch ($command) {
    case /^enter$/      { $self->show_main_frames() }
    case /^XYZ_MENU/i   { $self->show_main_menu($manual, $dbot) }
    case /^DBOT/i       { $dbot->process() }
    case /^XML_DBOT/i   { $dbot->process() }
    case /^UGS/i        { $ugsui->process() }
    case "kill"         {
        my $login = $self->{COMMON_HASH}{login} || "";

没有开关：

for ($command) {
    if    (/^enter$/)      { $self->show_main_frames() }
    elsif (/^XYZ_MENU/i)   { $self->show_main_menu($manual, $dbot) }
    elsif (/^DBOT/i)       { $dbot->process() }
    elsif (/^XML_DBOT/i)   { $dbot->process() }
    elsif (/^UGS/i)        { $ugsui->process() }
    elsif ($_ eq "kill")   {
        my $login = $self->{COMMON_HASH}{login} || "";

（elsif (/^kill\z/)也可以。）

答案 1 :(得分：7)

实际上切换模块不会为您提供任何“杀手功能”;使用 elsif 语句也可以做到这一点，该语句安全，稳定且没有 Switch 的缺点。这是我在项目中遇到的 Switch 的问题（我不再使用它了）：

开关是Perrog过滤器。该技术具有以下限制：

  • 您的源代码实际上是在实时重写并替换为 后续的 elsif 陈述。
  • 某些Perl错误报告会引用错误的行;其中一些显示您在源代码中没有的代码（自动生成的代码）。

不是过滤器限制，而是模块本身的限制：

  • 如果您调用的文件（.pl或.pm）使用Swtich 超过1Mbyte大小，则可能导致“神秘错误”（如doc中所述）。我可以确认这些错误不会导致切换模块，并且完全没有意义，因此您可以在编码/文档编制数周后进行硬调试。

我建议使用自Perl 5.10以来可用的 elsif 或given..when语句。因此，如果您使用perl 5.8.x - 请使用elsif。

另外，您可以阅读Switch文档的“限制”段落。

答案 2 :(得分：4)

因为Switch确实拥有源代码解析，所以在某些情况下它根本不起作用。例如，不可能将它与mod_perl一起使用。

但是，如果您使用Perl 5.10或更高版本，则可以使用相同的功能进行更好的替换：given/when 

use v5.10;

given ($var) {
when (/^abc/) { $abc = 1 }
when (/^def/) { $def = 1 }
when (/^xyz/) { $xyz = 1 }
default       { $nothing = 1 }
}
Perl核心支持

given（并且无处不在，包括mod_perl） - 您只需use v5.10;即可立即使用。

相关问题
最新问题