Board logo

标题: [问题求助] [已解决]Perl怎样删除相邻的重复行？ [打印本页]
作者: CUer    时间: 2011-6-4 08:27     标题: [已解决]Perl怎样删除相邻的重复行？

本帖最后由 CUer 于 2011-6-5 22:48 编辑

a.txt：
  1. aaa

  2. aaa

  3. bbb

  4. aaa

  5. bbb

  6. bbb

  7. bbb

  8. ccc

  9. bbb
复制代码
希望处理后得到b.txt：
  1. aaa

  2. bbb

  3. aaa

  4. bbb

  5. ccc

  6. bbb
复制代码
作者: 523066680    时间: 2011-6-4 12:46

  1. open READ,"<a.txt" or die "file not exist $!";

  2. open WRITE,">b.txt";

  3. $ever="";

  4. foreach (<READ>) {

  5. 	if ($_ ne $ever) {print WRITE;}

  6. 	$ever=$_;

  7. }

  8. <STDIN>;

  9. close READ;

  10. close WRITE;
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2