如何删除重复的 #include 指令

Question

#include <stdint.h>
#include <stdlib.h>
#include <VideoInChain.h>
#include <VideoOutChain.h>
#include <stdint.h>
#include <stdlib.h>
...//rest of code

我需要删除系统头文件重复，而不会影响其余代码

我试过了

sub uniq {
  my %seen = ();
  my @r = ();
  foreach my $a (@_) {
     unless ($seen{$a}) {           
         push @r, $a;
         $seen{$a} = 1;
      }
    }
  return @r;
  }
  @lines_temp = uniq(@lines_temp);

但它删除了所有类型的重复，包括"（"，"{"和空格

我只需要删除重复的系统文件

Answer 1

sub uniq {
  my %seen;
  my @r;
  for my $a (@_) {
     my ($m) = $a =~ /#includes+<(.+?)>/;
     push @r, $a if !$m or !$seen{$m}++;
  }
  return @r;
}
@lines_temp = uniq(@lines_temp);

或

sub uniq {
  my %seen;
  return grep {
     my ($m) =~ /#includes+<(.+?)>/;
     !$m or !$seen{$m}++;
  } @_;
}
@lines_temp = uniq(@lines_temp);

或单行，

perl -ne '($m) = /#includes+<(.+?)>/; print if !$m or !$s{$m}++' file