Emama a écrit 3 commentaires

En fait çà répond exactement à ce que je voulais.

Au cas où, si çà peut servir à quelqu'un voici le code (à modifier pour rendre le script un peu plus utile) :

    #! /usr/bin/perl

    use strict;
    use warnings;
    use utf8;
    use Net::ISC::DHCPd::Config;

    my $ipsubnet = '192.168.20.0';

    my $config = Net::ISC::DHCPd::Config->new(file=>'./dhcpd.conf');

    my @subnets = $config->find_all_children('subnet');

    foreach my $subnet (@subnets) {
        if ($subnet->{address} =~ /$ipsubnet/) {
            my $host = $subnet->add_host( {name => 'pnom6'} );
            $host->add_fixedaddress({value => 'pnom6.domain.net'});
            $host->add_hardwareethernet({value => 'D0:AA:12:BC:13:6A'}); 
            last; 
        }
    }

    print $config->generate;

Merci à toi Vroum

Oui , juste un copier/coller un peu fait à l'arrache.

Merci Vroum.

J'en étais arrivé à faire un peu la même chose que toi.
Après avoir fouillé dans le code du module je me suis retrouvé à faire quelque chose comme çà :

my $host = Net::ISC::DHCPd::Config::Host->new(name=>'pnom6');
my $ipadress = Net::ISC::DHCPd::Config::Host::FixedAddress->new(name=>'pnom6.domain.net');
my $macadress = Net::ISC::DHCPd::Config::Host::HrdwareEthernet->new(name=>'D0:AA:12:BC:13:6A');

$host->_add_child("Net::ISC::DHCPd::Config::Host::FixedAddress",$ipadress);
$host->_add_child("Net::ISC::DHCPd::Config::Host::HardwareEthernet",$macadress);

Il me reste juste à trouver comment ratacher tout çà au bon subnet.