perl 的真假值

基本的判别如下：0，‘0’，undef，以及‘ ’（空字符串）都是假值。其他皆为真