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