如果Perl不工作？

Question

这里是我的代码：

#!/usr/bin/env perl 

sub start 
{ 
    ... 
} 

sub stop 
{ 
    ... 
} 

if (defined $ARGV[0]) 
{ 
    if ($ARGV[0]=='start') {start} 
    elsif ($ARGV[0]=='stop') {stop} 
    else {die "Unrecognized command: $ARGV[0]"} 
}

无论我做什么，虽然，它始终执行&start。难道我做错了什么？

我使用Linux Mint 10和Perl 5.10.1。

Answer 1

您正在使用数字比较来检查字符串相等性，在比较它们之前先将参数转换为数字。

在这种情况下，'开始'不是一个数字，所以它被转换为0; $ARGV[0]（这里预期为单词）中的值也被转换，导致另一个0和最终条件if (0 == 0)，这始终为真。

你想使用eq字符串比较中的操盘手：

if ($ARGV[0] eq 'start') { start } 

对不同的运营商相比，更多信息，请参见docs。

请注意（如注释中指出的那样），包括脚本顶部的use warnings;将导致perl从一开始就警告您。总是包括use warnings;和use strict;通常是最佳实践，因为它有助于及早发现这些错误。

Answer 2

错误在于您的程序忽略了以Perl代码开头的the standard boilerplate。