This may help get you started. Incorporating this into a CGI.pm script is left as AEFTR. (Hint: There's not much point in useing CGI; if your going to produce the html yourself.)

Using Date:Manip makes the date calculation part easy, (though the verbose but entirely opaque documentation has me gritting my teeth and banging my head every time). The regex I've used may not be robust, but there are plenty of other offers above to choose from. 

#! perl -slw
use strict;
use Date::Manip;
use Data::Dumper;

my $now = ParseDate( scalar localtime());
my $then = DateCalc( $now, ParseDateDelta( "7 hours 48 minutes ago" ))
+;
my $err;
my $re = qr/
    ^.*?                    # Skip the first part
    \[([^\]]+)\]\s+            # capture everything between []
    "[^"]+"\s+                # skip a quoted string and whitespace
    .*?                        # and a couple of numbers or blanks
    "( [^"]+ )"                # capture the next quoted string
/x;

my %referrers;
while(<DATA>) {
    my @chunks = /$re/;
    my $ts = ParseDate $chunks[0];
    print "The line '@chunks' was logged ",
        Delta_Format( DateCalc( $ts, $now, \$err ), 2, ("%mt")),
        " minutes ago.";
    if ( Date_Cmp( $ts, $then ) > 0
    and  Date_Cmp( $ts, $now  ) < 0 ) {
        print "The previous line is within the window. Counting...";
        $referrers{$chunks[1]}++;
    }
    else {
        print "Discarding previous line";
    }
}

print "\nThese are the referrers counted:\n", Dumper(\%referrers);

__DATA__
24.208.200.247 - - [10/Dec/2002:18:05:09 -0500] "GET /images/header_ao
+d2_08.gif HTTP/1.0" 200 663 "http://www.indystar.com/help/help/availa
+ble.html" "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; H010818)"
24.208.200.247 - - [10/Dec/2002:18:08:13 -0500] "GET /images/header_ao
+d2_10.gif HTTP/1.0" 304 - "http://www.indystar.com/help/help/availabl
+e.html" "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; H010818)"
24.208.200.247 - - [10/Dec/2002:18:11:19 -0500] "GET /images/storysear
+ch2.gif HTTP/1.0" 200 142 "http://www.indystar.com/help/help/availabl
+e.html" "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; H010818)"

[download]

Produces 

C:\test>218961
The line '10/Dec/2002:18:05:09 -0500 http://www.indystar.com/help/help
+/available.html' was logged 469.23 minutes ago.
Discarding previous line
The line '10/Dec/2002:18:08:13 -0500 http://www.indystar.com/help/help
+/available.html' was logged 466.17 minutes ago.
The previous line is within the window. Counting...
The line '10/Dec/2002:18:11:19 -0500 http://www.indystar.com/help/help
+/available.html' was logged 463.07 minutes ago.
The previous line is within the window. Counting...

These are the referrers counted:
$VAR1 = {
          'http://www.indystar.com/help/help/available.html' => '2'
        };

[download]

Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

In reply to Re: pulling by regex by BrowserUk
in thread pulling by regex by mkent

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.