作者sonymezo (小缘)
看板Perl
标题[问题] 档案行列互换
时间Fri Nov 20 17:24:03 2009
我有一个档案train.txt
档案格式如下
0 0 0 1 1 1
852.98 47.07 38.78 33.68 33.26 28.48
98.19 14.53 14.47 14.54 15.08 12.44
149.72 170.97 170.44 327.91 43.15 407.72
35.13 29.56 35.88 81.15 27.75 50.74
41.7 43.22 30.03 76.04 37.33 63.91
.
.
.
我希望转成
0 1:852.98 2:98.19 3:149.72
0 1:47.07 2:14.53 3:170.97
0 1:38.78 2:14.47 3:170.44 . . .
1 1:33.68 2:14.54 3:327.91
1 1:33.26 2:15.08 3:43.15
1 1:28.48 2:12.44 3:407.72
并写入bbb.txt
我得程式码如下
#!/usr/bin/env perl
$file = "/home/ed/train.txt";
$out="/home/ed/bbb.txt";
open(FHD,"$file") || die "Can't open $file!\n";
open(FHO,">$out") || die "Can't open $file!\n";
while ($line=<FHD>) {
chomp $line;
$f1 = "$line";
print FHO "$f1\n";
}
close(FHD);
close(FHO);
每一次读入档案就是 0 0 0 1 1 1
852.98 47.07 38.78 33.68 33.26 28.48
.
.
.
请问一下版上大大我需要如何改程式让他达成我的需求?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.64.76.237
1F：→ sonymezo:train.txt 约是两万多*70的matrix 11/20 18:53
2F：推 abliou:又是要跑svm吗...XD 11/21 03:03