This code is slightly modified version of miyagawa's code found at CodeRed notifier. Because I wasn't able to understand his regex to get $ip & $datetime, I chose another method to accomplish the task.

What I have thus far, produces output something like this: 

2001-08-03 17:57:28     66.120.120.203
2001-08-02 14:15:20     66.121.185.222
2001-08-05 16:51:28     66.24.60.57
2001-08-04 02:35:47     66.30.84.177
2001-08-01 18:52:22     66.74.16.2
2001-08-02 15:38:24     66.92.175.55

[download]

What I would like to do is have the output sorted by $datetime (the values of the hash %ip2date, rather than the keys). Thus far, I've not been able to see how to do this.

Here's what I have thus far: 

#!/usr/local/bin/perl -w 

use strict;
use Config;
use Getopt::Std;
use Mail::Sendmail;


getopts('f:', \my %opt);


my $from = 'me@myaddress.com';
my $to   = 'me@myaddress.com';

my %ip2date;  # $ip=key   $datetime=value
while (<>) {
    next unless m!GET /default\.ida ?[XN]+!;
    my @datetime=(split)[0,1];
    my $datetime=join(' ',@datetime);
    my $ip=(split)[2];
    next if $ip2date{$ip};
    $ip2date{$ip} = $datetime;
}

my $message = join '', map { "$ip2date{$_}\t$_\n" } sort keys %ip2date
+;
print "$message\n";

sendmail(
    To      => $to,
    From    => $from,
    Message => $message,
    Subject => "CodeRed Infection Notification",
);

[download]

In reply to Hash sorting by values by cajun

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.