Perl: Perl6::Form 格式

Question

我有这样的文件，

SR   Name               Rollno   Class

1    Sanjay              01       B
2    Rahul_Kumar_Khanna  09       A

现在我需要添加“|”之间。所以它应该看起来像

SR | Name              |Rollno | Class|

1  | Sanjay            |01     | B    |
2  | Rahul_Kumar_Khanna|09     | A    |

我正在使用 Perl6::form

my $text;
        
foreach my $line (@arr) {
    my ($SR, $Name, $Rollno, $Class) = split (" ", $line);
    my $len = length $Name;
    $text = form 
        '| {||||||||} | {||||||||} | {||||||||} | {||||||||}|', 
            $SR,         $Name,       $Rollno,     $Class;
    print $text;
}

到目前为止，我已经完成了，但是名称没有正确显示。我添加了额外的“|”名义上。有什么办法可以加“|”通过计算长度（如下）。我试过了，但出错了。

'| {||||||||} | {||||||||}x$len | {||||||||} | {||||||||}|',

Answer 1

问题 #1

'| {||||||||} | {||||||||}x$len | {||||||||} | {||||||||}|'

生产

| {||||||||} | {||||||||}x20 | {||||||||} | {||||||||}|

但你想得到

| {||||||||} | {||||||||||||||||||||} | {||||||||} | {||||||||}|

为此，你会想要

'| {||||||||} | {'.( "|" x $len ).'} | {||||||||} | {||||||||}|'

---

问题 #2

$len 是当前行的名称字段的长度。每一行都不一样。这是错误的，因为您希望每行的输出宽度相同。 $len 需要是最长名称字段的长度。

在开始循环之前，您需要找到$len 的正确值。

# Read in the data as an array of rows.
# Each row is an array of values. 
my @rows = map { [ split ] } <>;

# Find the maximum width of each column. 
my @col_lens = (0) x @{rows[0]};
for my $row (@rows) {
   # Skip the blank line after the header. 
   next if !@$row;

   for my $col_idx (0..$#$row) {
      my $col_len = $row->[$col_idx];
      if ($col_lens->[$col_idx] < $col_len) {
         $col_lens->[$col_idx] = $col_len;
      }
   }
}

my $form =
   join "",
      "| ",
      "{".( "|"x($col_lens[0]-2) )."}",
      " | ",
      "{".( "|"x($col_lens[1]-2) )."}",
      " | ",
      "{".( "|"x($col_lens[2]-2) )."}",
      " | ",
      "{".( "|"x($col_lens[3]-2) )."}",
      " |";

for my $row (@rows) {
   if (@$row) {
      print form($form, @$row);
   } else {
      print "\n";
   }
}