[ Perl ] 对文本文件进行行列翻转

2021-09-01 01:33:54 阅读：177 来源： 互联网

标签：use shell Perl 01 文本文件 array OUT my 翻转

https://www.cnblogs.com/yeungchie/

code

#!/usr/bin/env perl
#-----------------------------
# Program  : reverseRowCol.pl
# Language : Perl
# Author   : YEUNGCHIE
# Version  : 2021.09.01
#-----------------------------
use v5.10;
use strict;
use warnings;
use List::Util qw/max/;

my ($in,$out) = @ARGV;

open IN,"< $in";
my @array;
push @array,[split] for <IN>;
close IN;

my $index = max(map { scalar @$_ } @array)-1;

open OUT,"> $out";
for my $i (0..$index){
    printf OUT "%s\n",(join ' ',map { my @row = @$_; $row[$i] } @array);
}
close OUT;

__END__

example

shell> cat txt
00 01 02 03 04
05 06 07 08 09
10 11 12 13 14
15 16 17 18 19
20 21 22 23 24

shell> ./reverseRowCol.pl txt txt1

shell> cat txt1
00 05 10 15 20
01 06 11 16 21
02 07 12 17 22
03 08 13 18 23
04 09 14 19 24

标签：use,shell,Perl,01,文本文件,array,OUT,my,翻转
来源： https://www.cnblogs.com/yeungchie/p/15212956.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

[ Perl ] 对文本文件进行行列翻转

code

example