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	dpavlin	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