Perl use strict 控制变量

最新推荐文章于 2025-07-16 14:21:04 发布

scan724

最新推荐文章于 2025-07-16 14:21:04 发布

阅读量2.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl 大骆驼

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/41792793

Perl 大骆驼专栏收录该内容

72 篇文章 ¥39.90 ¥99.00

订阅专栏

Perl中的`use strict`指令强制要求明确声明所有变量，防止全局变量的意外使用。当启用`use strict 'vars'`，未声明的变量会导致编译错误。使用`our`或`my`关键字可以避免此类错误。`our`将全局变量伪装成词法范围变量，而`my`则创建局部变量。若要暂时禁用此限制，可以在代码块中使用`no strict 'vars'`。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >


use strict 的影响:

[root@june2 perl]# cat 5.pl 
#!/usr/bin/perl
use strict;
@array=qw/1 2 3 4 5 6 7 8/;
foreach my $var (@array){print "$var\n"};

[root@june2 perl]# perl 5.pl 
Global symbol "@array" requires explicit package name at 5.pl line 3.
Global symbol "@array" requires explicit package name at 5.pl line 4.
Execution of 5.pl aborted due to compilation errors.

[root@june2 perl]# cat 5.pl 
#!/usr/bin/perl
use strict;
our @array=qw/1 2 3 4 5 6 7 8/;
foreach my   $var (@array){print "$var\n"};

[root@june2 perl]# perl 5.pl 
1
2
3
4
5
6
7
8


[root@june2 perl]# cat 5.pl 
#!/usr/bin/perl
use strict;
my @array=qw/1 2 3 4 5 6 7 8/;
foreach  $var (@array){print "$var\n"};

[root@june2 perl]# perl 5.pl 
Global symbol "$var" requires explicit package name at 5.

了解本专栏