假设,我有 2 个字符串。
$file1_out="astra.abs ::nerve : Costa.br_.cotAlev.ksaf.large.props.fault_check"
$file2_out="astra.abs ::nerve : Costa.br_.cotBlev.ksaf.large.props.fault_check"
您可以看到,唯一的区别是 cotAlev 和 cotBlev 中的 2 个字符串中的 A 和 B。我想比较它们并获得 2 个新变量
$part1="astra.abs ::nerve : Costa.br_."
$part2=".ksaf.large.props.fault_check"
$var="cot_lev" ###removed the mismatching character
这是中断直到第一个不相等的单词并分成 3。我怎么能做到这一点在 PERL 中使用正则表达式
我是 perl 的新手,在这里使用 C 中常见的循环概念来解决这个问题。我通过将字符串分解为字符来比较每个字符,然后将它们相应地组合成 3 个变量来实现这一点。但有人告诉我有更简单的方法可以做到这一点。有很多比较要做,所以速度确实很重要......