备忘两个有点用处的脚本

<sup>source $VIMRUNTIME/gvimrc_example.vim
"source $VIMRUNTIME/mswin.vim
set ic
set is
set hls
set hid
set nocompatible
set cursorline
set ruler
set nu
set guioptions -=T
color darkblue
set winaltkeys=no


map <f3> :buffers<cr>
map <c-a> ^
imap <c-a> <esc>^i
map <c-e> $
imap <c-e> <esc>$a

command Myconf :argedit ~/.vimrc

au GUIEnter * simalt ~x

silent! badd scratch
silent! bn
setlocal buftype=nofile
setlocal bufhidden=hide
setlocal noswapfile</sup>


my $srcdir = "0321303474";
my @files = glob "./$srcdir/*.html";
for my $file (@files) {
    if (-f $file) {
        print $file,"/n";
        my ($FH,$FHO);
        open $FH,"<",$file;
        my $newfilename = $file . "bak";
#         open $FHO, ">", $newfilename;
#         while(my $line=<$FH>) {
#             $line =~ s/;380138//g;
#             print $FHO $line;
#         }
        close $FH;
        close $FHO;
    }
}

;byte编译一个目录下的所有el文件
(defun byte-compile-directory (dir)
  "byte compile a directory"
  (interactive "D")
  ;(message dir)
  (mapcar #'(lambda(file)
            (when (string-equal (file-name-extension  file) "el")
              (byte-compile-file (concat dir file))))
              ;(message (concat dir file))))
              (directory-files dir)))