用PerlTk实现数据可视化本地运行.docxVIP

用 Perl-Tk 实现数据可视化(本地运行)使用 Perl 的标准 GUI 工具箱构建自定义绘图工具Philipp K. Janert, Ph.D.2003 年 10 月 01 日发布在直观显示数据时，人类的眼睛在识别复杂的行为、运动轨迹和图案时表现得出奇地好。如果一个数据集的数据超过 12个点，那么用图形表示就会有所帮助；如果数据集里的数据超过了数千个点，那么使用图形表示就是必需的了。对于简单的 x-y 平面图，gnuplot 经常是第一选择。对更复杂的问题来说，您可以使用 xmgrace 或者其他的绘制工具。但是大多数简单的曲线绘图仪在绘制二维数据方面或者在复杂的图形中进行极为精细的控制方面显得很不足。复杂图形的例子包括专业化的条形图和须状图，带有完整误差的时间序列条形图，颜色编码和密度图，以及许多其他可能的图。这就是 Perl/Tk 的闪光之处。前提是，您已经使用 Perl 来进行数据操纵和提取。Perl/Tk 提供了与 Perl 绑定的 Tk GUI 工具集，并且它可能是最容易使用的部件之一。在本文中，不会关注 Perl/Tk 的实际用户界面部分（例如，复选框和下拉菜单），只探讨它的绘图能力。作为一个 GUI 工具箱，Perl/Tk 提供一个其他 Perl 图形扩展包（例如，极好的 GD 包）中没有的附加工具：即，动画和交互式数据探索的能力。在接下来的示例中我将向您展示这些应用。Perl/Tk 程序剖析为了介绍 Perl/Tk 编程的基本概念，先让我们考虑大家熟知的“Hello, world”程序，在 Perl/Tk 中，该程序类似如下：清单 1. Perl/Tk 风格的“Hello, world”程序123456#!/usr/bin/perl -wuse Tk;$mw = MainWindow-new;$mw-Label( -text = Hello, World! )-pack;$mw-Button( -text = Exit, -command = sub { exit } )-pack;MainLoop;这个程序首先打开一个新窗口，然后显示文本和一个“Exit”按钮。单击这个按钮，终止程序。（曾经使用过的GUI工具箱有比这个程序更容易的吗？）语句 use Tk; 声明在程序中要引用 Tk 模块。整个 Tk 工具集汲取了大多数 Perl 面向对象的特性。您经常可以看到使用-符号基于对象对方法进行调用。 每个 Perl/Tk 应用程序必须明确地对应一个主窗口。它是一个“项层”部件，意思是它必须在一个单独的窗口中打开。我们已经使用其构造函数 new 来说明了这一点。 下一步，我们将在这个主窗口中创建标签和按钮对象，作为主窗口的子部件。每个部件（除了顶层部件外，比如主窗口）必须是某个确切父部件的子部件。我们为标签和按钮部件指定一些参数，然后调用 pack ，该语句是 Perl/Tk 的几何管理器之一。几何管理器的职责是在父窗口中将子部件有规则地排列起来。除了语句 pack 外，还有语句 grid 和 place ，它们除了布局部件外，更可以对部件进行出色的纹理控制。 在 Perl/Tk 中，部件的参数用它们的名字来指定（和管理器工具语句 pack 的参数一样），通常开头带有一个短横。注意那些围绕参数名的引号不是必需的（因此通常被省略掉），因为操作符=将它左边的裸单词（barewords）看作是被引用的字符串。参数 -command 用来定义回调，如果部件接收到一个用户事件，那么就会触发对将被调用函数的引用（例如，在当前例子中，用户点击按钮）。由于这个回调程序体很小，所以我们将整个函数内嵌为一个匿名子例程来完成。下面您将看到独立子例程被注册为回调程序的示例。 现在我们的部件已经设置完成，并且程序准备接收用户事件。程序的最后一行调用 MainLoop 语句，这个语句的作用是开始监听用户事件，并且把它们分派给合适的回调。所有的事件都已被对应的能够产生事件的部件注册。 整个程序就是这样！注意初学者通常犯的错误是忘了调用 pack 或者调用 MainLoop 。如果程序运行时应用程序窗口不能正常显示，原因可能就是由于其中之一或者两者都被遗漏掉所造成的。另外要记住的一点是新窗口的实际大小和位置是由窗口管理器控制的（比如Gnome，KDE，IceWM），而不是由程序本身控制。 在画布上创建图形如果我们要输出图形，Tk 提供了画布部件。一旦创建了画布部件实例，其上就可以创建一些标准的图形对象（例如，直线、圆形、长方形等）。以下是示例程序：清单 2. 创建了画布部件实例并在其上放置对象123456789101112131415161718#!/usr/bin/perl -wuse Tk;my ( $size, $step ) = (