问题描述:

Is there a way to do this with the Term::ReadKey-module?

#!/usr/bin/env perl

use warnings;

use 5.012;

use Term::Screen;

say( "Hello!\n" x 5 );

sleep 2;

my $scr = Term::Screen->new();

$scr->clrscr();

网友答案:

I don't know why Term::ReadKey would provide such a feature or if it does. But, how about:

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

*clrscr = $^O eq 'MSWin32'
        ? sub { system('cls') }
        : sub { system('clear') };

print "Hello\n" for 1 .. 5;
sleep 2;
clrscr();
网友答案:

Not sure why you want to use Term::Readkey for clearing the screen. It definitely does not have that capability. Are you trying to use something that's part of the standard Perl installation? You can use Term::Caps which is part of the standard Perl installation. Unfortunately, it requires the Termcaps file to be on the system, and Windows doesn't have that.

use Term::Cap;

#
# Use eval to catch the error when TERM isn't defined or their is no
# Termcap file on the system.
#
my $terminal;
eval {$terminal = Term::Cap->Tgetent();};

#
# Use 'cl' to get the Screen Clearing sequence
#

if ([email protected]) {  #Most likely a Windows Terminal
    system('cls');            #We really should be doing the 2 line below
    # my $clear = "\e[2J";    #But, it doesn't seem to work.
    # print "$clear";         #Curse You! I'll get you yet Bill Gates!
} else {   #A Real Computer
    my $clear = $terminal->Tputs('cl');
    print "$clear";
}
print "All nice and squeeky clean!\n";

I tried printing the ANSI Escape sequence if it was a Windows Terminal, but it doesn't seem to work.

I hate doing system calls because there is a security risk . What if someone changed the cls command on you?

相关阅读:
Top