use Perl

• Nifty (Score:1)

  by jjore (6662) <twists@gmail.com> on 2009.11.09 13:09 (#71072) Homepage Journal

  Nice idea. I used it in my .emacs but slightly differently. This evals the contents of the current region w/ perl-run-snippet-command and inserts it afterward as comments.

  (defvar perl-run-snippet-command
    "perl"
    "Command for running perl for `perl-run-snippet'")
  (defun perl-run-snippet (start end)
    "Execute `perl-run-snippet-command' on the current region. Insert the results as comments."
    (interactive "r")
    (let ((buffer (current-buffer))
          (snippet-result (generate-new-buffer "*perl-snippet*")))
      (save-excursion
        ;; Run the snippet
        (shell-command-on-region
          start end
          perl-run-snippet-command
          snippet-result nil snippet-result)
   
        ;; Comment it out
        (set-buffer snippet-result)
        (goto-char (point-min))
        (while (re-search-forward "^" nil t)
          (replace-match "# "))
        (set-buffer buffer)
   
        ;; Insert    the snippet
        (goto-char (max start end))
        (insert-buffer snippet-result)
   
        ;; Clean up
        (kill-buffer snippet-result))))

  I find it a little more likely I'd rather just turn a snippet into example data for immediate use inline than something far removed at an __END__ tag. FWIW, to do something like that, you'd use commands like the below instead:

  ;; Either:
  ;; * goto the line after __END__
  ;; * goto the end and add an __END__ marker
  ;;
  (if (re-search-forward "^__END__\n" nil t)
      nil
    (goto-char (point-max))
    (if (not (bolp)) (insert "\n"))
    (insert "__END__\n"))

  Reply to This