DouKaku?beta

Comment detail

指定されたフォルダ以下のゴミ掃除 (Nested Flatten)
Scheme (Gauche) で。 
1
2
3
4
(use file.util)
(define (remove-backup dir)
  (directory-fold "." (lambda (path seed) (and (#/~$/ path) (sys-unlink path))) #f))
(define (main args) (for-each remove-backup (cdr args)) 0)

うわ、違うバージョンを貼り付けてしまった。

3行目、s/print/sys-unlink/ です。
修正しました

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]