如何在兩個文件中比較

zljjg2000

怎么覺得在這個程序中，經(jīng)過for my $aa(@a){
@tmp = grep { $_ ne $aa } @tmp;

循環(huán)后，@tmp最后是空的了，然后再$hash{$_}='' for (@tmp)，則%hash也是空的了。實際上，最后
push @c,$hash{$_}."\t".$_ for  keys %hash; 才真正將%hash賦值。所以覺得前面這兩步好像沒用。

我在此程序中，將@tmp = grep { $_ ne $aa } @tmp;和$hash{$_}='' for (@tmp)，兩行注釋了，程序輸出結(jié)果和沒有注釋前是一樣的，不知是這么理解嗎

唐歸來

試驗了一下，為什么得到的哈希%f2只有file2中的最后一行？求解啊.回復(fù) 6# rubyish


   

只是一個紅薯

一樣的？這個哪去了：

1.           10.5.248.130
   
2.           10.5.248.2
   
3.           10.5.249.3

復(fù)制代碼

?

zljjg2000 發(fā)表于 2013-07-26 14:20
怎么覺得在這個程序中，經(jīng)過for my $aa(@a){
@tmp = grep { $_ ne $aa } @tmp;

rubyish

回復(fù) 13# 唐歸來

試驗了一下，沒問題啊   
my %f2:

1. { 10.5.10. => 大廈, 10.5.246. => 經(jīng)一路, 10.5.247. => 小河村 }
   

復(fù)制代碼

my output:

1. 經(jīng)一路  10.5.246.3
   
2. 小河村  10.5.247.130
   
3. 小河村  10.5.247.2
   
4.         10.5.248.130
   
5.         10.5.248.2
   
6.         10.5.249.3
   

復(fù)制代碼

rubyish

回復(fù) 8# 只是一個紅薯


沒用komodo
我不知道。

rubyish

回復(fù) 7# grshrd49

謝謝，古詩一首賞析
q.zip (317 Bytes, 下載次數(shù): 3)

2013-07-27 06:17 上傳

點擊文件名下載附件

   

唐歸來

好吧，不知道為什么我試驗的時候得到的hash一直是
10.5.10.  大廈
10.5.10.  大廈
不解啊，不過還是謝謝啊，回復(fù) 15# rubyish