perl - 如何使用 Perl 在终端中清除屏幕？

Question

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

这是来自 official perlfaq 的问题.我们是 importing the perlfaq to Stack Overflow .

Answer 1

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

要清除屏幕，您只需打印告诉终端清除屏幕的特殊序列。一旦你有了那个序列，当你想清除屏幕时输出它。

您可以使用 Term::ANSIScreen模块来获取特殊序列。导入cls函数(或 :screen 标签):

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;