在编写Perl的OO程序时，构建器内容重复。为此编写了一个小程序，定义了函数`perl-contructor`用于插入构建器代码，并将其绑定到`C-c p c`快捷键。在cperl模式下，键入该快捷键即可自动添加构建器。
写perl的oo程序的时候，每次都要写一个构建器，而其内容有很多的重复
。
于是写了这个小程序，可以少打几个字。
(defun perl-contructor ()
(interactive)
(insert "
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {};
bless($self, $class);
return $self;
}"))
(define-key cperl-mode-map (kbd "C-c p c") 'perl-contructor)
这样，每次在cperl的模式下键入c-c p c就会把构建器自动加上去了。
。于是写了这个小程序，可以少打几个字。
(defun perl-contructor ()
(interactive)
(insert "
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {};
bless($self, $class);
return $self;
}"))
(define-key cperl-mode-map (kbd "C-c p c") 'perl-contructor)
这样，每次在cperl的模式下键入c-c p c就会把构建器自动加上去了。
扫一扫
208
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
