如何在Perl中打印数组时将未定义元素显示为undef？

直接在双引号中插值包含undef元素的数组时，Perl会触发未初始化变量的警告，同时将undef显示为空字符串。要实现无警告输出且把undef替换为"undef"，可以通过以下原生方法解决：

方法一：封装格式化函数（推荐） #

写一个可复用的函数遍历数组，显式将undef元素替换为"undef"，再用空格连接元素：

#! /usr/bin/env perl

use warnings;
use strict;
use utf8;
use feature qw<say>;

sub format_array {
    return join(' ', map { defined $_ ? $_ : 'undef' } @_);
}

my @a1 = 1..8;
my @a2 = (4143, undef, 8888);
my @a3 = qw<a b c>;

say format_array(@a1) . ' and ' . format_array(@a2) . ' and ' . format_array(@a3);

exit(0);

方法二：直接内联处理 #

如果不需要复用逻辑，可以直接在打印时内联map转换：

#! /usr/bin/env perl

use warnings;
use strict;
use utf8;
use feature qw<say>;

my @a1 = 1..8;
my @a2 = (4143, undef, 8888);
my @a3 = qw<a b c>;

say join(' ', map { defined $_ ? $_ : 'undef' } @a1) 
    . ' and ' 
    . join(' ', map { defined $_ ? $_ : 'undef' } @a2) 
    . ' and ' 
    . join(' ', map { defined $_ ? $_ : 'undef' } @a3);

exit(0);

两种方法运行后都会输出预期结果，且无警告：

1 2 3 4 5 6 7 8 and 4143 undef 8888 and a b c

原理说明 #

• map { defined $_ ? $_ : 'undef' } @_：遍历数组每个元素，检查是否已定义，已定义则保留原值，否则替换为"undef"
• join(' ', ...)：用空格连接处理后的元素，模拟数组默认插值的分隔效果
• 显式检查defined避免了Perl触发未初始化变量的警告

内容的提问来源于stack exchange，提问作者user3158810