Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

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

by varalaxmibbnl (Acolyte)
on Dec 15, 2013 at 07:40 UTC ( #1067212=note: print w/ replies, xml ) Need Help??


in reply to Re: grep ip address from dhcpd.leases file
in thread 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
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;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1067212]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (3)
As of 2014-09-22 23:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (208 votes), past polls