Hallo Thomas, lug-dd@schlittermann.de writes:

Folgende Lösung geht davon aus, dass jeder Host nur eine Ethernetadresse und nur eine IP-Adresse hat.

Jaja, richtig. Die schweren Fälle werden anders behandelt.

#!/usr/bin/env python

Achherrje, das bringsch noch nicsch. Aber Danke.

Ach habe mich abends dann doch noch an den LAptop gesetzt und ein wenig geübt:

#!/usr/bin/perl use strict; use warnings;

my @match; my $z; my $line;

open(OUT,"> data.out") || die ("Ausgabefile nicht zu öffnen"); while(<>){

$z =$_; $z =~ s/^\s+//; #Leerzeichen entfernen $z =~ s/;//; #Semikolon entfernen $z =~ s/{//; #endklammer entfernen $z =~ s/^\s+//; #nochma Leerzeichen entfernen if($z =~ /host/){ @match=split(" ",$z); $line = "$match[1],"; print OUT "$match[1],"; } if($z =~ /ethernet/){ @match=split(" ",$z); $line = "$line$match[2],"; print OUT "$match[2],"; } if($z =~ /fixed-addres/){ @match=split(" ",$z); $line = "$line$match[1]"; print OUT "$match[1]\n"; }

} close(OUT);

Das Ergebnis sieht genauso aus, wie bei dir Das Script ist zwar nicht elegant, aber tut. Nun muss ich nur noch die Einträge in der csv-Datei rumdrehen, dass der letzte in der Zeile, der erste ist, vornedran einen leeren Eintrag und ab in die DB.....

Mit freundlichen Grüßen

Jens Puruckherr IT/Webshop

--------------------------------------------- cyberport.de GmbH Versandhaus für Technik & Lifestyle

Am Brauhaus 5 01099 DRESDEN Fon: +49 (0)351/ 33 95 -7808 Fax: +49 (0)351/ 33 95 -799 Webseite: http://www.cyberport.de --------------------------------------------

Am Freitag, 6. September 2002 09:42 schrieb Heiko Schlittermann:

#! /usr/bin/perl
$_ = join("", <STDIN>);

was macht dieses Zeile???

while (/^\s*host\s+(\w+)+\s+{\s+ 
        hardware\ ethernet\ ([[:xdigit:]:]+);\s+ 
        fixed-address\ ([\d.]+);.*?}/ixgsm) {
    print "$1,$2,$3\n";
}

Jungs, ihr seit Klasse! Hat schon mal jemand über das Best-Of nachgedacht?

Mit freundlichen Grüßen

Jens Puruckherr

Am Freitag, dem 06. September 2002 um 10:18:55, schrieb Stefan Lagotzki:

adressen.awk

Die Idee mit awk ist tatsächlich die eleganteste bisher, aber mit perl wird das gleiche zum übersichtlichen Vierzeiler (inklusive Kommentarbehandlung):

-------- dhcp.pl ------------------------------------- s/#.*//; $host = $1 if /host (\S+)/; $mac = $1 if /hardware ethernet (\S+);/; print "$host,$mac,$1\n" if /fixed-address (\S+);/; -------- dhcp.pl -------------------------------------

Aufrufen mit 'perl -n dhcp.pl /etc/dhcp.conf .

Torsten

Am Samstag, dem 07. September 2002 um 13:08:14, schrieb Jens Puruckherr:

Am Freitag, 6. September 2002 09:42 schrieb Heiko Schlittermann:

...

$_ = join("", <STDIN>);

was macht dieses Zeile???

perldoc -f join

Am Samstag, dem 07. September 2002 um 14:29:53, schrieb Stefan Lagotzki:

Torsten Werner wrote:

...

Die Idee mit awk ist tatsächlich die eleganteste bisher, aber mit perl wird das gleiche zum übersichtlichen Vierzeiler (inklusive Kommentarbehandlung):

Mit awk brauche ich auch nur vier Zeilen :-)

Ohne Kommentarbehandlung hätte ich nur 3 Zeilen gebraucht!

Aber die Diskussion 'meins ist kürzer als deins' hatten wir schon einmal... ;-)

Torsten

On Mon, Sep 09, 2002 at 08:13:21PM +0200, Jens Puruckherr wrote:

Am Montag, 9. September 2002 16:06 schrieb Torsten Werner:

...

...

...

$_ = join("", <STDIN>);

was macht dieses Zeile???

perldoc -f join

Hmm, was join macht, weiss ich so ungefähr, es verkettet die Elemente einer Liste mir dem angegeben Trennzeichen. Ich rate jetzt mal - es wird der gesamte Inhalt von STDIN in eine Zeile geschrieben? Wasses nicht alles gibt....

Nicht in eine Zeile - sondern in ein Scalar. Es sind dann immer noch mehrere Zeilen. Aber eben in *einem* Wert.

Heiko

hallo,

lug-dd@schlittermann.de writes:

sieht ja reichlich umständlich aus.

Warum macht ihr es nicht so (ist schliesslich auch ein Einzeiler):

gawk '/host/ {str1=$2} /ethernet/ {str2=$3} /fixed-adress/ {str3=$2; printf "%s,%s,%s\n", str1, gensub(/;/,"",1,str2), gensub(/;/,"",1,str3);}' dhcp.conf

Das ist dann wenigstens halbwegs lesbar.

Leute - ihr seit so cuuuuul :-) Danke für die vielen Anregungen, aber das Problem ist schon keins mehr. Die Daten sind in der Datenbank. Deckel zu.

Mir scheint aber das Wort "fixed-adress" komisch. Wird es nicht "fixed address" geschrieben?

so stehts in der functionierenden config drinne...ist nich von mir. soeben fiel dem Admin aber ein, dass ich hätte die Mühe mir sparen können, da er etwas ähnliches vor einiger Zeit schon mal gemacht hatte und kramte sein eigenes Scipt raus:

awk '{if ($1=="hardware") {bla=$3;getline;printf("%s\t%s\n",$2,bla)}}' /etc/dhcpd.conf | sed 's/;//g' | sort | awk '{outgoing="iptables -A check_mac -s "$1" -m mac --mac-source "$2" -j RETURN";incoming="iptables -A check_mac -d "$1" -j RETURN";system(outgoing);system(incoming)}'

Das packt zwar die Daten gleich in die iptables-rules rein, aber das hätt ich schon noch zurechgebogen. Ich resümiere: 5 Lösungen für eine Kleinigkeit, die schon lange vorbei ist.

Da fällt mir ein: Es gab doch schon öfters derart sportliche Aktivitäten. Kann man die nicht sammeln und auf der Lug-Seite in eine Best-Of - Ecke packen. Kommt echt witzig!

Mit freundlichen Grüßen

Jens Puruckherr IT/Webshop

--------------------------------------------- cyberport.de GmbH Versandhaus für Technik & Lifestyle

Am Brauhaus 5 01099 DRESDEN Fon: +49 (0)351/ 33 95 -7808 Fax: +49 (0)351/ 33 95 -799 Webseite: http://www.cyberport.de --------------------------------------------