Perl代码打印数组触发未初始化值错误，请求排查代码问题

咱们一步一步拆解你代码里的两个核心问题：

1. 变量赋值没加引号，Perl根本没拿到你想要的字符串 #

你写的my $test = 1234.test.csv;犯了Perl里的常见错误——字符串没加引号。Perl会把这种没加引号的内容当成表达式解析，这里的.是字符串连接符，所以它会尝试把1234、test、csv这三个部分拼起来，但test和csv都是没定义的裸词变量，这不仅会先触发警告，最终$test的值也完全不是你预期的"1234.test.csv"。

正确的写法必须给字符串加上引号：

my $test = "1234.test.csv";

2. split的分隔符用了正则元字符，分割逻辑完全跑偏了 #

Perl的split函数默认把第一个参数当成正则表达式处理，而.在正则里是匹配任意单个字符的特殊元字符。就算你把$test赋值改对了，split '.', $test实际上是把字符串里的每个字符都当成分隔符，这会导致分割后的数组是空的（所有字符都被当作分隔符，没有留下任何要保留的内容），所以$array[0]自然是未初始化的变量，也就触发了你看到的错误。

要按字面意义的点号分割，有几种正确的写法：

# 方法1：转义正则里的点号，让它变成普通字符
my @array = split /\./, $test;
# 方法2：用quotemeta自动转义特殊字符
my @array = split quotemeta('.'), $test;
# 方法3：给split加第三个参数0，强制按字面处理分隔符
my @array = split '.', $test, 0;

改完这两处之后，$array[0]就会是你想要的"1234"，打印时就不会报错啦。

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