run-perl-region.el

(defun run-perl-region ()
  "指定範囲内のコードをスクリプトとして実行します"
  (interactive)
  (if (>= (region-beginning) (region-end))
      (message "no selected region")
    (let ((run-perl-region-file-path "/tmp/run-perl-region"))
      (write-region (region-beginning) (region-end) run-perl-region-file-path nil)
      (compile
       (format
        "cd %s; perl -M'Project::Libs lib_dirs => [qw(modules/*/lib local/lib/perl5)]' %s"
        (vc-git-root default-directory)
        run-perl-region-file-path)))))