[问题求助] [已解决]Perl怎样删除相邻的重复行？

CUer

a.txt：

aaa
aaa
bbb
aaa
bbb
bbb
bbb
ccc
bbb
复制代码

希望处理后得到b.txt：

aaa
bbb
aaa
bbb
ccc
bbb
复制代码

523066680

open READ,"<a.txt" or die "file not exist $!";
open WRITE,">b.txt";
$ever="";
foreach (<READ>) {
	if ($_ ne $ever) {print WRITE;}
	$ever=$_;
}
<STDIN>;
close READ;
close WRITE;
复制代码