perl 5.10.1 的警告就比较合理，当然这也是模块本身的逻辑问题显现出的一个已经解决的 bug。
2009/8/30 joe jiang <[email protected]> > 应该避免警告，但是这个警告应该是 perl 自身的 bug 导致的，因为第 91 行并非正则运算，和警告信息是不符合的。 > > 91 if (ref eq 'HASH') { > > > 2009/8/30 Michael Zeng <[email protected]> > > #!/usr/local/bin/perl -w 放在第一行 是一个习惯 >> 叫shubang 行，让shell 去了解你的运行 程序的 >> >> 如果在命令行打perl , 不要这行也可以 >> >> shell>perl XXXX.pl >> >> -w 是开启warning 的意思 >> >> 和 use warnings ; 一样的 >> >> >> >> >> 2009/8/30 Haiyan Lin <[email protected]> >> >> 谢谢joe的回答。这对于脚本运行。会有什么影响吗？ >>> >>> ----- Original Message ----- >>> *From:* joe jiang <[email protected]> >>> *To:* [email protected] >>> *Sent:* Sunday, August 30, 2009 7:55 PM >>> *Subject:* [PerlChina] Re: 请教IO::Prompt 的问题 >>> >>> 因为在第二行，#! 所有的魔力就失效了，变成了一个无用的注释。 >>> >>> 2009/8/30 linhy <[email protected]> >>> >>>> 再用IO::Prompt的时候，碰到一个很费解的问题？脚本的第一行是"#! /usr/bin/perl -w“的时候。尽管脚本可以运行， 会给 >>>> 出警告信息： >>>> >>>> Use of uninitialized value $_ in pattern match (m//) at /usr/local/ >>>> lib/perl5/site_perl/5.10.0/IO/Prompt.pm line 91. >>>> >>>> 若将第一行空着，把"#! /usr/bin/perl -w“放到第二行的时候，警告信息就消失了。不知道为什么？兄弟姐妹们碰到过吗？请指点一下。 >>>> 详细情况如下： >>>> >>>> >>>> [li...@genome2 Practice]$ cat -n iotry2.pl >>>> 1 #! /usr/bin/perl -w >>>> 2 # >>>> 3 use strict; >>>> 4 use warnings; >>>> 5 use IO::Prompt; >>>> 6 >>>> 7 prompt ("print paswd: " , -tty, -echo => '*') or die "Error: >>>> $!"; >>>> 8 >>>> 9 print "You passwd is: '$_'\n"; >>>> 10 >>>> 11 exit ; >>>> >>>> [li...@genome2 Practice]$ perl iotry2.pl >>>> Use of uninitialized value $_ in pattern match (m//) at /usr/local/lib/ >>>> perl5/site_perl/5.10.0/IO/Prompt.pm line 91. >>>> print paswd: ** >>>> You passwd is: 'll' >>>> >>>> 若将第一行空着，把"#! /usr/bin/perl -w“放到第二行的时候，警告信息就消失了。 >>>> [li...@genome2 Practice]$ cat -n iotry3.pl >>>> 1 >>>> 2 #! /usr/bin/perl -w >>>> 3 # >>>> 4 use strict; >>>> 5 use warnings; >>>> 6 use IO::Prompt; >>>> 7 >>>> 8 prompt ("print paswd: " , -tty, -echo => '*') or die "Error: >>>> $!"; >>>> 9 >>>> 10 print "You passwd is: '$_'\n"; >>>> 11 >>>> 12 exit ; >>>> [li...@genome2 Practice]$ perl iotry3.pl >>>> print paswd: *** >>>> You passwd is: 'lll' >>>> >>>> >>>> >>> >> >> >> -- >> Yours Sincerely >> Zeng Hong >> >> >> >> > --~--~---------~--~----~------------~-------~--~----~ 您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。 要在此论坛发帖，请发电子邮件到 [email protected] 要退订此论坛，请发邮件至 [email protected] 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛 -~----------~----~----~----~------~----~------~--~---
