為了某個原因，要對兩個變數做 XOR 的檢查，除了這個之外不知道有沒有更好的寫法：
return 0 if (!defined($lvalue) and !defined($rvalue)); return 1 if (!defined($lvalue) or !defined($rvalue)); return ($lvalue ne $rvalue); }
檢查：
結果：
註，空行是 false，也可以說是 0。
2007/12/10：一直忘了補上 gugod 的版本：
Tags: perl
我第一個想到的是直接 return (shift ^ shift) ? 1 : 0; 不過最後一個 case 會爆 :p
另外一個做法是 return "$lvalue" ne "$rvalue" 這樣應該行吧? :p
這樣應該會有 warning… 如果是 undef 的 value …
sub _IsXOR { return (shift||0) ^ (shift||0); }
您的電子郵件位址並不會被公開。 必要欄位標記為 *
名稱 *
電子郵件 *
個人網站
CAPTCHA Code *
Notify me of follow-up comments by email.
Notify me of new posts by email.
我第一個想到的是直接 return (shift ^ shift) ? 1 : 0;
不過最後一個 case 會爆 :p
另外一個做法是 return "$lvalue" ne "$rvalue"
這樣應該行吧? :p
這樣應該會有 warning… 如果是 undef 的 value …
sub _IsXOR {
return (shift||0) ^ (shift||0);
}