Как удалить повторяющиеся директивы #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); 

или Oneliner,

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