(defvar current-date-time-format "%Y-%m-%d %a %H:%M:%S %Z"

  "Format of date to insert with `insert-current-date-time' func

See help of `format-time-string' for possible replacements")

(defun insert-head-info-myname ()

  "insert the author, current date and time into current buffer.

Uses `current-date-time-format' for the formatting the date/time."

       (interactive)

       (insert "#! /usr/bin/env perl\n")

       (insert "use warnings;\nuse strict;\nuse autodie;\n")

       (insert "## Author: ****\n")

       (insert "## Date: ")

       (insert (format-time-string current-date-time-format (current-time)))

       (insert "\n\n")

       )

;;cperl template

(define-auto-insert 'cperl-mode 'insert-head-info-myname)

(add-hook 'find-file-hooks 'auto-insert)

###

emacs 24.2

I am a newbie. : )

-- This paper is original. All rights reserved. Welcome reproduce, please indicate the source and keep this statement! Title： Link：