とりあえず、全てのPCのEmacsで使う人は少ないだろうし.emacsには、 (setq load-path (cons (expand-file-name "~/elisp") load-path)) (autoload 'hatena "hatena-diary-mode" "hatena Editting mode" t) ;;変更 (setq hatena-usrid "your username on Hate…

htmltodatをいじってる間に正規表現書くならこう書いたほうが早いと思ってしまいました。相変わらず需要があるのかよく分かりませんが #!/usr/bin/perl while(<>){ if(m#<DIV[^>]*>(?:<A[^>]*>)?([0-9]+).+?<span class="handle">(?:<A HREF="mailto:(.+?)">)(.*?)(?:</A>)</span>：(.*?)</DIV><DIV CLASS=\"RES\">(.*)</DIV>#i){ #メール欄あり print "$3<>$2<>$4…