将数组中的"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"); 应该这样做.