文档章节

Perl/Tk练习

_lhtk_
 _lhtk_
发布于 2015/05/16 09:40
字数 286
阅读 38
收藏 0

2015.5.16

1. 编写一段程序显示一个标签为“Don't push me”的按钮。当用户点击它时,标签变为“Don't push me again”。

#!/usr/bin/perl
# seems OK
use strict;
use warnings;

use Tk;

my $tk_mw = MainWindow->new();
my $tk_button = $tk_mw->Button(
    -text => "Don't push me",
)->pack(
    -side => 'top',
    -anchor => 'n'
);
$tk_button->configure(
    -command => sub {
        $tk_button->configure(
            -text => "Don't push me agian",
            # 再按就直接退出,不添加的话再按不变
            -command => \&exit
        );
    }
);

MainLoop();

2. 编写一个命令,将某条消息作为它的唯一参数,并显示一个包含此消息的弹出窗口。这类命令对于需要显示一条警告或错误信息但没有GUI的脚本有用。

额外了解了一点点 utf8 模块用法。

#!/usr/bin/perl

use strict;
use warnings;

use Tk;
#use encoding "utf-8"; # deprecated
#use encoding "utf8";
use utf8;

my $message = $ARGV[0];
# 总算用对了一次 utf8 模块
utf8::decode($message);
$message = 'No message defined!' unless defined $message;

my $tk_mw = MainWindow->new();
#$tk_mw->geometry('400x100');
$tk_mw->title('Error');
#my $error_frame = $tk_mw->Frame()->pack(-side => 'top');
#$error_frame->Label(
$tk_mw->Label(
    -text => $message,
    -font => 'Ubuntu 24',
    #-background => 'red',
    #-foreground => 'white'
    -foreground => 'red'
)->pack();
#$error_frame->Button(-text => 'OK', -command => \&exit)->pack(-side => 'bottom');
$tk_mw->Button(-text => 'OK', -command => \&exit)->pack(-side => 'bottom');

MainLoop();

© 著作权归作者所有

下一篇: Vim备忘
_lhtk_
粉丝 4
博文 65
码字总数 15840
作品 0
成都
私信 提问
Ubuntu16.04安装TexLive2017

从官网下载安装包(镜像文件) 安装perl perl-tk 由于安装镜像里包含的安装文件是perl类型的,所以我们需要先安装perl perl-tk包; 安装texlive2017 新建准备安装texlive2017的文件夹(路径:...

DDM_dl
2017/11/05
0
0
Ruby/Tk

Ruby/Tk 是一个重要的 Ruby 扩展,它为开发人员使用 Ruby 进行 Tk 程序开发提供了接口。Ruby 的主发行包中包含 Ruby/Tk,也就是说,您不需要安装额外的 Ruby 扩展就可以进行 Ruby/Tk 程序开发...

匿名
2010/03/02
3.8K
0
学习Tkinter的几个不错的网络资源

http://www.ittc.ku.edu/~niehaus/classes/448-s04/448-standard/simpleguiexamples/index.html :上面有比较直观的例子 http://www.ittc.ku.edu/~niehaus/classes/448-s04/448-standard/tki......

電泡泡
2013/01/27
369
0
类似C的脚本语言--little-lang

little-lang 是一种静态类型的,类似C的脚本语言。 特征: 与C语言语法相似 Structs, lists, arrays, hashes Perl 的正则表达式: buf =~ /.foo/, I/O: while (buf = <>) 没有内存管理(引用计...

匿名
2016/04/20
904
0
Linux 反汇编工具--LDasm

LDasm (Linux 反汇编工具) 是一个基于 Perl/TK 的 objdump/binutils 图形化工具,试图模仿 W32Dasm 工具的外观。可搜索相互参照,将代码从 GAS 转换成 MASM 风格代码等等。...

匿名
2013/01/22
4.2K
1

没有更多内容

加载失败,请刷新页面

加载更多

OSChina 周六乱弹 —— 早上儿子问我他是怎么来的

Osc乱弹歌单(2019)请戳(这里) 【今日歌曲】 @凉小生 :#今日歌曲推荐# 少点戾气,愿你和这个世界温柔以待。中岛美嘉的单曲《僕が死のうと思ったのは (曾经我也想过一了百了)》 《僕が死の...

小小编辑
今天
804
11
Excption与Error包结构,OOM 你遇到过哪些情况,SOF 你遇到过哪些情况

Throwable 是 Java 中所有错误与异常的超类,Throwable 包含两个子类,Error 与 Exception 。用于指示发生了异常情况。 Java 抛出的 Throwable 可以分成三种类型。 被检查异常(checked Exc...

Garphy
今天
15
0
计算机实现原理专题--二进制减法器(二)

在计算机实现原理专题--二进制减法器(一)中说明了基本原理,现准备说明如何来实现。 首先第一步255-b运算相当于对b进行按位取反,因此可将8个非门组成如下图的形式: 由于每次做减法时,我...

FAT_mt
昨天
6
0
好程序员大数据学习路线分享函数+map映射+元祖

好程序员大数据学习路线分享函数+map映射+元祖,大数据各个平台上的语言实现 hadoop 由java实现,2003年至今,三大块:数据处理,数据存储,数据计算 存储: hbase --> 数据成表 处理: hive --> 数...

好程序员官方
昨天
7
0
tabel 中含有复选框的列 数据理解

1、el-ui中实现某一列为复选框 实现多选非常简单: 手动添加一个el-table-column,设type属性为selction即可; 2、@selection-change事件:选项发生勾选状态变化时触发该事件 <el-table @sel...

everthing
昨天
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部