[PerlChina] Re: 新手问题...关于IF的.

第一个问题：

chomp 完了，返回空串，即 $new_id = '' ; 

 

if ( $new_id eq '' )  {  die "sfsfa" }

 

2009/10/15 bio_gzd <tmfc865@gmail.com>

各位高人,我有几个问题想要问问.
1. 有如下程序段.
my $new_tid = undef;
chomp ($new_tid = <STDIN>);

if (defined($new_tid)) {
 print "sucess";
 } else { print "nothing"; }

$new_tid = <STDIN>; 这里,我是输入一个空行(只有一个<CR>),但已经被chop掉了,也就是说这里对人来说已经是undef
无意义了,那为什么条件判断那里会返回为真呢?应该用什么方法去写这个条件判断?

 

.--
           Yours Sincerely
                   Zeng Hong

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---