Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
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

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;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1067212]
help
Chatterbox?
[Corion]: So currently, Filter::Simple mangles your code/line numbers if you use heredocs ;)
[Corion]: Of course, from a certain angle, it doesn't matter if your code line continues after <<FOO, but it would be nice if Filter::Simple / Text::Balanced didn't mangle that...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2017-01-22 10:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you watch meteor showers?




    Results (187 votes). Check out past polls.