Leser: 2
|< 1 2 >| | 16 Einträge, 2 Seiten |
perl -ne 'print if($seen{$_}.=@ARGV) !~ /10$/' fileA fileB > fileC
perl -ne 'print unless($seen{$_}.=@ARGV) =~ /10$/' fileA fileB > fileC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
my %seen;
while(<>){
$seen{$_} .= @ARGV;
}
for(keys(%seen)){
print if($_ !~ /10$/);
}
|< 1 2 >| | 16 Einträge, 2 Seiten |