#!/usr/local/perl/bin/perl -w
#
# Resolve IP addresses in web logs.
# Diego Zamboni, Feb 7, 2000
use Socket;
# Local domain mame
$localdomain=".your.local.domain";
while (<>) {
@f=split;
if ($f[0] =~ /^[\d.]+$/) {
if ($cache{$f[0]}) {
$f[0]=$cache{$f[0]};
}
else {
$addr=inet_aton($f[0]);
if ($addr) {
$name=gethostbyaddr($addr, AF_INET);
if ($name) {
# NOTE: To ensure the veracity of $name, we really
# would need to do a gethostbyname on it and compare
# the result with the original $f[0], to prevent
# someone spoofing us with false DNS information.
# See the comments below. For this application,
# we don't care too much, so we don't do this.
# Fix local names
if ($name !~ /\./) {
$name.=$localdomain;
}
$cache{$f[0]}=$name;
$f[0]=$name;
}
}
}
print join(" ", @f)."\n";
}
else {
print $_;
}
}
-
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.
|