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)文章
這10分鐘教程并不是Java和Perl的比較。目標(biāo)是探索作為Java開(kāi)發(fā)人員如何快速學(xué)習(xí)Perl。以下是一些從我的角度來(lái)看的關(guān)鍵筆記2013-11-11
這里主要討論的是當(dāng)你要傳遞的參數(shù)不是僅僅一個(gè)的時(shí)候，也就是兩個(gè)以上，并且他們數(shù)據(jù)的類型還不一致的時(shí)候，我們要遇到的問(wèn)題2013-03-03
perl 刪除數(shù)組元素的幾種方法，有需要的朋友可以參考下2013-02-02
Windows和Linux系統(tǒng)下perl連接SQL Server數(shù)據(jù)庫(kù)的方法
這篇文章主要介紹了Windows和Linux系統(tǒng)下perl連接SQL Server數(shù)據(jù)庫(kù)的方法,本文詳細(xì)的講解了Windows和Linux系統(tǒng)中perl如何連接Microsoft SQL Server數(shù)據(jù)庫(kù),需要的朋友可以參考下2014-10-10
Perl從文件中讀取字符串的兩種實(shí)現(xiàn)方法
有時(shí)候我們需要從文件中讀取字符串，這里簡(jiǎn)單介紹下， 需要的朋友可以參考下2013-02-02
這個(gè)perl文件將執(zhí)行的任務(wù)是， 按照指定的文件夾目錄，自動(dòng)將該文件夾下的所有文件上傳到指定ftp站點(diǎn)的指定目錄下2006-11-11
這篇文章主要給大家介紹了關(guān)于Perl學(xué)習(xí)教程之單行命令的相關(guān)資料，文中給出了詳細(xì)的示例代碼供大家參考學(xué)習(xí)，對(duì)大家學(xué)習(xí)或者使用perl具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友可以參考借鑒，下面來(lái)一起看看吧。2017-09-09
Perl中使用dig和nali判斷DNS解析地址歸屬地是否一致腳本分享
這篇文章主要介紹了Perl中使用dig和nali判斷DNS解析地址歸屬地是否一致腳本分享,本文同時(shí)介紹了一個(gè)使用純真IP庫(kù)實(shí)現(xiàn)的Perl查詢工具,需要的朋友可以參考下2014-09-09
perl產(chǎn)生隨機(jī)數(shù)實(shí)現(xiàn)代碼
Perl利用函數(shù)rand()和srand()為隨機(jī)數(shù)（更確切的說(shuō)是“偽隨機(jī)數(shù)”）字符串的生成提供了基本的工具2013-02-02
本文向大家簡(jiǎn)單介紹一下Perl split函數(shù)的用法，Perl中的一個(gè)非常有用的函數(shù)是Perl split函數(shù)-把字符串進(jìn)行分割并把分割后的結(jié)果放入數(shù)組中2013-02-02