如何跳过类似于 Haskell 模式匹配的 Perl 列表分配中的元素？

Question

在 Haskell（和其他各种函数式编程语言）中，pattern matching 可用于分配列表的特定元素，同时丢弃其他元素：

Prelude> let [x, _, z] = "abc"
Prelude> x
'a'
Prelude> [z, x]
"ca"

请注意，“_”不是变量，也没有被赋值：

Prelude> _

<interactive>:5:1: Pattern syntax in expression context: _

对于用 Perl 编写的 Irssi 脚本，我想做类似的事情并丢弃 '@_' 的第二个^nd 元素（即不将其分配给任何东西）：

my ($message, _, $windowItem) = @_;

此操作失败并显示错误消息：“Can't declare constant item in "my" at [...]overlength_filter.pl line 17, near ") ="”

那么这个下划线通配符的 Perl 等价物是什么？

Answer 1

只需将其分配给undef。

my ($message, undef, $windowItem) = @_;

Answer 2

你也可以取数组的一部分:)

my( $message , $winItem ) = @_[ 0, 2];