- 博客(4)
- 收藏
- 关注
原创 perl——当split函数用空格做分隔符时
## 语法split /PATTERN/,EXPR split /PATTERN/ split split用来分隔字符串EXPR,在列表上下文中返回分隔后的列表,在标量上下文中返回列表长度。 split /\s+/ ne split ' '
2017-03-22 10:37:52 14405
原创 tcl笔记
记录涉及到tcl用到的函数和其他选项uplevel 执行一个脚本, uplevel script ?arg? ...catch 捕获异常,执行成功返回0否则返回1catch command
2017-03-10 15:43:04 427
原创 Perl/Tkx ---- tcl/tk文本组件text
tcl/tk text组件命令解析使用text组件对文件编辑tcltk text组件命令解析text命令创建文本组件文本索引 index文本标记 tag标记选项 -font标记优先级 raise标记绑定 bind搜索与替换 search replace虚拟事件 <<Selection>>撤销和重做 undo redo同级文本组件 peer
2017-03-10 15:18:12 4193
原创 Tkx/tk——瞬态窗口
在Perl中使用Tkx模块调用tk场景:当主窗口需要一个短期的窗口(如对话框、提示框、配置选项框等),而要求短期窗口暂时代表主窗口且能始终在主窗口之上。实现:窗口管理器可以对窗口进行特别的处理。## 配置高级选项use Tkx;## my $mw = Tkx::widget->new("."); ...##sub advancedUI { my $parent =
2017-03-09 09:25:11 2118
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人