perl 如何更改和删除一行中的字符？

dtcbnfnu 于 2023-02-09 发布在 Perl

关注(0)|答案(1)|浏览(115)

我试图用Perl把这些代码放在一行中。

$sdn = '"OMC=1,IONU=1,RACK=3,SR=6,SLOT=8,LPRU=1"';  # Format: Remove "=". Replace "," by "."
$sdn =~ s/[,]/./g; #tr[,][.];
$sdn =~ s/[=]//g;
$sdn =~ s/["]//g;
print $sdn;

在线Perl编辑器：https://www.tutorialspoint.com/execute_perl_online.php

perl

来源：https://stackoverflow.com/questions/57991933/how-do-i-change-and-delete-characters-in-one-line

1条答案

按热度按时间

q35jwt9p1#

为什么不使用内置翻译tr呢？我的答案的第一部分包含您的解决方案，下一部分是我的翻译。

my $sdn = '"OMC=1,IONU=1,RACK=3,SR=6,SLOT=8,LPRU=1"';  # Format: Remove "=". Replace "," by "."
$sdn =~ s/[,]/./g; #tr[,][.];
$sdn =~ s/[=]//g;
$sdn =~ s/["]//g;
print $sdn;            # OMC1.IONU1.RACK3.SR6.SLOT8.LPRU1

# re-assigned the same thing and used translation
$sdn = '"OMC=1,IONU=1,RACK=3,SR=6,SLOT=8,LPRU=1"';  # Format: Remove "=". Replace "," by "."
$sdn =~ tr/,="/./d;    # OMC1.IONU1.RACK3.SR6.SLOT8.LPRU1
print $sdn;

赞(0）回复(0）举报 2023-02-09

我来回答

perl 如何更改和删除一行中的字符？

1条答案

相关问题

热门标签

最新问答