扩展Emacs,方便执行正在编辑的Perl程序
2005-04-03 19:57
330 查看
在用Emacs写Perl程序时,有一个快捷键来直接运行正在编写的Perl程序就非常方便了,
将下面的代码加入~/.emacs中,正在编写的Perl程序就可以使用M-o来运行了。
(defun runperl()
"run perl,执行当前缓冲区的Perl程序"
(interactive)
;(save-buffer)
(let ((filename buffer-file-name)
(cmd "")
(oldbuf (current-buffer))
(end (point-max)))
(if filename
(save-buffer)
(save-excursion
(setq filename (concat (getenv "tmp") "/temp.pl"))
(set-buffer (create-file-buffer filename))
(insert-buffer-substring oldbuf 1 end)
(write-file filename)
(kill-buffer (current-buffer))))
(setq cmd (concat "perl -w " filename))
(message "%s ..." cmd)
(shell-command cmd)))
(global-set-key[(meta o)] 'runperl) ;bind-key alt+o:runperl
将下面的代码加入~/.emacs中,正在编写的Perl程序就可以使用M-o来运行了。
(defun runperl()
"run perl,执行当前缓冲区的Perl程序"
(interactive)
;(save-buffer)
(let ((filename buffer-file-name)
(cmd "")
(oldbuf (current-buffer))
(end (point-max)))
(if filename
(save-buffer)
(save-excursion
(setq filename (concat (getenv "tmp") "/temp.pl"))
(set-buffer (create-file-buffer filename))
(insert-buffer-substring oldbuf 1 end)
(write-file filename)
(kill-buffer (current-buffer))))
(setq cmd (concat "perl -w " filename))
(message "%s ..." cmd)
(shell-command cmd)))
(global-set-key[(meta o)] 'runperl) ;bind-key alt+o:runperl
相关文章推荐
- 扩展Emacs,方便执行正在编辑的Perl程序
- 关于程序出现 “因为应用程序正在发送一个输入同步呼叫,所以无法执行传出的呼叫”
- 多线程、方便扩展的Windows服务程序框架
- 使用自定义脚本扩展程序自动执行 VM 自定义任务
- Perl脚本打包为独立执行程序
- shell 脚本监控程序是否正在执行, 如果没有执行, 则自动启动该进程
- [Perl]测试程序时用Perl真是太方便了
- 如何将java编辑的图形化程序编辑为可执行jar文件
- [Perl]测试程序时用Perl真是太方便了
- [Perl]测试程序时用Perl真是太方便了
- Eclipse RCP程序中如何将文件名扩展名关联编辑器,同一扩展名有多个编辑设置默认编辑器,以XML Editor为例
- 使用 CustomScript 扩展程序自动执行 Linux 虚拟机自定义任务
- 使用自定义脚本扩展程序自动执行 VM 自定义任务
- 将可执行程序的内存空间扩展到3GB(windows)
- Apache Web 服务器配置CGI程序,执行Python、Perl脚本
- Perl执行bat批处理文件的方法_CQ中执行外部pl程序的方法
- Emacs编辑程序常用命令
- 使用 CustomScript 扩展程序自动执行 Linux 虚拟机自定义任务
- 使用自定义脚本扩展程序自动执行 VM 自定义任务
- Windows环境下用PerlApp将代码打包成可执行程序教程_小公猫-ChinaUnix博客