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

Question

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

---

这是来自官方 perlfaq 的问题。我们正在将 perlfaq 导入 Stack Overflow。

Answer 1

这是官方常见问题解答，减去任何后续编辑。

要清除屏幕，您只需打印告诉终端清除屏幕的特殊序列。获得该序列后，当您想要清除屏幕时输出它。

您可以使用 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;

Answer 2

对我有用的最短的独立于操作系统（并且不需要安装额外的模块）的方法是在 Perl Monks 线程 中找到的（该页面还包含清除屏幕的其他一些变体）：

system $^O eq 'MSWin32' ? 'cls' : 'clear';

Answer 3

Linux 用户使用以下命令：

system 'clear';