As a side note, you may want to use the everything up to and including the hour if your file can cover a time period longer than 24 hours:
#! /usr/bin/perl
use strict;
use warnings;
my %seen;
while (my $line = <>) {
print $line unless $seen{substr $line, 0, 13}++;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
