繁体   English   中英

为什么在此Perl代码中出现“'$ rocks ['附近的语法错误””?

[英]Why do I get “Syntax error near '$rocks['” in this Perl code?

在Windows XP的ActivePerl 5.8上运行此程序时,出现语法错误:

#!C:\Perl\bin\perl.exe

use strict; # enabled
use warnings;


(my $rocks[0], my $rocks[1]) = qw/Hello World/; # Syntax error near '$rocks['

my $rocks[2] = 'Tom'; # Syntax error near '$rocks['
my $rocks[3] = 'Cat'; # Syntax error near '$rocks['

print $rocks[0];
print $rocks[1];
print $rocks[2];
print $rocks[3];

当我在数组rocks的名称前使用( @ )时,它运行良好。 使用$时,如何解决以上错误? 谢谢。

my @rocks = qw{Hello World Tom Cat}; # worked well.

不要一次又一次地使用my声明$rocks[0]$rocks[1]等。一次声明数组( @rocks )并使用它。

更正后的代码是这样的:

use strict;
use warnings; 
my @rocks; ## declare the array here

($rocks[0], $rocks[1]) = qw/Hello World/; 
$rocks[2] = 'Tom'; 
$rocks[3] = 'Cat';

使用push操作符:

my @rocks;

push @rocks, qw/ Hello World /;
push @rocks, "Tom";
push @rocks, "Cat";

避免显式和冗余的数组索引可帮助您的代码适应未来需求。 例如,如果发现需要更改初始化,则无法破坏不存在的数组索引。

我认为您需要声明my @rocks ,然后在引用$rocks[xxx]时不再使用my

如果您不知道其中有多少个元素,可以使用push将新元素添加到(最初为0大小)数组中。

您多次声明@rocks 尝试这样的事情:

my @rocks;

$rocks[0] = 'Tom';
$rocks[1] = 'Cat';

等等

您可以首先在顶部将数组声明为:

my @rocks;

并从其他所有地方删除我的声明。

您的代码变为:

#!C:\Perl\bin\perl.exe
# ActivePerl 5.8 based
use strict; # enabled
use warnings;

my @rocks;

($rocks[0], $rocks[1]) = qw/Hello World/; # Syntax error near '$rocks['

$rocks[2] = 'Tom'; # Syntax error near '$rocks['
$rocks[3] = 'Cat'; # Syntax error near '$rocks['

print $rocks[0];
print $rocks[1];
print $rocks[2];
print $rocks[3];

为什么不直接将它放入@rocks呢?

use strict;
use warnings;

my @rocks = qw'Hello World';

my $rocks[2] = 'Tom';
my $rocks[3] = 'Cat';

print $rocks[0];
print $rocks[1];
print $rocks[2];
print $rocks[3];

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM