2015-01-04 84 views
0

不执行,我有以下脚本的Perl - 代码预期

print ("\n\n=========================================\n"); 

@array = (1,2,"Hello"); 

print("\$array[0] = $array[0]\n"); 
print("\$array[1] = $array[1]\n"); 
print("\$array[2] = $array[2]\n"); 
@array =(a..z); 
**print("\@array[5..10][email protected](5,3..10,24");** 
@[email protected]; 
print "The lenght of\@array is:@lenght\n"; 


print ("=========================================\n\n");. 

**标记是我没有得到预期的输出。请帮我解决这个问题。

我很期待的输出是这样的d,e,f,h,k像这样

回答

2

如果你的愿望是打印出具体的数组元素和整个数组的长度,使用类似:

@array = ('a'..'z'); 
$newarray = @array[0,5..10]; 
print("\@array[0,5..10] = @array[0,5..10]\n"); 
$length = @array; 
print "The length of \@array is $length\n"; 

它的输出是:

@array[0,5..10] = a f g h i j k 
The length of @array is 26 
+0

'$#'sigill用于查找数组中最后一个元素的索引。在标量上下文中使用数组本身来查找长度:'$ length = @ array'。 – TLP 2015-01-04 13:09:47

+0

另外,'a..z'依赖于裸字。它应该是'a'..'z''。 – TLP 2015-01-04 13:11:06