Help for this page

Select Code to Download

Select or download this

#dhcp.pl
#!/usr/bin/perl
...
#$ssh -> cmd ("cd /var/lib/dhcp/");
@ar = $ssh -> cmd ("cd /var/lib/dhcp/ && cat dhcpd.leases |grep $ARGV[
+0]");
print "@ar";