Re: [問題] 大矩陣轉置問題
若能將 open IN, "< FILENAME"
改成 open IN, "cut -f$_ -d' ' FILENAME |" 會快很多...
#!/usr/bin/perl
$Source = 'data';
$Target = 'test';
# $Source 第一行有 $X 項...
open(IN, $Source) or die "IN: $!\n";
chomp($_ = <IN>);
split(/ /);
$X = $#_ + 1;
close(IN);
# 依序將行轉成列
open(OUT, ">$Target") or die "$OUT: $!\n";
for(1 .. $X) {
open(IN, "cut -f$_ -d' ' $Source |") or die "IN: $!\n";
chomp(@Read = <IN>);
close(IN);
printf(OUT "%s\n", join(' ', @Read));
}
close(OUT);
# 計算時間(秒)
printf("%d\n", time() - $^T);
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.172.163
※ 編輯: giacch 來自: 118.232.172.163 (11/15 14:56)
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
0
3
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
