Ограничить скорость вывода строк в XTerm?

Если вы хорошо разбираетесь в Perl, вы можете запустить этот небольшой скрипт:

use POSIX qw(strftime);

$fbase = "tmp-%Y-%m-%d-%H-%M.log";

while(<>)
{
  $fnamenew = strftime $fbase, localtime;

  if ($fnamenew ne $fname)
  {
    print "logging to: $fnamenew\n";
    $fname = $fnamenew;
    close OUT;
    open OUT, ">$fname";
  }
  print OUT $_;
}

Используйте его так: $mycomputation | perl-скрипт.pl. Он добавит все входные данные к имени файла, созданному из заданного шаблона времени, здесь tmp-ГГГГ-ММ-ДД-ЧЧ-MI.log. На каждой новой строке ввода шаблон перестраивается и сверяется со старым. Если он отличается, то ввод передается в новый файл, а старый закрывается.

1
04.08.2015, 13:05
0 ответов

Теги

Похожие вопросы