38 lines
604 B
Perl
Executable file
38 lines
604 B
Perl
Executable file
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use open qw(:std :utf8);
|
|
|
|
my ($d) = @ARGV;
|
|
$d = "=>" unless $d;
|
|
|
|
my $max = 0;
|
|
my @ls = ();
|
|
my @rs = ();
|
|
my $i = 1;
|
|
my $t = "";
|
|
|
|
while (<STDIN>) {
|
|
if ($i == 1) {
|
|
$t = $1 if /^(\s+)/;
|
|
$i += 1;
|
|
}
|
|
$_ =~ s/^\s+|\s+$//g;
|
|
my @ls_rs = split $d, $_, 2;
|
|
my $len = length $ls_rs[0];
|
|
$max = $len if $len > $max;
|
|
push @ls, $ls_rs[0];
|
|
push @rs, $ls_rs[1];
|
|
}
|
|
|
|
for (my $i = 0; $i < @ls; $i += 1) {
|
|
my $l = $ls[$i];
|
|
my $r = $rs[$i];
|
|
my $n = $max - length $l;
|
|
my $s = " " x $n;
|
|
$l .= $s;
|
|
print $t, $l, $d, $r;
|
|
print "\n" unless $i + 1 == @ls;
|
|
}
|