hi martin,
"Schmitt, Martin (Dregis STB C)" schrieb:
>
> Hi Frank!
ich habe dies einfach mal uebernommen - NICHT paste and copy -weil ich
meinte verstanden zu haben was du und perl da machen.
leider muss ich noch weiter fummeln, weil ich es nicht zzum laufen
bekomme. die ausgabe in das diff_ip entspricht dem des scan_ip (was
eigentlich nicht sein kann). next if ($ref_ips{$_}}; habe ich
korrigiert.
^
naja, so bleibt wenigstens etwas womit ich mich bei langeweile am
wochenende beschaeftigen kann ;-)
hilfreich ist es auf jeden fall, weil ich doch eine kleine ahnung
bekomme wie man das geschickt und ohne kommandozeilen-contest in perl
angehen kann.
danke bis hierher.
ciao,
frank
-----------------------
kaiserslautern
> #!/usr/bin/perl -w
> use strict or die;
....................
> open my $ref, "<$reffile" or die;
> while (<$ref>){
> chomp;
> $ref_ips{$_} = $_;
> }
> close $ref;
>
> open my $scan, "<$scanfile" or die;
> open my $diff, ">$diffile" or die;
> while (<$scan>){
> chomp;
> # Voraussetzung: Zeile ist IP-Adresse.
> # Sonst mit einer Regex rausfischen.
> next if ($ref_ips{$_}};
> print $diff "$_\n";
> }
> close $diff;
> close $scan;
>
----------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org
