wti-优快云博客

原创 Focus problem about Perl Tk Text Widget

在用tk的text widget的时候，一直有这样的疑问。在Text Widget中键入TAB，不会改变Focus，只会在其中添加一个tab(其值可以设定)。看了Text的文档，也没有相应的属性，可以更改这个行为特性。自己写的一个程序只能艰难的用鼠标在各个Text间跳来跳去。（shift － tab 还是可以用的）。今天看了Mastering Perl/Tk有关focus的一段，发现在开始的一段

2005-03-05 06:54:00 2978

原创用于perl的另一个小elisp方程

写perl的oo程序的时候，每次都要写一个构建器，而其内容有很多的重复。于是写了这个小程序，可以少打几个字。(defun perl-contructor () (interactive) (insert "sub new { my $proto = shift; my $class = ref($proto) || $proto; my $self = {}; bless($self,

2005-02-16 01:03:00 2751

原创 emacs中的换行符

在emacs里如何输入换行符呢? c-q c-j 例如有下面的问题:14286我要排序, 选中之后column-sort 变成了12468我想把他们排成行,用逗号分开. 可以用m-%, c-q c-j 回车, 就ok了结果为1, 2, 4, 6, 8

2005-02-11 02:30:00 6018

原创 ooperl 静态方法和变量

在perl里定义一个静态变量，只用在程序的开始处用my 定义一个变量就可以了。静态方法就是一个不同的subroutine，但要注意，使用时不要用“->”。定义的时候不要使用任何的instance variable.

2005-01-31 22:14:00 2889

原创把perl脚本变成在windows下的可执行（exe）文件

问题：把perl脚本变成在windows下的可执行（exe）文件答案：用par模块具体方法：1，安装par模块如果你用的是activeperl: ppm> install PAR. 如果不是，下载par(从cpan)。perl Makefile.PL; make; make install2, 使用 pp -o yourFile.exe yourFile.p

2005-01-30 07:00:00 8132

原创 wxPerl--hello.pl

<!-- body { color: #000000; background-color: #f0f0f0; } .comment { /* font-lock-comment-face */ color: #b22222; } .cpe

2005-01-29 06:23:00 3965

wxPerl是一个纯oo的gui库。今天在看它的例子的时候，也试了一下不同的继承方法。在wxPerl的hello.pl中是这样用的：use vars qw(@ISA);@ISA = qw(Wx::App);在programming Perl里查了一下use vars这个pragma. 发现，这种用法已经在某种程度上废弃了，因为有了our. 上面的代码等同于：our (@ISA) = qw(Wx::

2005-01-29 06:08:00 3864

原创在ｅｍａｃｓ中打开一个ｔｅｒｍｉａｌ，并ｍｏｖｅ到ｃｕｒｒｅｎｔｂｕｆｆｅｒ所在的目录

<!-- body { color: #000000; background-color: #f0f0f0; } .comment { /* font-lock-comment-face */ color: #b22222; }

2005-01-26 05:19:00 2756

原创ｅｍａｃｓ技巧－－鼠标粘贴复制

用鼠标粘贴复制我们一定都用过，过程大致如下：写作过程中，要粘贴上面的内容到现在的地方，首先把鼠标移到要复制的东西的地方，选中，移回来，用鼠标中键粘贴。新方法：按住Ｍ（ｗｉｎ中ａｌｔ），首先把鼠标移到要复制的东西的地方，选中，用鼠标中键粘贴。自动粘贴到了刚才光标的位置。少动一次，还剩了眼睛，找来找去。我就是这么懒－－－－－－有了前面的自动补全的功能，这招用得比较少。只用粘贴得东西太古怪的时候才有用。

2005-01-26 05:12:00 4404

原创在ｅｍａｃｓ里用ｔｅｍｐｌａｔｅ创建perl

<!-- body { color: #000000; background-color: #f0f0f0; } .comment { /* font-lock-comment-face */ color: #b22222; } .c

2005-01-26 04:59:00 3277

原创ｕｎｄｅｆ之误

<!-- body { color: #000000; background-color: #f0f0f0; } .comment { /* font-lock-comment-face */ color: #b22222; }

2005-01-26 04:33:00 2816

原创自己写的几个小的elisp方程（for　ｐｅｒｌ）

这些都是很简单的小方程，emacs的cperl-mode已经提供了很多很好的功能了。但是由于我比较懒所以就写了一些小东西，可以少敲些键盘。1. 用来加入描述的注解(defun perl-insert-discription (dis) (interactive "sYour discription: ") (insert "#==================================

2005-01-26 04:09:00 2812

原创自动补全

emacs有很好的自动补全的功能，默认的是有 m-/ 可以补全一个在buffer里出现的单词。把下面的代码添加到你的.emacs 里，可以补全更多的东西。具体的意思可以看emacswiki里的解释(global-set-key "/M- " hippie-expand)(setq hippie-expand-try-functions-list (try-complete-file-na

2005-01-24 19:48:00 3900

原创一个让你的代码好看点的emacs技巧--align

<!-- body { color: #000000; background-color: #f0f0f0; } .comment { /* font-lock-comment-face */ color: #b22222; } .con

2005-01-24 18:39:00 3235 1

原创一个对调试很有用的模块

dumperSimple.pl <!-- body { color: #000000; background-color: #f0f0f0; } .comment { /* font-lock-comment-face */ color

2005-01-24 00:49:00 2479

原创 emacs的一些技巧（很多来源于 emacswiki.org)

1. c-w, 这个健用在isearch的时候，他自动补全你要查的东西为光标位置之后的一个词，可以重复使用，用以延长要查找的词。说不太清楚，自己试一试吧！

2005-01-21 18:53:00 2758

原创一个code2html的el

这两天写perl的东西，代码都是一个颜色的看起来不清楚，再emacswiki.org上搜了一下，果然发现了一个好东西。htmlize.el可以把代码根据emacs的配色，转换成相应的html

2005-01-21 07:11:00 2434

原创面向对象的perl 3

面向对象的perl 3如何使用instance variabl实例变量什么是实例变量，实例变量就是和实例关联的变量。不同的对象的实例变量是在不同的namespace里的，就是说是互无关系的，是私有财产。与其相对的是类变量，她是公有的。说到这里要提一下前面一节中提到的构造器。在前面提到的所有的构造器中，我们都用了一个匿名哈西作为bless的参数，是否哈西有什么神奇的地方呢？

2005-01-21 06:40:00 2589

原创面向对象的perl 2

面向对象的perl 2构造器让我们先来看看构造器中最重要的一个函数bless.我查了一下bless的意思，觉得美国传统词典里的第七个解释比较符合这里的情况：bless: To endow, as with talent. (赋予，如才能）在perl中，bless把引用转换成了一个对象，既赋予了引用对象的才能。在上一节中提到了，bless接受两个参数，第一个参数时引用，第

2005-01-20 18:07:00 2681

原创 Larry Wall,Perl教父访谈

Larry Wall,Perl教父访谈看看Perl的创造者,看看Perl的新进展. 我和Perl脚本语言的创造者,Larry Wall(拉里沃尔,),在3月1号通过电子邮件进行了一次"交谈".Larry显得非常健谈,你一定会觉得这次交谈既有趣又使人受益.我是这样感觉的.Marjorie(马乔里,记者,以下简称马): 开始的时候,是什么让你决定开发Perl的? Larry(拉里,

2005-01-20 17:07:00 2758

原创面向对象的Perl 1

面向对象的 Perl 开篇 3.1 三条规则第一，创建一个包。要用 perl 写一个类，首先要创建一个包。 Perl 中的包已经有了一些类的特性： * 包可以集合有关系的一组代码 * 包有自己的命名空间第二， perl 中类的方法就是 subroutine 如果有一个变量 $refHero 指向一个 hero 的类， hero 类有 fight, fly 等的方

2005-01-20 05:42:00 858

wti的专栏