如何使用；libtext dhcplases perl“；debian软件包？

“libtext dhcplases perl”是一个debian包，可用于解析dhcp租约文件。我使用

apt-get-install-libtext-dhcplases-perl

在ubuntu中安装了它。有人知道如何使用它吗

参见

perldoc Text:：DHCPLeases

，同样是：

use Text::DHCPLeases;

my $leases = Text::DHCPLeases->new("/etc/dhcpd.leases");

foreach my $obj ( $leases->get_objects ){
    print $obj->name;
    if ( $obj->binding_state eq 'active' ){
       ...
    }
}