hi monks when i run the following script
#!/usr/bin/perl
$now = time();
use Time::Local;
open(LEASE, "/var/lib/dhcp3/dhcpd.leases");
foreach $line (<LEASE>) {
chomp($line);
$data = 1 if $line =~ /^lease /;
$data = 0 if $line =~ /^}/;
if ($data) {
if ($line =~ /^lease/) {
$ip = (split(" ", $line))[1];
} elsif ($line =~ /^ starts/) {
($date, $time) = (split(" ", $line))[2,3];
($y, $m, $d) = split("/", $date);
($H, $M, $S) = split(":", $time);
$start = timelocal($S,$M,$H,$d,$m,$y);
} elsif ($line =~ /^ ends/) {
($date, $time) = (split(" ", $line))[2,3];
($y, $m, $d) = split("/", $date);
($H, $M, $S) = split(":", $time);
$stop = timelocal($S,$M,$H,$d,$m,$y);
} elsif ($line =~ /^ hardware ethernet/) {
$mac = (split(" ", $line))[2];
$mac =~ s/;//;
} elsif ($line =~ /^ client-hostname/) {
$client = (split(/\"/, $line))[1];
}
} else {
print localtime($start) . "\t" . localtime($stop)
+. "\t$ip\t$mac\t$client\n" if $stop >= $now;
$ip = ""; $start = ""; $stop = ""; $mac = ""; $cli
+ent = "";
}
}
close(LEASE);
it gives "Month '12' out of range 0..11 at dhcp.pl line 20" error...i don't understand what that error means properly please help me out to solve the problem...thanks in advance..
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.