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.pl line 4.
Global symbol "$var" requires explicit package name at 5.pl line
Perl use strict 控制变量
最新推荐文章于 2024-01-21 10:00:00 发布