lilalo

diff taillast.pl @ 119:71bd999bcb04
Исправлено несколько багов:
* выполняется корректная привязка diff'ов
* правильно запоминается raw_start и проч raw_*
* временно отключен вывод признака нажатия ctrl-c (он ставился неверно)
* в приглашение добавлен случайный nonce (для правильной отработки tab)
author: igor
date: Thu Mar 13 12:19:42 2008 +0200 (2008-03-13)
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/taillast.pl	Thu Mar 13 12:19:42 2008 +0200
     1.3 @@ -0,0 +1,8 @@
     1.4 +#!/usr/bin/perl
     1.5 +
     1.6 +for $d (@ARGV) {
     1.7 +	push @d, glob("$d/*");
     1.8 +}
     1.9 +@{f} =  sort { (stat(${a}))[9] <=> (stat(${b}))[9] } (@d); 
    1.10 +print "tail -f ${f[$#f]}\n";
    1.11 +__END__
author	igor
date	Thu Mar 13 12:19:42 2008 +0200 (2008-03-13)
parents
children