在 Perl 中清除屏幕的最佳方法是什么？

Question

理想情况下，跨平台的东西。

Answer 1

print "\033[2J";    #clear the screen
print "\033[0;0H"; #jump to 0,0

Answer 2

CPAN 可能是最好的方法。 看看Term::Screen:Uni ：

require Term::Screen::Uni;
my $scr = new Term::Screen::Uni;

$scr->clrscr()

Answer 3

我通常使用来自 CPAN 的Term::ANSIScreen ，它为我提供了各种有用的与控制台相关的功能。

use Term::ANSIScreen qw(cls);
cls();

Answer 4

在 OS X 和 Linux 下，您可以使用以下 Perl 命令：

system("clear");

不知道 Windows 下的等价物是什么。

编辑：Windows 等效项是：

system("cls");

Answer 5

从perlfaq8对如何清除屏幕的回答：

---

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

您可以使用 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 方法：

use Win32::Console;

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

如果你有一个命令行程序来完成这项工作，你可以在反引号中调用它来捕获它输出的任何内容，以便你以后使用它：

$clear_string = `clear`;

print $clear_string;

Answer 6

如果您在谈论终端，我会使用 Curses 库之类的东西来完成它。

有一个很好的 Curses 模块可以访问它，您可以像这样使用它：

perl -MCurses -e '$win=new Curses;$win->clear()'

Answer 7

我不同意上述

1. 连接额外的模块 = 增加攻击面。
2. 减少运行代码的数量。
3. 代码重构。

---

#!/usr/bin/perl -w
use strict;

my
( $over, $cleaning );
( $cleaning ) = qq([J\033[H\033[J);
( $over ) = <<EOF;
 1. Connecting additional modules = Increase the attack surface.
 2. Reduce the Amount of Running Code.
 3. Code refactoring.
EOF

print ($cleaning.$over);

__END__

食品级	酒吧
\\033	代表 ESC ANSI 值 27
[J	从当前行下屏幕擦除屏幕
[H	将光标移动到起始位置

Answer 8

支持 Linux 和 Windows：

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