文件讀取

lengxue1982

大家好，有個(gè)問題想請教一下，
我想寫一段代碼來實(shí)現(xiàn)如下內(nèi)容：
從已經(jīng)存在的文件中（txt格式的列表），每一列都乘以一個(gè)相同的系數(shù)，然后將相乘后的結(jié)果以txt或excel格式輸出。
我是以文件句柄的方式打開這個(gè)文件，將這個(gè)文件當(dāng)成一個(gè)數(shù)組對每一列進(jìn)行操作。
問題是文件和數(shù)組之間怎么轉(zhuǎn)化��？

lengxue1982

可能問題描繪的不是很清楚，-_-

zhlong8

用 Text::CSV 或 Text::CSV::Slurp 讀文件然后用循環(huán)什么的處理，每條數(shù)據(jù)都是個(gè) hash 很方便

lengxue1982

每行是一個(gè)哈希，還是每列是一個(gè)哈希啊。

lengxue1982

可能是我問題說得不清楚

我是要將原來數(shù)據(jù)的每一列都乘以同一個(gè)系數(shù)，然后輸出；一共有50列，每一列乘以不同的系數(shù)

zhlong8

每一行是個(gè) hash，你描述的很清楚不過你不知道什么叫循環(huán)。

jason680

說的不清,又不給數(shù)據(jù)....

Cu_fans

版主，為什么要搞成一個(gè)hash呢。。直接split后每列乘以同一個(gè)數(shù)應(yīng)該可以吧。

1. for(<DATA>)
   
2. {
   
3.         @result = map {$_ * 50} split /\s+/;
   
4.         print "@result\n";
   
5. }
   
6. 
   
7. __DATA__
   
8. 1 2 3 4
   
9. 2 3 4 5

復(fù)制代碼

lengxue1982

data1：
name        a        b        c
aa        3099.577        7130.509        4137.123
ab        17707.86        19294.97        19370.71
ac        6548.954        10295.22        7223.056
d        6701.884        6630.563        6888.273
e        170.6536        226.6384        217.9361
f        333.4244        763.9167        668.2062
g        145.8387        342.4565        283.0645
h        10197.38        11864.03        9673.443

data2：
1.022
0.99
1.203

數(shù)據(jù)1的每一列乘以數(shù)據(jù)2的對應(yīng)的系數(shù)，然后輸出

zhlong8

版主，為什么要搞成一個(gè)hash呢。。直接split后每列乘以同一個(gè)數(shù)應(yīng)該可以吧。
Cu_fans 發(fā)表于 2011-07-05 14:19

    今天用模塊處理個(gè)簡單的問題，以后遇到復(fù)雜點(diǎn)的情況就能想到用這個(gè)模塊來做了，用著用著 Perl 的精髓就出來了。況且用 split 很有問題，我就不只一次遇到空字符串導(dǎo)致的 bug。而且還要手工處理 header，用模塊邏輯就很清晰，而且這些都不用管了