I guess you'd need some Practical sort of Extraction and Reporting Language for that ...
#!/usr/bin/perl use strict; use warnings; use Time::ParseDate; my @guesses; while (<DATA>) { my ($nic, $dates) = split /\s+/, $_, 2; my ($date) = split /GMT/, $dates; my $esec = parsedate($date); $date =~ s/ (\d) / 0$1 /; $date =~ s/ (\d{2}:\d{2}) / $1:00 /; push @guesses, "$esec $date $nic"; } print join "\n", map {s/\d+\s//;$_} sort @guesses; __DATA__ 5mi11er Mon Oct 17 16:25:00 2005 GMT Tue Sep 20 14:27:03 2005 GMT ambrus Wed Oct 12 17:00:00 2005 GMT Tue Sep 20 11:37:03 2005 GMT aukjan Tue Oct 18 13:33 2005 GMT Tue Sep 20 11:26:47 2005 GMT baldpenguin Sun Oct 23 14:32:00 2005 GMT Tue Sep 20 15:19:01 20 +05 GMT blazar Thu Oct 6 18:03:39 2005 GMT Tue Sep 20 10:50:45 2005 GMT blokhead Mon Oct 31 00:00:00 2005 GMT Tue Sep 20 15:29:54 20 +05 GMT
Some output ...
[root@laptop robin]# ./guess Mon Sep 26 11:27:30 2005 poqui Mon Oct 03 14:05:00 2005 etm117 Thu Oct 06 18:03:39 2005 blazar Mon Oct 10 11:11:00 2005 castaway Mon Oct 10 17:56:00 2005 jcoxen Mon Oct 10 20:00:00 2005 tomte Tue Oct 11 04:24:27 2005 jbrugger Wed Oct 12 12:47:05 2005 ww
Cheers,
R.
In reply to Re^2: When will the 500.000th node appear?
by Random_Walk
in thread When will the 500.000th node appear?
by castaway
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |