如何判断perl标准输入的结果.docVIP

案例描述 在《Intermediate Perl》课本中有这样一道练习题： -------------------------------------------------------------------- # 写个程序，提示用户输入一个正则表达式。采用键盘输入，不要从命令行中输入。 # 在指定路径下（如‘/etc’或‘c:\\windows’）查找文件名匹配该表达式的所有文件。 # 重复上述活动,直到输入一个空字符串而非正则表达式。注意，用户不要键入正斜杆， # 在perl中正斜杠通常用来界定模式匹配，输入的正则表达式通过回车换行来界定。 # 保证输入错误的正则表达式（如圆括号不匹配）时，程序不中断。 ------------------------------------------------------------------- 在判断键盘输入是否为空字符串这一任务上，我想到了以下两种方式。但不管哪种方式，先去 掉键盘输入的回车换行符，然后： 1）通过模式匹配/^$/判断，如if( $regex =~ /^$/ )。 2）通过判断输入字符串的长度来判断，如if( length $regex)。 查阅了标准答案，虽然它采用第二种方式，但比我的做法增加了“defined $regex ”，如： if( defined $regex length $regex ) 。 那么，我们想问，在上面的判断语句中，“defined $regex ”是否多余？它究竟有何作用？ 案例分析 上面的问题困扰了我一段时间，也许是爱钻牛角尖的原因，我决定一定要把它搞清楚。从哪里 入手呢？ 首先，我们得了解标量$regex是如何被定义的。根据题目要求从键盘输入正则表达式，因此标量$regex来自标准输入STDIN的返回值，如： my $regex = STDIN; 其次，须了解STDIN该操作返回值的不同情况。 再次，根据题目要求“输入一个空字符串后停止匹配”，结合2）查看if( length $regex)该判断语句究竟有什么不足，是否必须改为if( defined $regex length $regex )。 解决过程 因为STDIN属于I/O操作，我们打开ActivePerl的web帮助文档 — 查找Perl Core Documentation — 点击perlop弹出帮助页面 — 在目录上点击I/O Operators。 通过查看资料，我们发现： STDIN可以在标量上下文及列表上下文两种方式下工作。在本题中，我们采用标量 上下文来输入正则表达式。 STDIN在标量上下文下返回结果的末尾带回车换行符。 STDIN在某些情况下会返回undef。 解决结果 因STDIN在标量上下文下返回结果的末尾带回车换行符，因此，把标准输入赋值给$regex后，还要使用chomp函数去掉回车换行符，如chomp( my $regex = STDIN ) 。 因为STDIN在某些情况下会返回undef，如果仅使用if( length $regex)判断语句，且我们的程序使用了use warnings该pragma，那么当标量$regex为undef时，perl会如下报警“Use of uninitialized value … ”。 为了使程序不出现uninitialized的告警，从严谨角度出发，我们应该采用if( defined $regex length $regex )判断语句，先判断标准输入不是undef，然后再检查内容非空。 总结 在解答前面提到的[“defined $regex ”是否多余？它究竟有何作用？]这些困惑过程中，同 时掌握了以下知识点： 空的尖脚操作符和带标准输入的尖脚操作符STDIN的功能是有区别的。表示首先读入命令行上指定的所有文件，当命令行未指定时，再读入标准STDIN。 标准输入通常指键盘输入，但也用于进程通信。关于进程通信方面的知识掌握得很少，今后需学习并体会。 熟悉了use warnings 该pragma，它允许对Perl内置的警告进行灵活地控制，这些警告包括那些编译器发出的以及运行时系统发出的警告。 最后，留两个问题给大家： Q1：如果判断语句为if ( defined $regex )，而不是if( defined $regex length $regex )，结 果又如何？ Q2：什么时候STDIN为undef？