我有以下代码
#! /usr/bin/perl use strict; use warnings; ################### Start Main #################### my @startupPrograms = qw(google-chrome thunderbird skype pidgin ); my @pagesToBeOpenedInChrome = qw(http://www.google.com/ https://stackoverflow.com/ https://mail.google.com/mail/u/0/#inBox); main(); ################################################# sub main() { }
我得到以下警告
[aniket@localhost TestCodes]$./test.pl Possible attempt to put comments in qw() list at ./test.pl line 8. main::main() called too early to check prototype at ./test.pl line 9.
程序工作正常,但我无法理解警告.他们的意思是什么？
解决方法
这个警告：
Possible attempt to put comments in qw() list at ./test.pl line 8.
指指定行的这一部分：
.... https://mail.google.com/mail/u/0/#inBox); # ---^
#号是Perl中的一个注释,qw()附有一些特殊警告.这不用担心,但在这种情况下它看起来像一个冗余的警告.如果你想修复它,你可以把这个作业放在一个块中,不要使用’qw’的警告.然而,这与词法范围的变量有些笨重：
my @pages; # must be outside block
{
no warnings 'qw';
@pages = qw( .... );
}
我对警告“qw”的有用性有些疑问,而在一个小脚本中,您可以通过在脚本的顶部添加任何警告“qw”来全局删除编译指示.
这个警告：
main::main() called too early to check prototype at ./test.pl line 9.
这与您的子名称后面的空括号有关.它们表示您希望使用prototypes与您的子例程,并且您的子应该被调用没有args.原型用于使子程序表现得像内置函数,这就是说它不是你真正需要担心的事情,几乎在所有情况下都应该忽略.所以只需删除空的括号.
如果你真的希望使用原型,你需要将一个预声明或者子声明本身放在你打算使用的地方之前.例如.
sub main (); # predeclaration
main();
sub main () {
}