新手求助

jiangphoenix

我有兩個(gè)數(shù)組
@a = (11, 22, 23, 31)
@b = (12, 33, 12, 32)
我想將這兩個(gè)數(shù)組中應(yīng)的元素相除，最后輸出的結(jié)果存到另一個(gè)數(shù)組中@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]);        #保留兩位小數(shù)
   
10. }
    
11. 
    
12. print "@a\n@b\n@c\n";

復(fù)制代碼

murdercool

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

復(fù)制代碼

jiangphoenix

回復(fù) 2# b114213903

謝謝，不勝感激。
   

jiangphoenix

回復(fù) 3# murdercool 雖然沒(méi)看懂，但是謝謝啦


   

末日戰(zhàn)狂

新手求助  混個(gè)助攻啊

清泉一邊

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

復(fù)制代碼

回復(fù) 1# jiangphoenix


   

104359176

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

復(fù)制代碼

ba_du_co

回復(fù) 8# 104359176

我想這么寫(xiě)
my @a = 11, 22, 23, 31;
my @b = 12, 33, 12, 32;
my @c = @a >>/<< @b;