如何编写Perl脚本来比较两个标量的多行文本?

时间:2018-03-19 09:45:17

标签: regex perl

我有两个字符串。

字符串1:

logging on
enable secret 5 $1$okZh$nSIVWr7vNHAqk231PisjN0
snmp-server community sph1nkx5 v1default RO 5
snmp-server ifindex persist
tacacs-server timeout 5
tacacs-server key 7 xxx

字符串2:

logging on


enable secret 5 xxx
snmp-server community  xxx
snmp-server ifindex persist
tacacs-server timeout 5
tacacs-server key 7 00070A160C5E190A002247

我想通过忽略空格来比较两个字符串&一些盯着"启用秘密" ," snmp-server community" &安培; " tacacs-server key"。

1 个答案:

答案 0 :(得分:0)

在进行比较之前,只需删除要忽略的内容。

for ($str1, $str2) {
   s/^(?:enable secret|snmp-server community|tacacs-server key)[^\n]*\n//mg;
   s/\s+//g;
}

$str1 eq $str2