Perlmodul zum DHCPD.conf parsen (Perl/CGI)

[thread]664[/thread]

Perlmodul zum DHCPD.conf parsen

OnkelBlacky

2006-02-01 09:21

User since
2004-08-20
16 Artikel
BenutzerIn
[default_avatar]

Guten Morgen Miteinander,

kennt jemand ein Perlmodul, mit dem sich die Konfigurationsdatei dhcpd.conf eines Linux-DHCP-Servers nach den eingetragenen Rechnernamen parsen lässt ?

Bzw. würde mir auch ein Regulärer Ausdruck weiterhelfen,
der mir den Rechnernamen aus der folgenden Beispielskonfig heraus parst.

-------------------------------------------
host w4de3csy0000006 {
hardware ethernet 00:55:66:77:88:99;
fixed-address w.x.y.z;
option host-name "w4de3csy0000006";
}
----------------------------------------------

Kann wir hier jemand helfen ?

Vielen Dank
Torsten

GwenDragon

2006-02-01 09:38

User since
2005-01-17
14548 Artikel
Admin1

Was brauchst du? Den host-name?

Code: (dl )

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


my @hosts = ();
open( F, './dhcp.conf') or die "$!";
foreach my $s ( <F> ) {
    my ($hostname) = $s =~ /\s+host-name\s+"?([^;"]+)"?;/;
    push @hosts,$hostname if defined $hostname;
}
close ( F );

print "Rechner: \n", join( "\n", @hosts);

1;

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

OnkelBlacky

2006-02-01 10:06

User since
2004-08-20
16 Artikel
BenutzerIn
[default_avatar]

genau,

Vielen Dank. es hat funktionert.

Torsten

View all threads created 2006-02-01 09:21.