新手求助

jiangphoenix

我有两个数组
@a = (11, 22, 23, 31)
@b = (12, 33, 12, 32)
我想将这两个数组中应的元素相除，最后输出的结果存到另一个数组中@c中，坐等大神相助，不胜感谢

b114213903

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. my @a = (11, 22, 23, 31);
   
5. my @b = (12, 33, 12, 32);
   
6. 
   
7. my @c=();
   
8. for(my $i=0;$i<scalar @a; $i++){
   
9.         $c[$i]= sprintf ("%.2f",$a[$i]/$b[$i]);        #保留两位小数
   
10. }
    
11. 
    
12. print "@a\n@b\n@c\n";

复制代码

murdercool

1. @c=map{$a[$_]/$b[$_]} (0..$#b);

复制代码

jiangphoenix

回复 2# b114213903

谢谢，不胜感激。
   

jiangphoenix

回复 3# murdercool 虽然没看懂，但是谢谢啦


   

末日战狂

新手求助  混个助攻啊

清泉一边

1. $c[$_] = $a[$_]/$b[$_] for (0..$#a);

复制代码

回复 1# jiangphoenix


   

104359176

1. use v6;
   
2. 
   
3. my @c;
   
4. 
   
5. for @a, @b -> $a, $b {
   
6.       push @c, $a/$b;
   
7. }

复制代码

ba_du_co

回复 8# 104359176

我想这么写
my @a = 11, 22, 23, 31;
my @b = 12, 33, 12, 32;
my @c = @a >>/<< @b;