Perl脚本中split分割CSV格式命令行参数后数组为空的问题排查

哦，这个坑我刚学Perl的时候也踩过！你遇到的问题核心是Perl的词法变量作用域在搞鬼。

先看你原来的代码问题出在哪：

my @projects;  # 这里声明了一个当前作用域的数组
if ( defined $opt_proj ) {
    print $opt_proj;
    my @projects=split /,/,$opt_proj;  # 这里又用my声明了一个局部的同名数组！
}
print "@projects\n";  # 这里访问的是最开始那个空数组

你在if代码块里用my @projects重新创建了一个新的数组变量，这个变量只在if的大括号内部有效——就像你在卧室里放了个新柜子，放了东西进去，出了卧室就看不到这个柜子了，客厅原来的空柜子还是空的。

修正方案 #

只需要去掉if块里的my，直接给外面已经声明好的@projects赋值就行：

my @projects;
if ( defined $opt_proj ) {
    print $opt_proj;
    @projects = split /,/, $opt_proj;  # 去掉my，复用外部的数组变量
}
print "@projects\n";
exit;

或者更简洁的写法，用三元运算符一步初始化：

my @projects = defined $opt_proj ? split /,/, $opt_proj : ();
print "@projects\n";
exit;

这样处理后，split出来的项目就会正确存入@projects数组里，你再打印或者遍历就能看到内容啦。

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