如何使用Perl清除终端中的屏幕？

我想在使用Perl的终端/控制台中清除屏幕.我怎样才能做到这一点？

这是official perlfaq的一个问题.我们是importing the perlfaq to Stack Overflow.

解决方法

这是 offical FAQ answer减去任何后续的编辑.

要清除屏幕,您只需打印特殊顺序,告诉终端清除屏幕.一旦你有这个顺序,当你想要清除屏幕时输出它.

您可以使用Term::ANSIScreen模块获得特殊顺序.导入cls功能(或：屏幕标签)：

use Term::ANSIScreen qw(cls);
my $clear_screen = cls();

print $clear_screen;

如果要处理终端控制的低级细节,Term::Cap模块也可以获得特殊顺序. Tputs方法返回给定能力的字符串：

use Term::Cap;

$terminal = Term::Cap->Tgetent( { OSPEED => 9600 } );
$clear_string = $terminal->Tputs('cl');

print $clear_screen;

在Windows上,可以使用Win32::Console模块.在创建要影响的输出文件句柄的对象后,调用Cls方法：

Win32::Console;

$OUT = Win32::Console->new(STD_OUTPUT_HANDLE);
my $clear_string = $OUT->Cls;

print $clear_screen;

如果您有一个执行该作业的命令行程序,您可以使用反引号来调用它,以捕获其输出的任何内容,以便以后使用它：

$clear_string = `clear`;

print $clear_string;

原文地址：https://www.jb51.cc/Perl/171425.html