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

数値比較を使用して文字列の等価性をチェックしています。これは、引数を数値に変換してから比較することです。

この場合、 'start'は数字ではないため、0に変換されます。 $ARGV[0]の値（ここでは単語になると予想されます）も変換され、0となり、最終条件はif (0 == 0)になります。これは常にtrueです。

あなたが代わりにeq文字列単位の比較演算子を使用したい：

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

は異なる比較演算子の詳細については、docsを参照してください。

スクリプトの先頭にuse warnings;を含めて（コメント内で指摘されているように）、perlはこれを最初から警告することになります。この種のエラーを早期に捕捉するのに役立つので、常にuse warnings;とuse strict;を含むことが一般的にベストプラクティスです。

Answer 2

あなたのプログラムは、Perlコードに対してthe standard boilerplateで始まるのを怠っています。