我有一个程序可以按行打印数组的内容。我希望它在彼此相邻的列中打印每个数组。
这是代码：
#!/usr/local/bin/perl
use strict;
use warnings;
my @M_array;
my @F_array;
open (my $input, "<", 'ssbn1898.txt');
while ( <$input> ) {
chomp;
my ( $name, $id ) = split ( /,/ );
if ( $id eq "M" ) {
push ( @M_array, $name );
}
else {
push ( @F_array, $name );
}
}
close ( $input );
print "M: @M_array \n";
print "F: @F_array \n";
这是可能的还是我试图做一些不能做的事情？
所需格式：
M F
Namem1 Namef1
Namem2 Namef2
您可以使用该函数在数据之间添加您想要的任何分隔符join，下面的示例格式化由制表符分隔的数组中的数据：
...
use List::MoreUtils qw/pairwise/;
my $separator = "\t";
print join($separator, qw(M F)), "\n";
print join(
"\n",
pairwise { ( $a // '') . $separator . ( $b // '') } @M_array, @F_array
), "\n";
...
我认为，您应该使用 Perl 格式。查看Perl 文档。您可能希望@*在您的情况下使用格式字段。
我扩展了您的代码，以便在最后打印所需的输出
use strict;
use warnings;
my @M_array;
my @F_array;
open (my $input, "<", 'ssbn1898.txt');
while ( <$input> ) {
chomp;
my ( $name, $id ) = split ( /,/ );
if ( $id eq "M" ) {
push ( @M_array, $name );
}
else {
push ( @F_array, $name );
}
}
close ( $input );
unshift @M_array, 'M';
unshift @F_array, 'F';
my $namem;
my $namef;
my $max = 0;
$max = (length($_) gt $max ? length($_) : $max) for @M_array;
my $w = '@' . '<' x $max;
eval "
format STDOUT =
$w @*
\$namem, \$namef
.
";
while ( @M_array or @F_array) {
$namem = shift @M_array || '';
$namef = shift @F_array || '';
write;
}
join可能是最简单的方法可以tabs很好地对齐您的列。
join ( "\t", @array ),
或者，perl 允许通过(s)printf进行格式化：
printf ( "%-10s %-10s", "first", "second" );
或者更详细的“格式”
鉴于您正在尝试做的是将您的两个数组放入列中：
#!/usr/local/bin/perl
use strict;
use warnings;
my $format = "%-10s\t%-10s\n";
my @M_array = qw ( M1 M2 M3 M4 M5 );
my @F_array = qw ( F1 F2 F3 );
my $maxrows = $#M_array > $#F_array ? $#M_array : $#F_array;
printf ( $format, "M", "F" );
for my $rownum ( 0..$maxrows ) {
printf ( $format, $M_array[$rownum] // '', $F_array[$rownum] // '' );
}
这将打印标题行，然后循环遍历数组，一次打印一行。//是一个条件操作，用于测试是否定义了某些东西。它仅在较新的 perls 中可用*。在旧版本||中可以解决问题 - 它几乎相同，但处理''方式0略有不同。
* Perl 5.10 开始，所以非常安全，但值得一提的是，有些系统仍然在运行 perl 5.8。
您可以使用sprintf函数格式化输出，但还有一些问题需要解决：如果数组的条目数不同怎么办？为此，您需要一个占位符。一列必须包含多少个字母？应该如何对齐？一些用于说明的代码：
#!/usr/bin/perl
use strict;
use warnings;
my @m = (1, 2, 3);
my @f = (11, 22, 33, 44);
# calculate how many rows to display
my $max = @m;
if (@m < @f) {
$max = @f;
}
# placeholder for missing data
my $none = '-';
# formatting 20 chars per column, left aligned
my $fmt = "%-20s%-20s\n";
# print header
print sprintf($fmt, "M", "F");
# print data rows
foreach my $i (0..$max-1) {
print sprintf($fmt, ($m[$i] or $none), ($f[$i] or $none));
}
如果您对更复杂的格式（例如居中对齐的文本）感兴趣，您应该切换到Perl 为生成报告提供的特殊格式功能。
借用@HunterMcMillen
use strict;
use warnings;
use feature "say";
local $, = "\t"; # separator when printing list
my $i = (@F_array > @M_array) ? $#F_array : $#M_array;
say qw(M F);
say $M_array[$i] //"", $F_array[$i] //"" for 0 .. $i;