ttyrec/jsttyplay/play.pl

#!/usr/bin/perl
use warnings;
use strict;
$| = 1;

my $readsize = 1;
my $skipto = 0;
my $wait = 0.01;

use Term::TtyRec;
use Term::Emulator::Parser;
use FileHandle;
use Time::HiRes qw/ time sleep /;
use Carp;

$SIG{INT} = sub { confess };

sub openRec {
    my ($fn) = @_;
    my $fh = FileHandle->new($fn, "r") or die;
    my $rec = Term::TtyRec->new($fh);
    return $rec;
}

my $buf = '';
my $lasttime;
sub parseFrame {
    my ($rec, $term) = @_;
    if ( length $buf < $readsize ) {
        my ($time, $data) = $rec->read_next;
        return () if not defined $time and not length $buf;
        if ( defined $time ) {
            $buf .= $data;
            $lasttime = $time;
        }
    }
    if ( $lasttime < $skipto ) {
        $term->parse($buf);
        $buf = '';
        goto &parseFrame;
    } else {
        $term->parse(substr $buf, 0, $readsize);
        substr($buf, 0, $readsize) = '';
        return $lasttime;
    }
}

###

my $width = 80;
my $height = 24;
my $term = Term::Emulator::Parser->new( width => $width, height => $height );
my $rec  = openRec($ARGV[0]);

system("clear");
while ( defined(my $time = parseFrame($rec, $term)) ) {
    print "\033[H".$term->as_termstring."--";
    sleep $wait if $time >= $skipto and $wait;
}

1	#!/usr/bin/perl
2	use warnings;
3	use strict;
4	$\| = 1;
5
6	my $readsize = 1;
7	my $skipto = 0;
8	my $wait = 0.01;
9
10	use Term::TtyRec;
11	use Term::Emulator::Parser;
12	use FileHandle;
13	use Time::HiRes qw/ time sleep /;
14	use Carp;
15
16	$SIG{INT} = sub { confess };
17
18	sub openRec {
19	my ($fn) = @_;
20	my $fh = FileHandle->new($fn, "r") or die;
21	my $rec = Term::TtyRec->new($fh);
22	return $rec;
23	}
24
25	my $buf = '';
26	my $lasttime;
27	sub parseFrame {
28	my ($rec, $term) = @_;
29	if ( length $buf < $readsize ) {
30	my ($time, $data) = $rec->read_next;
31	return () if not defined $time and not length $buf;
32	if ( defined $time ) {
33	$buf .= $data;
34	$lasttime = $time;
35	}
36	}
37	if ( $lasttime < $skipto ) {
38	$term->parse($buf);
39	$buf = '';
40	goto &parseFrame;
41	} else {
42	$term->parse(substr $buf, 0, $readsize);
43	substr($buf, 0, $readsize) = '';
44	return $lasttime;
45	}
46	}
47
48	###
49
50	my $width = 80;
51	my $height = 24;
52	my $term = Term::Emulator::Parser->new( width => $width, height => $height );
53	my $rec = openRec($ARGV[0]);
54
55	system("clear");
56	while ( defined(my $time = parseFrame($rec, $term)) ) {
57	print "\033[H".$term->as_termstring."--";
58	sleep $wait if $time >= $skipto and $wait;
59	}
60