print "Size: ",scalar @array,"\n"; 1. 2. 返回的值将始终是数组的物理大小,而不是有效元素的数量。您可以演示一下,标量@array和$#array之间的区别如下- #!/usr/bin/perl @array=(1,2,3); $array[50]=4; $size=@array; $max_index=$#array; print "Size: $size\n"; print "Max Index: ...
@array[0,1]=("string",46);#@array=("string",46,3,4,5)now @array[0..3]=(11,22,33,44);#@array=(11,22,33,44,5)now @array[1,2,3]=@array[3,2,4];#@array=(11,44,33,5,5)now @array[0..2]=@array[3,4];#@array=(5,5,"",5,5)now 可以用子Perl数组形式来交换元素...
或者根据$#array来获取数组的最大索引值 $highest_index= $#array; push和pop分别从数组的结尾压入和弹出数据。 push @array, 8; $x = pop@array; unshift和shift分别从数组的开头压入和弹出数据。 unshift@array, 'y'; $x = shift @array; 也可以直接操作数组中任意位置的数据元素 $first_elem= $array...
@array = (1,2,3); print "数组大小: ",scalar @array,"\n"; 执行以上程序,输出结果为: 数组大小: 3 数组长度返回的是数组物理大小,而不是元素的个数,我们可以看以下实例: 实例 !/uer/bin/perl @array = (1,2,3); $array[50] = 4; size=@array;max_index = $#array; print "数组大小:si...
@array=(1,2,3);print"数组大小:",scalar@array,"\n"; 执行以上程序,输出结果为: 数组大小:3 数组长度返回的是数组物理大小,而不是元素的个数,我们可以看以下实例: 实例 #!/uer/bin/perl@array=(1,2,3);$array[50]=4;$size=@array;$max_index=$#array;print"数组大小:$size\n";print"最大索...
print "@array"; #打印一个字符串(包含一个内插的数组) 第一个语句打印出所有的元素,一个接着一个,其中没有空格。第二个打印出一个元素,它为@array 的所有元素,其被存在一个字符串中。也就是说,打印出@array 的所有元素,并由空格分开。如果@array 包含 qw /fred barney betty /,则第一个例子输出为:...
2.格式:delete $array[index] 3.实例:#delete @fruits=("apple","banana","berry","orange"); print "1:@fruits"."\n"; delete $fruits[1]; print "2:@fruits"."\n"; print "3:$fruits[1]"."\n"; delete $fruits[5]; print "4:@fruits"."\n"; ...
if($str1eq$str2){print"Both strings are equal.\n";} 3.8. 多行字符串 my$text=qq{This is amultilinestring.}; 3.9.split和join函数 split函数是 Perl 中用于将字符串分割成数组的主要工具。 基本语法: @array=split(/PATTERN/,$string); ...
my $var2 = $array[$index2]; # 在同一行上打印结果 print "$var1 $var2\n"; 上述代码首先定义了一个包含数字1到10的数组。然后,使用Perl内置的rand函数生成两个随机索引,范围为数组的长度。接着,通过索引从数组中获取对应的两个变量。最后,使用print函数将这两个变量在同一行...