Question

我是Perl的新手。我写了一些代码，用于将输出打印到行中的文件中。我希望它在列中格式化。每列都有我的名字，编号为列标题。请看一下我的代码：

use warnings;
use strict;
my $i=0;
open(OUTPUT,">Test.txt");
while ($i<=3){
printf (OUTPUT "#----------------------- \n");
printf (OUTPUT "Chironjeet Chaki No.[$i]\n");
printf (OUTPUT "#-----------------------\n");
$i++;
}
close(OUTPUT);

我会就如何做到这一点提出建议。

Answer 1

对于您的特定输出，您可以同时打印每一行：

#!/usr/bin/perl
use warnings;
use strict;

open my $OUT, '>', 'Test.txt' or die $!;

print {$OUT} '#----------------------- ' x 3, "\n";

print {$OUT} "Chironjeet Chaki No.[$_]  " for 1 .. 3;
print {$OUT} "\n";

print {$OUT} '#----------------------- ' x 3, "\n";

close $OUT;

在更复杂的情况下，您必须记住某些行的内容并在完成后打印它们。

列中输出的简单格式

1 个答案: