sub test {
my $ref = shift;
push @$ref,'d';
push @{$ref},'e';
}
my @x = qw/a b c/;
test ( \@x );
print @x;
数组ARGV负责保存perl的命令行参数。该数组从下标0开始。$#ARGV表示数组的最后一个元素（不是元素个数）$ARGV[0]表示第一个元素的编号（下标）。例如：
if ( $#ARGV < 0 ) #因为下标应该比元素个数少1个，如果<0,则表示数组中的参数为0个
#也就是说，数组至少应该有一个参数
$CONTROL_FILE = $ARGV[0] #取得的值则为数组的第一个参数
数组，array，是包含在括号里的一组元素。
scalar 可以用来返回数组中元素的个数。
可以用scalar 来计算一组数组数据的个数。
可以将数组中内容逆序重新排列。
语法： sort{$a<=>$b}(@array)
将一组数组中的元素，按照ASCII 值由小到大排序。加上 {$a<=>$b} （ {$a =>$b} 似乎一样），则表示按照数字大小排序。
可以利用sort与reverse 将一组结果按顺序排列后升序或降序。
用来将数组中最后一个元素删除。并返回它。
用来在数组的最后添加新的元素或数组。
push(@arr, $new_element/@new_arr)
用来删去数组的第一个元素（和pop对应），并返回它。
用来在数组的最前面加上新元素或新数组（和push 对应）。
unshift(@arr, $new_element/@new_arr)
join($string, @array)
用指定字符串将数组中的元素连接成字符串，并返回该新的字符串。
split(/pattern/, $string)
将字符串按照pattern 分割，并将分割后的结果返回至数组中。
#!c:/Perl/bin/perlexe
print "Content-type: text/html\n\n";
open(destfile,"c:/menulst");
while(<destfile>)
{
$n=$n+1;
}
$N=int(rand($n));
close(destfile);
print "<html><h1>总行数$n行 <br>随机取$N行</h1></html>\n";
#读取文件行数n，设定$N<$n，随机取小于n的整数N
open(destfile,"c:/menulst");
while(<destfile>)
{
$c=$c+1;
print $_ if ($c==$N);
}
close(destfile);
windows下随便写的，版本perl 5101
以上就是关于perl里面如果用数组引用做入参，如何在函数中使用，例如： my @a = (); testarray(/@); 然后函数的实现：全部的内容，包括:perl里面如果用数组引用做入参，如何在函数中使用，例如： my @a = (); testarray(/@); 然后函数的实现：、perl 中定义的这个到底该怎么理解 我很模糊if ( $#ARGV < 0 ) { exit(1); }、perl 中的数组与相关函数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）