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

这些都是很简单的小方程，emacs的cperl-mode已经提供了很多很好的功能了。但是由于我比较懒
所以就写了一些小东西，可以少敲些键盘。
1. 用来加入描述的注解
(defun perl-insert-discription (dis)
  (interactive "sYour discription: ")
  (insert "#==================================================================/n")
  (insert "# ")
  (insert dis)
  (insert "/n#==================================================================/n"))
2. 打开一个文件 自动补全出错的处理
(defun perl-insert-openfile (fileName fileHandel)
  (interactive "sFile name:
sFile handel name:")
  (insert "open ")
  (insert fileHandel)
  (insert ",/"")
  (insert fileName)
  (insert "/"")
  (insert " or die /"can not open ")
  (insert fileName)
  (insert ":$!//n /";"))
3. 加入一条调试的语句，使用了$DEBUG变量，这样在release的时候就不用到处
找debug的语句删除了。
(defun perl-insert-debugmessage (msg)
  (interactive "sThe debug message is: ")
  (insert "warn /"")
  (insert msg)
  (insert "/" if $DEBUG;"))
4. 建立一个新的方法，写这个的主要原因是打工的时候用的是德文的键盘，键入
{}非常的费力 ， 如果写oo的程序很多的话，还可以加入 my $self = shift;，我经常
忘记
(defun perl-new-subroutine (subName)
  (interactive "sThe name of subroutine is: ")
  (insert "sub ")
  (insert subName)
  (insert "/n{/n/n}")
  (previous-line 1)
)