[PerlChina] Re: 请教IO::Prompt 的问题

因为在第二行，#! 所有的魔力就失效了，变成了一个无用的注释。

2009/8/30 linhy <linhy0120@gmail.com>

再用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“放到第二行的时候，警告信息就消失了。不知道为什么？兄弟姐妹们碰到过吗？请指点一下。
详细情况如下：


[linhy@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 ;

[linhy@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“放到第二行的时候，警告信息就消失了。
[linhy@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 ;
[linhy@genome2 Practice]$ perl iotry3.pl
print paswd: ***
You passwd is: 'lll'

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

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