perl对长度不一文本的行列进行置换的实现代码

来源:爱站网时间:2021-09-18编辑:网友分享
爱站技术小编在处理生物数据时,常常需要行列置换,这在R里面异常的简单容易,一个t()就解决了,具体操作小编已经写了出来,有兴趣或者有需要的朋友可以来看看。

用perl去实现一个。由逗号分隔的不定长度的文本文件, 现要实现行列转置, 即由

 

 

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(){
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,

 

准备学习下,自己动手实现一遍,最好是做成模板,随调随用。

以上内容就是爱站技术频道小编为大家分享的perl对长度不一文本的行列进行置换的实现代码,看完以上分享之后,我觉得大家应该跟着操作一遍才会记得比较牢固。

上一篇:Perl脚本怎么实现批量替换文件中的文字/代码

下一篇:perl上下文介绍

相关阅读

查看更多 >