Perl拆分函数-如何在一行中将指定的数组值分配给变量

Question

这是一种使用单行代码将数组值分配给使用split函数的变量的方法吗?

我有下面的代码。这工作。

my @Fields = split(',',@_[0]);
my $Unit = @Fields[2];

想知道它是否可以像下面这样写，他们返回语法错误。

my $Unit = split(',',@_[0])[2];
my $Unit = @(split(',',@_[0]))[2];

Answer 1

你的第二个非常接近。删除前面的@:

my $Unit = (split(',', $_[0]))[2];

(注:$_[0]代替单元素数组切片@_[0]…如果你有use warnings;的效果，你应该，这将给你一个。)