M-OZ BLOG

Scheme-users.jpTwitter

# 2008/11/30(Sun) : [Scheme] [Gauche] 炬燵で写真の整頓
奮発して(?)コタツ買ってきた。
今年の冬はあったかく過ごせそうだ。

↓はデジカメで撮った写真を整頓するために作ったファイル名を変更するスクリプト。

(use file.util)
(use srfi-19)

(define (main args)
 (directory-fold "./photo"
  (lambda (path seed)
   (receive
    (d f x)
    (decompose-path path)
    (if (string=? "CIMG" (substring f 0 4))
     (let ((newpath (build-path d (string-append
         (date->string (time-utc->date
           (make-time time-utc 0 (file-mtime path)))
          "~Y~m~d~H~M~S") "." x))))
      (move-file path newpath :if-exists #f))))
   seed)
  #f)
 0)

[TOP] [ALL]