perl - perl 如何从字符串中删除符号（下划线）

Question

嗨，我试图从 perl 中的单词中删除 _（下划线）。我在数据库的表中有一些东西，并且有带下划线的单词，我希望更好地打印样式...... :)

my $result = $sth->fetchall_arrayref;
my $randid = rand @$result; 
my $row    = $result->[ $randid ];
if($row ne ''){

     print "- @$row\n";
     print "<BR />";

     } else { 
          print "";
 }

现在输出：

word_and_word
next_word
and_next_word

我想要：

word and word
next word
and next word

Answer 1

在所有地方将 char转换_为空格 char $word，

$word =~ tr|_| |;

在你的情况下，那将是

for my $row (@$result) { $row->[0] =~ tr|_| |; }