登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>CGI教程>>CGI技巧>>了解 Perl/Tk 模块--Perl/Tk 基础知识
了解 Perl/Tk 模块--Perl/Tk 基础知识
来源: ‖ 作者: ‖ 点击: ‖ 时间:12-09-26 16:36:26 ‖ 【 】‖ 我要投稿
了解 Perl/Tk 模块,第 1 部分: Perl/Tk 基础知识。

  Perl 语言经常由 IBM? AIX? 操作系统管理员和开发人员使用,几乎每个成功的网站和大多数 AIX 系统上都使用了该语言。尽管 Perl 脚本的功能非常强大,但它产生的 Web 接口却缺少图形化前端,用户必须键入信息,而不能使用鼠标,对于客户来说,这一点非常不尽人意。随着 Perl 中 Tk 模块的引入,此问题已得到解决。管理员或开发人员可以利用 Tk 模块快速为其 Perl 脚本带来新的生机,从而满足客户对 X11 产品的需要。

  什么是 Perl?

  Perl 即“实际提取和报告语言”,是 Larry Wall 于 1987 创建的,作为一种简化其编程工作的手段。从其创建以来,Perl 已经发展成为全球使用的语言,目前是大多数管理员和开发人员的必备工具。

  什么是 Perl/Tk 模块?

  Perl/Tk 模块(也称 pTk 或 ptk)是一个专门用来创建小部件或其他通用图形对象以构成图形用户界面 (GUI) 的 Perl 模块。使用该模块创建的 GUI 改善了程序的外观,可帮助最终用户通过程序及其函数进行导航。使用 Perl/Tk 模块的一个主要优势是最终产生的应用程序可以跨平台运行,这意味着,同一 GUI 应用程序可用于 Unix?、Linux?、Macintosh、Microsoft? Windows? 或其他任何安装了 Perl 和 Perl/Tk 模块的操作系统。

  在哪里可获得 Perl/Tk 模块

  在您使用 Perl/Tk 模块编写应用程序之前,必须验证是否安装了 Perl 和 Perl/Tk 模块。尽管 Perl 一般会安装在计算机上,Perl/Tk 模块却并非如此。检查是否安装了 Perl 的一种方法是在命令行中输入perl --version。如果未安装 Perl,请参考 Perl 网站上的安装指南(请参阅参考资料)。

  在找到 Perl 或将其安装到您的计算机上之后,下一步则是确定是否需要安装 Perl/Tk 模块。检查是否安装了模块的一种简单方法是在命令提示符下键入perl -e "use module"。若要验证是否安装了 Perl/Tk 模块,请执行以下命令:perl -e "use Tk"

  如果发现有该模块,该命令将执行,并返回一个命令提示符。但是,如果未发现该模块,则将显示类似以下内容的错误消息:

    Can't locate Tk.pm in @INC (@INC contains: /opt/ActivePerl-5.8/site/lib
    /opt/ActivePerl-5.8/lib .) at -e line 1.
    BEGIN failed--compilation aborted at -e line 1.

  请记住,Perl 是区分大小写的:perl –e "use Tk"perl –e "use tk"是尝试使用两种不同模块(Tk 和 tk)的两种不同语句。

  如果未发现该模块,下一步则是下载并安装该模块。您可以用多种方法完成此操作。

  如果您使用的是 Unix 或 Linux,下载和安装 Perl 模块的一种方法是使用 Comprehensive Perl Archive Network (CPAN)。在命令提示符中输入以下命令:

    perl –MCPAN –e shell
    install Bundle::CPAN
    reload cpan
    install Tk

  如果您使用的是 Windows,类似的方法是使用 Perl Package Manager (PPM)。在命令提示符中,输入ppm以启动 GUI 并下载 Tk 模块。

  完成安装后,通过执行perl –e "use Tk"重新验证 Perl 是否可找到该模块。

  创建一个窗口

  既然计算机上已经安装了 Perl 和 Perl/Tk 模块,现在就可以通过该模块编写您的第一个 GUI 程序了。开始时可以编写一个简单的 Hello World 程序。利用您喜欢的文本编辑器,创建一个名为 helloworld.pl 的文件,然后在文件中输入以下文本:

    #!/usr/bin/perl -w
    # Display Hello World program
    
    use Tk;
    use strict;
    
    my $mw = MainWindow->new;
    $mw->geometry("200x100");
    $mw->title("Hello W

|<< << < 1 2 3 4 5 > >> >>|
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
相关文章列表
请文明参与讨论,禁止漫骂攻击。  
网友评论