perl - 在 perl 中使用字符替换

Question

嗨，我正在尝试从变量中删除 ':' s。

我做了以下程序，但它不起作用

$s="2:2:2:2:2";
$v=$(sed 's/://g' <<< $s);
print $v;

任何解决方案谢谢

Answer 1

第一：什么是$s？

如果它应该包含一个字符串，则必须添加引号。

Next：$(...)是shell编程，不是perl。

然后就不需要运行 shell 脚本来替换字符了。您可以在 perl 中执行此操作。

$s = "2:2:2:2:2";
$s =~ s/://g;
print $s;

如果您真的出于某种原因想要为此使用sed，并且您想编写一个执行此操作的 perl 脚本，则必须这样编写：

#!/usr/bin/env perl
$s="2:2:2:2:2";
$v=`sed 's/://g' <<< $s`;
print $v;