将数组中的“NULL”字符串更改为数组perl中的undef

Question

我正在从一个数据文件构建一个数组，该数据文件用作缓存SQL语句的参数列表。这适用于针对Oracle数据库运行的perl DBI。

例如：

@params = ("This", "that", "NULL", "finish");

我需要将其更改为：

@params = ("This", "that", undef, "finish");

我已经google了这个，并且建议用字符串替换s ///地图。我不知道如何为给定条件取消数组中的元素。

Answer 1

for (@params) { $_ = undef if $_ eq 'NULL'; }

Answer 2

@params = map { $_ eq 'NULL' ? undef : $_ } ("This", "that", "NULL", "finish");应该这样做。

Answer 3

这可以非常简单地在for提供的列表上使用grep循环完成：

undef $_ for grep $_ eq 'NULL', @params;