字符串比较总是正确的[重复]

Question

这是我目前拥有的代码。在 Perl v5.8.9 上运行。

#!/usr/bin/perl
# Prompts the user for their desired configuration
print "\n";
print "Please type BB for breadboard, or ACU for the Audio Control Unit.\n";
print "Do you want a BB or ACU version of alarm programmer: ";
$a = <STDIN>;
if($a == "ACU"){
    print("Initiating alarm programmer for ACU...\n");
}else{
    print("Initiating alarm programmer for breadboard...\n");
}

这是一些示例输出：

C:\Users\U157280\Documents\Alarm Programmer>PerlAutonomy.pl

Please type BB for breadboard, or ACU for the Audio Control Unit.
Do you want a BB or ACU version of alarm programmer: ACU

Initiating alarm programmer for ACU...

还有一个：

C:\Users\U157280\Documents\Alarm Programmer>PerlAutonomy.pl

Please type BB for breadboard, or ACU for the Audio Control Unit.
Do you want a BB or ACU version of alarm programmer: BB

Initiating alarm programmer for ACU...

如您所见，即使语句看起来是正确的，它也会为两者选择 ACU。

我做错了什么？

Answer 1

下面的代码 sn-p 是一个 OP 的修改代码，修正最少。

请在您的脚本中包含use strict; 和use warnings，它会警告您代码的潜在问题——从长远来看，它将为您省去很多代码更正的麻烦。

你应该使用字符串比较运算符eq而不是数字比较运算符==

#!/usr/bin/perl
#

use strict;
use warnings;
use feature 'say';

# Prompts the user for their desired configuration
say  '
   Available options:

       BB  -- for breadboard
       ACU -- for the Audio Control Unit

';

print '   Please make a choice: ';

my $choice = <>;

chomp($choice);

if( $choice eq 'ACU') {
        say "\n  Initiating alarm programmer for ACU...";
} elsif( $choice eq 'BB' ) {
        say "\n  Initiating alarm programmer for breadboard...";
} else {
        say "\n  Wrong choice...";
}

exit 0;

要运行外部命令或脚本，您应该使用system

---

参考：

---

• perlop
• say
• chomp
• system

Answer 2

试试这个：

#!/usr/bin/perl
# Prompts the user for their desired configuration
print "\n";
print "Please type BB for breadboard, or ACU for the Audio Control Unit.\n";
print "Do you want a BB or ACU version of alarm programmer: ";
$a = <STDIN>;
chomp($a);
if($a eq "ACU"){
    print("Initiating alarm programmer for ACU...\n");
}else{
    print("Initiating alarm programmer for breadboard...\n");
}

您有 2 个问题，首先，= 是分配而不是比较。其次，您在输入的末尾有一个换行符，您没有考虑到这一点。 chomp() 去掉换行符，eq 运算符执行字符串比较。