string - 非凡的字符串 split

Question

我有一根绳子

my $str = 'one ; two - three; four - five | six - seven; eight ; nine-ten | eleven - twelve | thirteen - fourteen; ';

我需要输出如下所示

one ; two - three; four - five ; eight ; nine-ten            ;
    ;            ; six - seven ;       ; eleven - twelve     ;
    ;            ;             ;       ; thirteen - fourteen ;

按“;”拆分字段，并按“|”拆分每个字段)))请帮助我

Answer 1

这可以实现您的目标:

#!/usr/bin/perl

use warnings;
use strict;

use List::Util qw(max);

my $str = 'one ; two - three; four - five | six - seven; eight ; nine-ten | eleven - twelve | thirteen - fourteen; ';

my @fields = map { [ split /\s*\|\s*/ ] } split /\s*;\s*/, $str;

my $max_row = max map { scalar(@$_) } @fields;

foreach my $row (0 .. $max_row-1) {
    foreach my $col (@fields) {
        my $width = max map { length ($_) } @$col;
        printf " %-*s ;", $width, $col->[$row] ? $col->[$row] : " ";
    }
    print "\n";
}