关于defined函数

minirain

iakgnehc 发表于 2009-05-11 10:13
目的：
接受键盘的任意输入值，并输出；当没有输入时，利用defined()做检测，输出提示“please input :"； ...

试过了下面代码也可以实现楼主目的：

1. #!/usr/bin/perl
   
2. print "Please input: ";
   
3. $result=<STDIN>;
   
4. chomp ($result);
   
5. if( $result) {
   
6. print "The input was $result\n";
   
7. }else {
   
8. print "please input \n";
   
9. }
   

复制代码