亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: 新手求助 [打印本頁]
作者: jiangphoenix    時間: 2015-03-24 18:30
標題: 新手求助
我有兩個數(shù)組
@a = (11, 22, 23, 31)
@b = (12, 33, 12, 32)
我想將這兩個數(shù)組中應的元素相除，最后輸出的結(jié)果存到另一個數(shù)組中@c中，坐等大神相助，不勝感謝
作者: b114213903    時間: 2015-03-25 10:24
本帖最后由 b114213903 于 2015-03-25 10:24 編輯
  1. #!/usr/bin/perl
  2. use strict;

  4. my @a = (11, 22, 23, 31);
  5. my @b = (12, 33, 12, 32);

  7. my @c=();
  8. for(my $i=0;$i<scalar @a; $i++){
  9.         $c[$i]= sprintf ("%.2f",$a[$i]/$b[$i]);        #保留兩位小數(shù)
  10. }

  12. print "@a\n@b\n@c\n";
復制代碼
作者: murdercool    時間: 2015-03-25 13:32
  1. @c=map{$a[$_]/$b[$_]} (0..$#b);
復制代碼
作者: jiangphoenix    時間: 2015-03-27 13:18
回復 2# b114213903

謝謝，不勝感激。
   
作者: jiangphoenix    時間: 2015-03-27 13:19
回復 3# murdercool 雖然沒看懂，但是謝謝啦


   
作者: 末日戰(zhàn)狂    時間: 2015-04-02 18:06
新手求助  混個助攻啊
作者: 清泉一邊    時間: 2015-04-07 16:35
  1. $c[$_] = $a[$_]/$b[$_] for (0..$#a);
復制代碼
回復 1# jiangphoenix


   
作者: 104359176    時間: 2015-04-07 19:30
  1. use v6;

  3. my @c;

  5. for @a, @b -> $a, $b {
  6.       push @c, $a/$b;
  7. }
復制代碼
作者: ba_du_co    時間: 2015-06-03 14:07
回復 8# 104359176

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




歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2