problems parsing a DHCP.leases file.

[Angus]

Hi all,

 

I am having some problems filling a variable based on the contents of a
dhcpd.leases file.  All I want at this time is the hostname and ip address.
My eventual goal is to create hash of hashes with this information but for
now I just want to read in the file and see that I have defined my variables
correctly.  I am able to get the IP address but the $hostname variable is
always undefined.  The syntax for any given host in a leases file looks like
this: 

 

lease 10.10.97.207 {

  starts 2 2005/12/20 16:10:51;

  ends 2 2005/12/20 20:10:51;

  tstp 2 2005/12/20 20:10:51;

  binding state free;

  hardware ethernet 00:0b:97:2b:ea:fe;

  uid "\001\000\013\227+\352\376";

  client-hostname "HOST1";

}

 

Here is what I have so far.

 

#!/usr/bin/perl

# 

use strict;

use warnings;

 

my $dhcp_data = "dhcpd.leases";

 

my %dhcpd;

my $ip;

my $hostname;

 

{

open (DHCPD, $dhcp_data) || die "Can't open $dhcp_data $!\n"; 

 

while (my $line = <DHCPD>) {

next if ($line =~ /^\s*$/ or # blank line

             $line =~ /^\s*#/ );

 

if ($line =~ /^lease (\d+\.\d+\.\d+\.\d+)/) {

            $ip = $1; }

elsif ($line =~ /^client-hostname/) {

            $hostname = $1; }

else {next;};

print "I found IP:$ip\n";

print "I found Hostname: $hostname\n";

            }

}

 

Thanks,

 

-angus