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

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

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

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

2. Win32::GUI的控件问题,代码如下:
$_win_main->AddTextfield (
-name => "txt2",
-number => 1, -size => [60,20],
-prompt => "NUMBER:",
-text => $yct_value,
-pos => [185,65],
);
$_win_main->AddButton (
-name => "_chg_term_num",
-text => "change",
-align => "center", -valign => "center",
-size => [100,50], -pos => [(480*0.25),(320-320*0.35)],
);
主要是想通过Button的ONCLICK事件来提取Textfield里面的数据,请问如何提取?我翻遍了整个WIN32::GUI的文档库,都没有
找到引用的办法.想过很多,例如: $txt2 这样,又或者像是这样$_win_main->txt2,来引用都是失败的...
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---