- 积分
- 1931
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-4-6
- 最后登录
- 1970-1-1
![未绑定新浪微博用户 新浪微博达人勋](source/plugin/sina_login/img/gray.png)
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 haobang008 于 2015-2-6 14:53 编辑
在学习Perl之初的时候发现一个问题就是Perl的检查机制比较粗略,换句话来说就是Perl的语法不是十分的严格,但是采用了下面的语句之后,可以令语法的格式更加严格(相应的也会报错比较多),use strict 如何基本的使用strict,以下面的例子进行分析:
#!/usr/bin/perl
use strict;
sub list_from_fred_to_barney{
if$fred$barney){
$fred..$barney;
}else{
reverse($barney..$fred);
}
}
$fred=11;
$barney=6;
@c=&list_from_fred_to_barney;
print @c;
print "\n";
如果运行这个程序会出现很多这个问题:
Global symbol "$barney" requires explicit package name at ./ex4 line 5.
具体的修改如下,加上our的限定词
#!/usr/bin/perl
use strict;
sub list_from_fred_to_barney{
if(our $fred<our $barney){
$fred..$barney;
}else{
reverse($barney..$fred);
}
}
our $fred;
$fred=11;
our $barney=6;
our @c=&list_from_fred_to_barney;
print @c;
print "\n";
具体参照的说明是来自下面的连接:http://www.kuqin.com/article/25perl/556778.html
而后,下面的这个链接说的也不错,但是似乎没有把strict一些用法点透。
源地址:http://blog.itpub.net/13175437/viewspace-207604/
|
|