关于use strict 和数组的问题

_acmus

代码如下：
#！/usr/bin/perl
use strict ;
use 5.010 ;

$array[0] = "string0";   #my $array[0] = "string0";   
$array[1] = "string1";   #my $array[1] = "string1";   
$array[2] = "string2";   #my $array[2] = "string2";   


foreach my $cnt （0..$#array）{
    print "array[$cnt] is" . $array[$cnt] . "\n";
}

问题： 当把 “use strict”这句屏蔽掉，程序能正常运行。
如果不屏蔽，会报错“Global symbol "@array" requires explicit packagte name at  a.plx line 5”  这里a.plx是我的perl程序名;

当我把上面的三条语句改成前面加"my" （就是注释的部分） 程序又会报这样的错 “syntax error at a.plx 5, near "$array["”

求高手指点！

zhlong8

wxlfh

建议买一本入门书看看，比如《Perl语言入门》。

jason680

代码如下：
#！/usr/bin/perl
use strict ;
use 5.010 ;

$array[0] = "string0";   #my $array[0] =  ...
_acmus 发表于 2011-06-24 09:00

>> 会报错“Global symbol "@array" requires explicit packagte name at  a.plx line 5”
少了@array宣告.....
请加入...
my @array;

perlcrack

#!/usr/bin/perl -w
use strict;
use 5.010;
my @array;
$array[0] = "string0";      
$array[1] = "string1";     
$array[2] = "string2";   
foreach my $cnt (0 .. $#array) {
    print "array[$cnt] is" . $array[$cnt] . "\n";
}



跟我学习吧 QQ群：81087030

_acmus

惭愧，谢谢。

lfy91

你在给数组元素赋值之前要先定义数组，所以要在第五行之前加上 my @array ;