从文件中删除重复行-perl

Posted

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了从文件中删除重复行-perl相关的知识，希望对你有一定的参考价值。

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. my $file = '/path/to/file.txt';
  7. my %seen = ();
  8. {
  9.    local @ARGV = ($file);
  10.    local $^I = '.bac';
  11.    while(<>){
  12.       $seen{$_}++;
  13.       next if $seen{$_} > 1;
  14.       print;
  15.    }
  16. }
  17. print "finished processing file.";

以上是关于从文件中删除重复行-perl的主要内容，如果未能解决你的问题，请参考以下文章

从文本文件中删除重复行？

从文件中删除重复的反向行的问题

Bash脚本从.txt文件中删除特定行[重复]

如何从顶部文件或标准输出中删除 n 行（即撕掉它的标题）[重复]

从 bash 或 perl 脚本中读取 CSV [重复]

如何从 Perl 中的 2 个文件之一中删除公共行？