gpt4 book ai didi

regex - perl 删除连续的重复行

转载 作者:行者123 更新时间:2023-12-01 07:00:48 29 4
gpt4 key购买 nike

我想删除连续的重复行。即例如

**test.txt**
car
speed is good
bike
slower than car
plane
super fast
super fast
bullet train
super fast

这将删除除第一次出现之外的所有重复行。
perl -ne 'print unless $a{$_}++'

但我希望输出是
    **test.txt**
car
speed is good
bike
slower than car
plane
super fast
bullet train
super fast

我试过这个 oneliner 但这并没有做任何事情,只是打印输入。
perl -00 -F'<\w+>|</\w+>' -i.bak -lane 'foreach(@F){if ($_=~/\w+/ && ($a ne $_)){print "$_";$a=$_;}}'

这该怎么做???

最佳答案

为什么不直接使用 uniq ?

uniq file.txt

结果:
car
speed is good
bike
slower than car
plane
super fast
bullet train
super fast

您也可以使用 awk 来执行此操作:
awk 'line != $0; { line = $0 }' file.txt

关于regex - perl 删除连续的重复行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12452668/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com