• [^] # Re: Ma tentative

    Posté par . En réponse au message Parser / Modifier le fichier dhcpd.conf. Évalué à 2.

    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