Chinaunix

标题: 怎样来行和列转换 [打印本页]

---

作者: estbio    时间: 2010-11-27 14:56
标题: 怎样来行和列转换
比如文件:
abcde
abcde
abcde

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

---

作者: iamlimeng    时间: 2010-11-27 15:21

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @rows;
   
7. while (<DATA>) {
   
8.         chomp;
   
9.         my @data = split '';
   
10.          for (0..$#data) {
    
11.                  $rows[$_] .= $data[$_];
    
12.          }
    
13. }
    
14. 
    
15. print "$_\n" foreach (@rows);
    
16. 
    
17. <STDIN>;
    
18. 
    
19. __DATA__
    
20. abcde
    
21. abcde
    
22. abcde

复制代码

---

作者: 小鹭    时间: 2010-11-27 17:52
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

---

作者: wfnh    时间: 2010-11-27 21:04


稍微复杂点···用map实现·

1. 
   
2. use strict;
   
3. use 5.010;
   
4. my @array;
   
5. while(<DATA>)
   
6. {
   
7.         chomp;
   
8.         push @array,[split ''];
   
9. }
   
10. my @new_array =
    
11.     map { my $x = $_;
    
12.           [ map { $array[$_][$x] } 0 .. $#array ];
    
13.         } 0 .. $#{$array[0]};
    
14. foreach my $item (@new_array)
    
15. {
    
16.     print "$item->[0]  $item->[1]  $item->[2]\n";
    
17. }
    

复制代码

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2