将文本格式转换成表格形式（使用等宽字体显示）

Perlvim

一个由二个空格以上分隔的列
colname1   colname2   colname3
str1       str2      str3
str4       str5      str6

转换成：

------------------------------
colname1 | colname2 | colname3
------------------------------
str1        | str2     | str3
------------------------------
str4        | str5     | str6
------------------------------


或者其中有一个单元格为空

colname1   colname2   colname3
str1                  str3
str4       str5       str6

转换成：

------------------------------
colname1 | colname2 | colname3
------------------------------
str1        |                | str3
------------------------------
str4        | str5         | str6
------------------------------

其中一个单元格有换行
colname1   colname2   colname3
str1       str2       str3 str3
                      str3
str4       str5       str6

-------------------------------
colname1 | colname2 | colname3
-----------------------------
str1        | str2           | str3 str3
              |                  | str3
-----------------------------
str4        | str5           | str6
-----------------------------

yinyuemi

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use Data::Dumper;
   
5. my %data_v;
   
6. my $max_len;
   
7. my ($line,$col);
   
8. while(<DATA>){
   
9.         chomp;
   
10.         $line++;
    
11.         $col = 0;
    
12.         map{
    
13.                 push @{$data_v{$line}},$_;
    
14.                 $col++;
    
15.                 $max_len = length($_) if $max_len <= length($_);
    
16.         }split; # use your defined delimited character, like "\t", to separate the line;
    
17. }
    
18. 
    
19. my $ps = $max_len * $col + ($col - 1)*3;
    
20. foreach my $x (1..$line){
    
21.                 print "|-" . '-' x $ps . "|\n| ";
    
22.                 print join " | ", map{$max_len == length($_) ? $_ : $_ . ' ' x ($max_len - length($_))}@{$data_v{$x}};
    
23.                 print "|\n";
    
24. }
    
25. print "|-" . '-' x $ps . "|\n";
    
26. __DATA__
    
27. col1                 col2                  col3                         col4
    
28. Abidjan      Banjul       Conakry        Harare
    
29. Accra        Bissau       Dakar          Johannesburg
    
30. Addis_Ababa  Blantyre     Dar_es_Salaam  Juba
    
31. Algiers      Brazzaville  Djibouti       Kampala

复制代码

回复 12# Perlvim


   

rubyish

如何不一样?

1. 其中一个单元格有换行
   
2. colname1   colname2   colname3
   
3. str1       str2       str3 str3
   
4.                       str3
   
5. str4       str5       str6

复制代码

1. AAA      BBB      CCC
   
2. a1        b1       c1c2
   
3. empty   empty  c2
   
4. a2        b2       c2

复制代码

Perlvim

回复 2# rubyish
有换行，还是一个单元格，前两个都为空，就是单独的单元格了。


   

zhlong8

这不是 format 干的事吗？不过我从来没学会啊，还有相关的那几个特殊变量

Perlvim

回复 4# zhlong8

format 不是程序员做的事情，简直就是文员做的事情，比 word 还麻烦，根本没有程序的特性。

   

rubyish

是 ma ?

1. #!/usr/bin/perl
   
2. sub table {
   
3.     my %i = ( @_, @_ % 2 ? 0 : () );
   
4.     my @dat = @{ $i{data} || shift };
   
5.     my $p = $i{align} // 0;
   
6.     my %T   = (
   
7.         t => [ qw(┌ ┬ ┐) ],
   
8.         m => [ qw(├ ┼ ┤) ],
   
9.         b => [ qw(└ ┴ ┘) ],
   
10.         h => '─', v => '│'
    
11.     );
    
12.     my $l = 0;
    
13.     map $l < $_ && ( $l = $_ ), map length, map @$_, @dat;
    
14.     my $e = scalar @{ $dat[0] };
    
15.     my ( $ht, $hm, $hb ) = map {
    
16.         $T{$_}[0] . join( $T{$_}[1], ( $T{h} x ( $l + 2 ) ) x $e ) . "$T{$_}[2]\n";
    
17.     } qw/t m b/;
    
18.     my $al = sub { map { my $s = $" x ( 1 + $l - length ); $p ? "$s$_ " : " $_$s" } @_ };
    
19.     my $text = sub { $T{v} . join( $T{v}, $al->(@_) ) . "$T{v}\n" };
    
20.     $ht . join( $hm, map $text->(@$_), @dat ) . $hb;
    
21. }
    
22. 
    
23. my @a = map [split], <DATA>;
    
24. 
    
25. print table \@a;
    
26. print table data => \@a, align => 1;
    
27. print table data => \@a';
    
28. 
    
29. __DATA__
    
30. Abidjan      Banjul       Conakry        Harare
    
31. Accra        Bissau       Dakar          Johannesburg
    
32. Addis_Ababa  Blantyre     Dar_es_Salaam  Juba
    
33. Algiers      Brazzaville  Djibouti       Kampala

复制代码

dahe_1984

其中有单元格和回车只能是肉眼判断啊？ 那程序也无能为力呀

dahe_1984

回复 6# rubyish

呵呵，您写的代码永远这么高深莫测，我总是看不懂


   

Perlvim

好好研究中。。

1. ┌───────┬───────┬───────┬───────┐
   
2. │ Abidjan      │ Banjul       │ Conakry      │ Harare       │
   
3. ├───────┼───────┼───────┼───────┤
   
4. │ Accra        │ Bissau       │ Dakar        │ Johannesburg │
   
5. ├───────┼───────┼───────┼───────┤
   
6. │ Addis_Ababa  │ Blantyre     │Dar_es_Salaam │ Juba         │
   
7. ├───────┼───────┼───────┼───────┤
   
8. │ Algiers      │ Brazzaville  │ Djibouti     │ Kampala      │
   
9. └───────┴───────┴───────┴───────┘

复制代码