perl對長度不一文本的行列進行置換的實現(xiàn)代碼
更新時間：2013年02月08日 20:24:35 作者：
處理生物數據時，常常需要行列置換，這在R里面異常的簡單容易，一個t()就解決了
有時遇到各行或各列的長度不一致時就麻煩了，雖然可以在R里面把文件按最長的行(列)填充，但是不便，所以想起用perl去實現(xiàn)一個。
由逗號分隔的不定長度的文本文件, 現(xiàn)要實現(xiàn)行列轉置, 即由
復制代碼 代碼如下:
1,2,3,4,5,6,
7,8,9,
10,11,12,13,
轉換為：
1,7,10,
2,8,11,
3,9,12,
4, ,13,
5, , ,
6, , ,
以下是完整的代碼，供大家參考。
復制代碼 代碼如下:
#!/usr/bin/perl -w
my @matrix;
my $max_len = 0;
while(<DATA>){
chomp;
s/,$//g;
my @fields = split /,/, $_;
my $len = @fields;
$max_len = $max_len > $len ? $max_len : $len;
push @matrix, [@fields];
}
for my $col (0..$max_len - 1){
for my $line (@matrix){
print $line->[$col] || ' ', ',';
}
print "\n";
}
__DATA__
1,2,3,4,5,6,
7,8,9,
10,11,12,13,
準備學習下，自己動手實現(xiàn)一遍，最好是做成模板，隨調隨用。
相關文章
求婚示愛的Perl代碼之改寫篇,特分享下， 方便需要的朋友2013-03-03
一篇文章搞懂：詞法作用域、動態(tài)作用域、回調函數及閉包
這篇文章主要給大家介紹了如何通過一篇文章搞懂：詞法作用域、動態(tài)作用域、回調函數及閉包的相關資料，文中通過示例代碼介紹的非常詳細，對大家的學習或者工作具有一定的參考學習價值，需要的朋友們下面來一起看看吧2018-12-12
perl的logwrapper可以對任何的函數將標準輸出和錯誤輸出重定向到對應的log文件2013-02-02
這篇文章主要介紹了Perl實現(xiàn)高水線算法（解決多值比較問題方法）,從本文代碼示例中還可以學習到數組遍歷、函數寫法、函數調用等知識,需要的朋友可以參考下2015-06-06
Perl 中的use和require，都是用來加載和引用Perl的模塊，或者是子程序，區(qū)別在于Perl use是在當前默認的里面去尋找，一旦模塊不在指定的區(qū)域內的化，用Perl use是不可以引入的2013-02-02
這篇文章主要介紹了Perl讀寫文件簡單示例,本文直接給出實現(xiàn)代碼,需要的朋友可以參考下2015-04-04
這篇文章主要介紹了Perl AnyEvent中的watcher實例,關于AnyEvent請參閱的更多介紹請參閱文中的相關鏈接,需要的朋友可以參考下2014-09-09
Perl利用函數rand()和srand()為隨機數（更確切的說是“偽隨機數”）字符串的生成提供了基本的工具2013-02-02
perl CPAN中有一個Tie-File 模塊極大方便了對大文件的操作2013-02-02
這篇文章主要介紹了講Perl中的本地時間與UNIX時間戳間相互轉換的方法,主要用到了Perl中的Date::Parse模塊,需要的朋友可以參考下2015-06-06