Получить последние 10 минут почтового лога

[linux007]

Скриптик 10min:

#! /bin/bash

TIME=`date -d '-10minute' +%s`

while read line
do
time=`echo $line | cut -f 1,2,3 -d' ' `
time=`date -d "$time" +%s`
if [ $time -gt $TIME ]
then
echo $line
fi
done
Работает безумно медленно. Но работает

Comments

[what_me]

Как он поведёт себя в первые десять минут нового года?

[linux007]

Это зависит от того, как date -d отработает превращение в юниксовое время строку без года.

[what_me]

другая версия 10min

#!/usr/bin/env perl -ln
use Time::Piece;

INIT {
$pattern = '%b %d %T';
$start_time = Time::Piece->strptime(localtime->strftime($pattern), $pattern) - 600;
}

print if $start_time < Time::Piece->strptime(substr($_,0,15), $pattern);

[linux007]

Красиво (и в смысле цветов, и в смысле кода).

Вопрос, будет ли он работать быстрее, чем bash?

[linux007]

Error parsing time at /usr/lib/i386-linux-gnu/perl/5.20/Time/Piece.pm line 469.

ЧЯДНТ?

[what_me]

формат входных данных не ожидаемый.
Можно посмотреть кусок лога на котором он не работает?