作者 主題: [問題]如何用PERL找出2個陣列的不同處  (閱讀 3030 次)

0 會員 與 1 訪客 正在閱讀本文。

arsla

  • 可愛的小學生
  • *
  • 文章數: 4
    • 檢視個人資料
請問

如果我的@array1 = [1,2,3,4,5,6,7,8,9]
@array2 = [1,3,5,7,9]

請問如何比較2個陣列,並將不同處放入第3個陣列

@array3 = [2,4,6,8]

謝謝

willie0220

  • 憂鬱的高中生
  • ***
  • 文章數: 142
    • 檢視個人資料
[問題]如何用PERL找出2個陣列的不同處
« 回覆 #1 於: 2005-08-24 21:49 »
這找出@array2有的但是@array1沒有的,放到@array3
其餘以此類推
for $tmp (@array2){
  push @array3, $tmp unless grep {/$tmp/} @array1;
}

arsla

  • 可愛的小學生
  • *
  • 文章數: 4
    • 檢視個人資料
[問題]如何用PERL找出2個陣列的不同處
« 回覆 #2 於: 2005-08-25 21:01 »
謝了.真的對我很有幫助