Можно ли очистить терминал терминами :: ReadKey?

Question

Есть ли способ сделать это с помощью модуля Term :: ReadKey?

#!/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(); 

Answer 1

Я не знаю, почему Term::ReadKey бы обеспечить такую ​​функцию или, если он делает. Но, как насчет:

#!/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(); 

Answer 2

Не знаю, почему вы хотите использовать Term::Readkey для очистки экрана. Это определенно не имеет такой возможности. Вы пытаетесь использовать что-то, что является частью стандартной установки Perl? Вы можете использовать Term :: Caps, который является частью стандартной установки Perl. К сожалению, для этого требуется, чтобы файл Termcaps находился в системе, а Windows этого не имеет.

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 ($@) { #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"; 

Я попробовал распечатать последовательность ANSI Escape, если это был терминал Windows, но, похоже, он не работает.

Ненавижу делать системные вызовы, потому что существует риск для безопасности. Что делать, если кто-то изменил команду cls?