如何用perl中的_替换字符串中的whitesapaces和tabs？

Question

$string = I am a boy

如何用下划线替换单词之间的空格？

Answer 1

你需要一个正则表达式和替换运算符来做到这一点。

my $string = 'I am a boy';
$string =~ s/\s/_/g;

您可以在perlre和perlretut中详细了解正则表达式。一个很好的工具是Rubular。

---

此外，您的代码将无法编译。你需要引用你的字符串，你需要在结尾加上一个分号。

Answer 2

$string = 'I am a boy';
$string =~ s/ /_/g;

Answer 3

$string =~ tr( \t)(_);  # Double underscore not necessary as per Dave's comment

Answer 4

这只是为了在perl中显示另一个选项。我认为Miguel Prz和imbabque显示更智能的方式，我个人按照imbabque显示的方式进行操作。

my $str = "This is a test string";
$str =~ s/\p{Space}/_/g;
print $str."\n";

，输出

This_is_a_test_string