將Getopt :: Std傳遞給零

Question

我在Perl腳本中使用了Getopt::Std，並且想要傳遞零值作爲值。我正在檢查使用unless()正確設置了這些值。目前unless()拒絕該值爲未設置。

有沒有辦法讓unless()接受零作爲有效值（任何非負整數是有效的）。

這可能很簡單，但我幾天前從來沒有碰過Perl！

豐富

Answer 1

您需要使用unless defined <SOMETHING>代替unless <SOMETHING>，因爲零是Perl假的。

Answer 2

的Perl 5具有several false values：0，"0"，""，undef，()。

重要的是要注意，有些東西看起來應該是假的，但不是。例如0.0是錯誤的，因爲它的編號相當於0，但"0.0"不是（只有false的字符串是空字符串（""）和"0"）。

它也有定義的概念。一個具有賦值給它的值（非undef）的變量據說被定義，並且在使用defined函數進行測試時將返回true。

既然你想要一個參數是一個非負整數，它可能是更好的測試是：

unless (defined $value and $value =~ /^[0-9]+$/) { 
    #blah 
}