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.