数组中仅由字符串包围的Perl引号

我需要将数字以外的单引号放在数组中

我尝试了以下代码，但不起作用。谁能帮我把它整理一下吗

$data = join ',', map { /'\w+'/ } @$row[0..3];

输入/输出：

Input :
[1,string test, value test, 5]
Output:
(1,'string test', 'value test', 5)

在元素中没有一个数字的元素周围放置

my $data = join ',', map { /[0-9]/ ? $_ : "'${_}'" } @$row[0..3];

其中字符串10测试没有被引用

或者，只保留无引号的纯整数

my $data = join ',', map { /[^0-9]/ ? "'${_}'" : $_ } @$row[0..3];

它还引用了带有数字的字符串，如上面的示例所示

对于非整数，有

当然，第二种情况下的整数也适用。

在没有一个数字的元素周围放置

my $data = join ',', map { /[0-9]/ ? $_ : "'${_}'" } @$row[0..3];

其中字符串10测试没有被引用

或者，只保留无引号的纯整数

my $data = join ',', map { /[^0-9]/ ? "'${_}'" : $_ } @$row[0..3];

它还引用了带有数字的字符串，如上面的示例所示

对于非整数，有

---

当然，第二种情况下的整数也适用。

您也可以用于测试。@melpomene是的，您是对的，必须对除整数以外的所有整数进行排序，不是吗？添加，谢谢，您也可以用于测试。@melpomene是的，您是对的，必须对除整数以外的所有整数进行排序，不是吗？添加，非常感谢。