ttyrec/jsttyplay/interactive_test.pl

#!/usr/bin/perl
use warnings;
use strict;

$| = 1;

use Term::Emulator;
use Term::ReadKey;

sub key { ReadMode(4); my $key = ReadKey(-1); ReadMode(0); return $key; }
my $term = Term::Emulator->new;
$term->spawn("login");

my $inttimemin  = 0.02;
my $inttimemax  = 1.00;
my $inttimemultstep = 0.001;

my $inttime = $inttimemin;
my $inttimemult = 1.0;

while ( $term->is_active ) {
    $term->work_for($inttime);
    $inttime *= ($inttimemult += $inttimemultstep);
    $inttime = $inttimemax if $inttime > $inttimemax;
    print "\033[H" . $term->term->as_termstring . "--\n";
    my $key = key();
    if ( defined $key ) {
        $term->key($key);
        $term->key($key) while defined($key = key());
        $inttime = $inttimemin;
        $inttimemult = 1.0;
    }
}

print "\nexited\n";

1	#!/usr/bin/perl
2	use warnings;
3	use strict;
4
5	$\| = 1;
6
7	use Term::Emulator;
8	use Term::ReadKey;
9
10	sub key { ReadMode(4); my $key = ReadKey(-1); ReadMode(0); return $key; }
11	my $term = Term::Emulator->new;
12	$term->spawn("login");
13
14	my $inttimemin = 0.02;
15	my $inttimemax = 1.00;
16	my $inttimemultstep = 0.001;
17
18	my $inttime = $inttimemin;
19	my $inttimemult = 1.0;
20
21	while ( $term->is_active ) {
22	$term->work_for($inttime);
23	$inttime *= ($inttimemult += $inttimemultstep);
24	$inttime = $inttimemax if $inttime > $inttimemax;
25	print "\033[H" . $term->term->as_termstring . "--\n";
26	my $key = key();
27	if ( defined $key ) {
28	$term->key($key);
29	$term->key($key) while defined($key = key());
30	$inttime = $inttimemin;
31	$inttimemult = 1.0;
32	}
33	}
34
35	print "\nexited\n";
36