正则表达式用小于（＆lt;）符号替换小于（＆lt;）的符号

Question

在Perl中，我需要使用正则表达式将小于符号（＆lt;）替换为大于符号（＆gt;）。我试过了：

s/</>/g;

以及

s/</\>/g;

可以找到（＆lt;）但它不会进行替换。

请帮忙。我对Perl很新。

Answer 1

如果您只想用一个字符替换另一个字符，请尝试 tr/// ：

$text =~ tr/</>/;

Answer 2

s/</>/g实际上是正确的。

$ perl -E'
    my $s = "abc<def<ghi";
    $s =~ s/</>/g;
    say $s;
'
abc>def>ghi

不过，

tr/</>/会更快。

$ perl -E'
    my $s = "abc<def<ghi";
    $s =~ tr/</>/;
    say $s;
'
abc>def>ghi