Perl 默认变量 $_ 或 @_ 在 OS X 和 linux 上使用 split 的行为是否不同？

Question

我是 Perl 的新手，并且一直在努力寻找这个问题的答案，但我被困住了。

举个例子：

my $filein = $ARGV[0];
open(SNPIN,$filein);

while(<SNPIN>)
{
   chomp;
   split(/\s+/);
   print "$_[0]\n";
}

close(SNPIN);

我使用的测试文件有以下几行：

This is a test.
Is a test.
A test.

此脚本在我们的 linux 服务器（使用 perl 5.10）上执行良好，输出每行的第一个单词 - 尽管它给了我以下警告：

Use of implicit split to @_ is deprecated at scan_test.pl line 7.

但是当我尝试在运行 OS X（使用 perl 5.12.3）的本地计算机上执行它时，出现以下错误：

Useless use of split in void context at scan_test.pl line 7.
Use of uninitialized value $_[0] in concatenation (.) or string at 
scan_test.pl line 8, <SNPIN> line 1.

显然这是一个虚拟脚本。我继承了其他人在我们的服务器上运行的极其冗长和复杂的脚本，但我想在本地开发它，而不必遍历整个脚本并将所有默认变量调用重新分配给另一个变量。无论我尝试过什么（包括“使用 v5.10；”），都不允许我在本地机器上使用默认变量。

有什么想法吗？非常感谢您的帮助。

Answer 1

不是平台，而是 Perl 版本。

你在 Perl 5.10 上得到的警告应该是一个线索：deprecated 的意思是“你不应该使用它，因为它会在以后的某个版本中停止工作”。显然，它确实在 Perl 5.10 和 5.12 之间停止工作。

---

要修复它，只需将split 返回的列表显式分配到一个数组中。如果您想继续使用@_，这应该可以：

chomp;
@_ = split(/\s+/);
print "$_[0]\n";

但我真的建议使用您自己的命名数组，因为@_ 具有特殊含义（它用于将参数传递给子程序）：

chomp;
my @items = split(/\s+/);
print "$items[0]\n";