Question

我有一些数据要在屏幕（CLI）上动态显示数据，如linux top 命令。是否有任何Perl CPAN模块或实用程序可以为我执行此操作。

暂时，我正在使用以下代码执行此操作，这对我来说似乎并不那么令人印象深刻 -

my $thread;
$thread = threads->create( \&Read );

while (1) {
    sleep 1;
    system("clear");
    Display();
}

Read()方法从某个文件中读取数据并使用Display()方法显示该数据。

Answer 1

我认为Text::Table将为您完成工作，并为您提供所需的输出：

以下是示例：

use Text::Table;
my $tb = Text::Table->new(
    "Planet", "Radius\nkm", "Density\ng/cm^3"
      );
$tb->load(
    [ "Mercury", 2360, 3.7 ],
    [ "Venus", 6110, 5.1 ],
    [ "Earth", 6378, 5.52 ],
    [ "Jupiter", 71030, 1.3 ],
      );
print $tb;

这将打印出给定标题和数据的表格，如下所示：

Planet  Radius Density
    km     g/cm^3
Mercury  2360  3.7
Venus    6110  5.1
Earth    6378  5.52
Jupiter 71030  1.3

另一个模块是Perl6::Form。

如何在perl中动态显示数据？

1 个答案: