Fjerne besteme IP'er fra en liste

luk det ene spørgsmål

andet spg er nu lukket.

kan dette gøres med
kommandoen diff ?

jeg har lavet et perlscript som gør det:
#!/usr/bin/perl
use strict;
use FileHandle;

my ($key,$value);

my $fh = new FileHandle ("< IP.txt");
my $gh = new FileHandle ("< removeIP.txt");

my (%ip, %remip);

while (<$fh>) {
  chomp;
  $ip{$_} = '1';
  #print "$_ \n";
}
while (<$gh>) {
  chomp;
  $remip{"$_"} = '1';
  #print "$_ \n";
}

my @goodIp = ();
foreach (keys %ip) {
    push(@goodIp, $_) unless exists $remip{$_};
}

#print "goodIp @goodIp \n";

my $hh = new FileHandle (">output.txt");
my $ipaddr;
foreach $ipaddr (@goodIp) {
    print $hh "$ipaddr\n";
}

Det virker, mange tak

Hvis du lige smider et svar, så skal jeg nok lige give dig et accept :)

det kunne vist gøres lidt mere generelt ved at lave filnavnene være parametre .. mend et er lagt ud til læseren :-)

Ja, jeg laver det bare selv om så den tager imod et parameter,
men vil det stadig køre stabil hvis listen er på flere millioner ?

ja - perl kan allokere så meget ram der er til rådighed

Kanont