xxsr.net
当前位置:首页 >> pErl子程序返回多个数组到主程序中多个数组 >>

pErl子程序返回多个数组到主程序中多个数组

sub choose(){ my (@c1, @c2, @c3); @c1 = @_; @c2 = sort @_; @c3 = reverse @_; return (\@c1,\@c2,\@c3); } my @arr = (1,2,3,5,4); my (@a,@b,@c); my @refs = &choose(@arr); @a = @{$refs[0]}; @b = @{$refs[1]}; @c = @{$refs[2]}; print...

示例: #!/usr/bin/perl -w use strict; my @array1 = (["a","b","c"],["d","e","f"],["g","h","i"]); my @array2 = (["a","b","c"],["d","e","f"]); &test (\@array1, \@array2); &test (\@array1, \@array2); sub test { my ($subarray1, $sub...

@out = (map {$_*2} @in1, map {$_*2} @in2); 这样就OK啊 如果比较麻烦的可以用for遍历结果然后push到数组中

如果有 3 个或以上呢 ? sub getMax { my (%temp, $max, @ret); foreach ( @_ ) { my $count = $temp{$_}++; $max = $count if $count > $max; } foreach ( keys %temp ) { push @ret, $_ if $temp{$_} == $max } return @ret;}print getMax ( sp...

首先来个基本函数参数的传递 sub hello { print "Hello @_" }hello ("World!", "I am Robot" ) ; # 打印出 Hello World! I am Robot这里值得留意的就是 @_ 就是装载所有传入的参数的数组 ( 看好了, 这其实是数组啊!! ) 所以, 将上面的改一下, 就...

这种应该没有什么好的办法,数据量不大的话,编写一个函数isInArray($val, @array),来判断一个数值是否在数组里,存在就返回1,不存在就返回0。 然后遍历另一个数组,分别判断是否在另一个数组里存在。 数据量大的话也可以这样做,不过事先对两...

数组的下标从0开始,$#array是一个特殊的变量,它的值就是数组array的最后的元素的下标,假设array有3个值,最后的下标就是2(依次是0、1、2),假设你的数组名字为@HHH,最后的索引就是$#HHH. 负值索引就是从后面依次取数组的索引,依次是(-1,-...

#!perluse strict;my %data;open F, "test1" or die "Can't open test1";while ( ) { chomp; my @parts = split /\s+/, $_; my $id = shift @parts; my $this = $data{$id} = {}; $this -> {name} = shift @data; $this -> {height} = shift @da...

你是指输出除数组第一个元素以外的其他元素吧?print " $array[1..-1] ";

是不是要做该表中的第三四列的相互关联工作? 用hash,后面的代码文字说明如果唯一的话,用该列作key,前面的数字代码做value,一个文字说明,对应一个数字代码,有这样的对应关系,就可以用起来了。 或者直接split后,检测文字说明那一列是否有.

网站首页 | 网站地图
All rights reserved Powered by www.xxsr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com