find $HOME -name \*.txt | textual-slideshow.pl $*
####
#! /usr/bin/perl
use Term::ReadKey;
use Time::HiRes qw(time);
my @slurp_stdin = <>;
ReadMode 3;
while (1) {
my $key;
my $wait_until = time + 3;
while ( time < $wait_until ) {
$key = ReadKey( -1 );
if ( defined $key ) {
print STDERR "keystroke $key\t";
}
}
print "Something\n";
}
##
##
#! /usr/bin/perl -w
use Term::ReadKey;
use Time::HiRes qw(time);
my @slurp_stdin = ;
close STDIN;
open STDIN, "-";
while (1) {
my $key;
my $wait_until = time + 3;
while ( time < $wait_until ) {
ReadMode 3, STDIN; # 'noecho';
$key = ReadKey( -1, STDIN );
if ( defined $key ) {
print STDERR "keystroke $key\t";
}
ReadMode 0, STDIN;
}
print "Something\n";
}