如何从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

在_，

的所有地方将$word字符转换为空格字符

$word =~ tr|_| |;

在你的情况下

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