Question

这是一个改变红色或绿色的颜色按钮。这里有一个按颜色变化点击按钮的功能。但是2次点击，然后不是更改颜色。它保持与绿色相同的颜色，它不能进一步变为红色按钮。我正在尝试＆＃34; while，do，或＆＃34;。但我不明白。请帮帮我。

use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
my $setcolor;
my $newcolor;
my $changecolor;

这是一个img / url按钮：

print "<td><a href=\"../max.cgi?changecolor=$newcolor\" target=\"_parent\"><img src=\"http://../images/ts${setcolor}.png\"/></a></td>\n";

这是一个功能：

if ($cgi->param('changecolor')) {
    $setcolor=$cgi->param('changecolor');
    if ($setcolor=='red') {
        $newcolor='gre';
    }
}
else {
    $setcolor='gre';
    $newcolor='red';
}

另一个：

if ($cgi->param('changecolor')) {
    $setcolor=$cgi->param('changecolor');
    if ($setcolor=='red') {
        $newcolor='gre';
        while($setcolor=='gre') {
            $newcolor='red';
        }
    }
}
else {
    $setcolor='gre';
    $newcolor='red';
}

Answer 1

我猜你的功能应该是这样的：

if ($cgi->param('changecolor'))
{
    $setcolor=$cgi->param('changecolor');
    if ($setcolor eq 'red')
    {
        $newcolor='gre';
    }
    elsif ($setcolor eq 'gre')
    {
        $newcolor='red';
    }
}

我尝试使用Changecolor，或者尝试使用Changecolor。我不明白我做错了什么

1 个答案: