perl - 如何删除重复的#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 =~ /#include\s+<(.+?)>/;
     push @r, $a if !$m or !$seen{$m}++;
  }
  return @r;
}
@lines_temp = uniq(@lines_temp);

或者

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

或单线，

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