+ -
当前位置:首页 → 问答吧 → 怎样来行和列转换

怎样来行和列转换

时间:2010-11-27

来源:互联网

比如文件:
abcde
abcde
abcde

怎样才能把行转为列,如:
aaa
bbb
ccc
ddd
eee

作者: estbio   发布时间: 2010-11-27

  1. #!/usr/bin/perl

  2. use strict;
  3. use warnings;

  4. my @rows;
  5. while (<DATA>) {
  6.         chomp;
  7.         my @data = split '';
  8.          for (0..$#data) {
  9.                  $rows[$_] .= $data[$_];
  10.          }
  11. }

  12. print "$_\n" foreach (@rows);

  13. <STDIN>;

  14. __DATA__
  15. abcde
  16. abcde
  17. abcde
复制代码

作者: iamlimeng   发布时间: 2010-11-27

perl -aF'' -ne '$a.=$F[0];$b.=$F[1]; $c.=$F[2]; $d.=$F[3]; $e.=$F[4];END{print "$a\n$b\n$c\n$d\n$e\n"}' your_file.txt

作者: 小鹭   发布时间: 2010-11-27