У Вас есть две опции: Скомпилируйте локальную версию и вставьте ее /opt
или /usr/local/
, или бэкпортируйте пакеты жемчуга от более позднего выпуска. Если у Вас нет опыта при создании пакетов Debian, первый будет легче; этот ответ и некоторые из других к тому вопросу имеет больше деталей. В частности, дайте жемчугу 5,10 двоичных файлов уникальное имя как perl5.10.0
таким образом, необходимо явно назвать его, и системные пакеты не выполняют его по ошибке.
Все, что необходимо сделать, перенаправить файл в wc
и это только покажет то, что было добавлено, а не общее количество.
watch wc -l < /path/to/log.log1
<
имеет все значение.
Я не знаю стандартного инструмента, но Вы могли использовать следующий сценарий Python:
import sys, time if not len(sys.argv) >= 2: print 'usage: %s FILENAME FREQUENCY' % (sys.argv[0]) sys.exit(1) fd=open(sys.argv[1]) freq=int(sys.argv[2]) fd.seek(0, 2) while True: current = fd.tell() nlines = len(fd.readlines()) if nlines: print nlines time.sleep(freq)
Протестировать:
$ (while true; do echo test; sleep 0.2; done) > log & $ python watchandcount.py log 3
Это не прекрасно, потому что это не может "контролировать" STDIN
или обнаружьте, когда файл будет заменен ( --follow=name
опция хвоста.
Вот некоторый быстрый-и-грязный жемчуг, чтобы сделать то, что Вы хотите:
#!/usr/bin/perl
open(I, "<$ARGV[0]") || die "Can't open $ARGV[0]: $!\n";
while (1) {
my $count = 0;
while (<I>) { $count++; }
print scalar(localtime()), ": $count lines\n";
sleep(3);
seek(I, 0, 1); # clear the EOF on I
}
close(I);
Вот вывод его работающий в одном окне:
[root@g3 tmp]# perl tt.pl FILE
Thu Dec 9 13:18:38 2010: 0 lines
Thu Dec 9 13:18:41 2010: 0 lines
Thu Dec 9 13:18:44 2010: 0 lines
Thu Dec 9 13:18:47 2010: 0 lines
Thu Dec 9 13:18:50 2010: 0 lines
Thu Dec 9 13:18:53 2010: 1 lines
Thu Dec 9 13:18:56 2010: 0 lines
Thu Dec 9 13:18:59 2010: 1 lines
Thu Dec 9 13:19:02 2010: 0 lines
Thu Dec 9 13:19:05 2010: 0 lines
Thu Dec 9 13:19:08 2010: 0 lines
Thu Dec 9 13:19:11 2010: 0 lines
Thu Dec 9 13:19:14 2010: 0 lines
Thu Dec 9 13:19:17 2010: 0 lines
Thu Dec 9 13:19:20 2010: 100 lines
И вот команды, которые я выполнил в другом окне для генерации вывода выше:
[root@g3 ~]# cd /tmp
[root@g3 tmp]# echo foo > FILE
[root@g3 tmp]# echo foo >> FILE
[root@g3 tmp]# for i in `seq 1 100`
> do
> echo $i >> FILE
> done
[root@g3 tmp]#
Надежда, которая помогает...
И вот сценарий удара:
TOTAL=0
while true; do
NEW_TOTAL=$(wc -l /path/to/log.log1 | cut -f1 -d' ')
echo $(($NEW_TOTAL - $TOTAL))
TOTAL=$NEW_TOTAL
sleep 3
done
Это имеет преимущество того, чтобы быть применимым непосредственно в оболочке, если Вы не являетесь аллергическими на"";;)
TOTAL=0; while true; do NEW_TOTAL=$(wc -l TOTAL=0; while true; do NEW_TOTAL=$(wc -l big | cut -f1 -d' '); echo $(($NEW_TOTAL - $TOTAL)); TOTAL=$NEW_TOTAL; sleep 3; done | cut -f1 -d' '); echo $(($NEW_TOTAL - $TOTAL)); TOTAL=$NEW_TOTAL; sleep 3; done