Cat-файл для терминала на определенной скорости строк в секунду

Я ленивый, и я мог бы написать сценарий для этого, но я даже слишком ленив, чтобы думать о том, как это сделать.

Я часто делаю такие вещи, как:

cris$ python runexperiment.py > output.txt
cris$ cat output.txt

Иногда, когда я смотрю на длинный результат эксперимента, мне нравится позволять странице просто прокручивать и наблюдать, как формируются и рассеиваются последовательные шаблоны. Но использование cat для файла с 1 миллионом строк заканчивается за 5 секунд. Это слишком быстро даже для меня.

Есть ли способ, которым я могу замедлить скорость просмотра файла, что-то вроде «утилиты прокрутки»? Я хочу быстро, но не 200 тыс. Строк в секунду (все из которых, по-видимому, дисплей никогда не будет регистрироваться в любом случае).

Что-то вроде

cris$ scroll -lps=300 output.txt

И тогда я думаю, что сидеть сложа руки и смотреть, как проходит 300 строк в секунду, было бы идеально.

Коротко и читабельно :

perl -pe "system 'sleep .003'" log.txt

Я публикую эти решения, потому что они маленькие и удобочитаемые, так как комментарии к ответу DMas, кажется, способствуют решению такого рода!

Но я ненавижу это, потому что: для этого запуска perl разветвляется до /bin/sleep300x / секунд!

Это большой потребитель ресурсов! Также неправильно хорошие решения !

Использование встроенного сна в Perl

К сожалению, встроенная функция sleepограничена целыми числами. Поэтому мы должны использовать selectвместо этого:

perl -e 'print && select undef,undef,undef,.00333 while <>;'

Под perl print while <>может быть заменен -pпереключатель:

perl -pe 'select undef,undef,undef,.00333'

Давай попробуем:

time /bin/ls -l /usr/bin | perl -pe 'select undef,undef,undef,.00333' | wc
   2667   24902  171131

real    0m9.173s
user    0m0.056s
sys     0m0.048s

bc -l < <(echo 2667/9.173)
290.74457647443584432573

Объяснение:

• 300 строк / сек означает 1 строку на 0,0033333333 сек.

• printбез аргумента печатает, $_что является полем ввода по умолчанию .

• называется ... | perl -e, ... | perl -neили ... | perl -pe, стандартный ввод будет автоматически присвоен , *STDINкоторый дескриптор файла по умолчанию , так что <>будет делать то же самое, <STDIN>который будет считывать данные со стандартного ввода до тех пор $/( входной разделитель записей , который по умолчанию используется символ новой строки ) будет достигнута. На английском языке по умолчанию <>будет читать одну строку из стандартного ввода и назначать содержимое $_переменной.

• &&это и состояние, но используется там в качестве командной цепи сепаратора так после (успешно) напечатать одну строку, делая следующую команду.

• selectявляется трюк программиста не использоватьsleep . Эта команда предназначена для захвата событий в файловых дескрипторах (входные и / или выходные данные, файлы, сокеты и / или сетевые сокеты). С помощью этой команды программа может ожидать 3 вида событий, канал готов к чтению , канал готов к записи, и какое-то событие происходит в канале . Четвертый аргумент - это время ожидания в секундах, поэтому синтаксис таков select <feeds where wait for input>, <feeds where having to write>, <feed where something could happen>, <timeout>.

Для большей точности вы можете использовать Time::Hiresмодуль perl:

perl -MTime::HiRes -pe 'BEGIN{$start=Time::HiRes::time;$sleepPerLine=1/300};select undef,undef,undef,($start + $sleepPerLine*$. - Time::HiRes::time)'

Примечание: $.это номер текущей строки ввода .

Лучше написано как cat >catLps.pl

#!/usr/bin/perl -w

use strict;
use Time::HiRes qw|time|;

my $start=time;
my $lps=300;

$lps=shift @ARGV if @ARGV && $ARGV[0]=~/^(\d+)$/;
my $sleepPerLine=1/$lps;

print &&
    select undef,undef,undef,($start + $sleepPerLine*$. - Time::HiRes::time)
    while <>

Использование:

catLps.pl [lps] [file] [file]...

Первый аргумент lps- необязательная строка в секундах числового аргумента (по умолчанию: 300)

Примечание: если имя файла только числовые, вы , возможно , придется specifiy их с пути: ./3.

Как catэто может передавать файлы, заданные в качестве аргумента и / или стандартного ввода

Итак, мы могли бы:

TIMEFORMAT='%R' 
time seq 1 100 | ./catLps.pl 100 >/dev/null 
1.040

time seq 1 10000 | ./catLps.pl 10000 >/dev/null  
1.042

Ради забавы:

export TIMEFORMAT='%R' ;clear ;time seq 1 $((LINES-2)) | ./catLps.pl $((LINES-2))

просто используйте awk со сном:

awk '{print $0; system("sleep .1");}' log.txt

Я опаздываю на вечеринку, но я обнаружил, что это было бы полезным упражнением в обучении на python, поэтому я поделюсь тем, что получил

#!/usr/bin/env python3

import argparse
from time import sleep

parser = argparse.ArgumentParser(description='Echo a file slowly')
parser.add_argument('-i',
                    '--input-file',
                    type=argparse.FileType('r'),
                    default='-')
parser.add_argument('-d',
                    '--delay-in-ms',
                    type=int,
                    default='100')
args = parser.parse_args()

for line in args.input_file:
    print(line.rstrip())
    sleep(args.delay_in_ms/1000.0)

Он принимает ввод от stdin или в качестве аргумента (-i) и по умолчанию записывает одну строку в 1/10 секунды, но это можно изменить с помощью другого аргумента (-d).