0 
#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);

ただし、「(」、「{」、および空白スペースを含むすべてのタイプの重複が削除されます

重複するシステム ファイルのみを削除する必要がある

4

1 に答える 1

6 
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
于 2013-09-20T21:48:37.753 に答える