Arrays 将perl数组中的逗号替换为点

有人知道如何在perl中用点替换数组中的逗号吗

INPUT:

my @array = qw(6,2 5,2 4,2 3,2 2,2 1,2);

foreach (@array) {
print $_."\n";
}

EXPECTED OUTPUT:

6.2
5.2
4.2
3.2
2.2
1.2

可以使用：

但是，由于替换的LHS没有任何regex-y，因此它更适合于此任务：

tr/,/./ for @array;

可以使用：

但是，由于替换的LHS没有任何regex-y，因此它更适合于此任务：

tr/,/./ for @array;

你可以试试

你可以试试

你需要

no warnings 'qw'

能够做到这一点而不必抱怨。（我希望您启用了警告？）

这会满足你的需要

use strict;
use warnings;
use 5.014;

no warnings 'qw';

my @array = map tr/,/./r, qw(6,2 5,2 4,2 3,2 2,2 1,2);

say for @array;

输出

6.2
5.2
4.2
3.2
2.2
1.2

---

更新

如果已经定义了

@array

，并且需要修改它，那么只需编写

tr/,/./ for @array

你需要

no warnings 'qw'

能够做到这一点而不必抱怨。（我希望您启用了警告？）

这会满足你的需要

use strict;
use warnings;
use 5.014;

no warnings 'qw';

my @array = map tr/,/./r, qw(6,2 5,2 4,2 3,2 2,2 1,2);

say for @array;

输出

6.2
5.2
4.2
3.2
2.2
1.2

---

更新

如果已经定义了

@array

，并且需要修改它，那么只需编写

tr/,/./ for @array

---

我懂了。谢谢你的提示，我明白了。谢谢你的提示。高尔夫：

say tr/，//rfor@array;@ikegami:
y/，/。/，比如说for@array;高尔夫：
说tr/，//rfor@array;@ikegami:
y/，/。/，比如说for@array;