欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

perl對長度不一文本的行列進行置換的實現(xiàn)代碼

 更新時間：2013年02月08日 20:24:35   作者：  
處理生物數(shù)據(jù)時，常常需要行列置換，這在R里面異常的簡單容易，一個t()就解決了

有時遇到各行或各列的長度不一致時就麻煩了，雖然可以在R里面把文件按最長的行(列)填充，但是不便，所以想起用perl去實現(xiàn)一個。
由逗號分隔的不定長度的文本文件, 現(xiàn)要實現(xiàn)行列轉(zhuǎn)置, 即由

復制代碼 代碼如下:

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,  ,    ,

以下是完整的代碼，供大家參考。

復制代碼 代碼如下:

#!/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)一遍，最好是做成模板，隨調(diào)隨用。

相關(guān)文章

最新評論