Re^2: grep ip address from dhcpd.leases file

thanks for the reply..if i want to take the present ip address which are entering into that dhcp.leases then is there any module to do that...thanks in advance..

Comment on Re^2: grep ip address from dhcpd.leases file

Replies are listed 'Best First'.
Re^3: grep ip address from dhcpd.leases file by Kenosis (Priest) on Dec 15, 2013 at 17:22 UTC
Provided you have read permissions for dhcp.leases, just use that file as your data source in the above script: `use strict; use warnings; local $/ = 'lease'; my $leaseFile = '/var/lib/dhcp3/dhcpd.leases'; open my $fh, '<', $leaseFile or die $!; while (<$fh>) { my ($ip) = /\s+(\S+)\s+/ or next; my $client = /client-hostname\s+(".+")/ ? $1 : ''; print "$ip,$client\n"; } close $fh;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: grep ip address from dhcpd.leases file
by Kenosis (Priest) on Dec 15, 2013 at 17:22 UTC

Provided you have read permissions for dhcp.leases, just use that file as your data source in the above script:

use strict;
use warnings;

local $/ = 'lease';
my $leaseFile = '/var/lib/dhcp3/dhcpd.leases';

open my $fh, '<', $leaseFile or die $!;

while (<$fh>) {
    my ($ip) = /\s+(\S+)\s+/ or next;
    my $client = /client-hostname\s+(".+")/ ? $1 : '';
    print "$ip,$client\n";
}

close $fh;
[download]

[reply]
[d/l]