ファイルを空にするプログラム

Scheme 30分プログラム

30分プログラム、その397。ファイルを空にするプログラム。
ちょっと欲しかったので書いてみたけど、よくよく考えればrmしてからtouchすれば十分だった。まあいいや。

使い方

$ cat hoge.txt
Hello, world!!

$ gosh empty.scm hoge.txt

$ cat hoge.txt

ソースコード

#! /opt/local/bin/gosh
;; -*- mode:scheme; coding:utf-8 -*-
;;
;; empty.scm -
;;
;; Copyright(C) 2008 by mzp
;; Author: MIZUNO Hiroki / mzpppp at gmail dot com
;; http://howdyworld.org
;;
;; Timestamp: 2008/10/21 22:23:10
;;
;; This program is free software; you can redistribute it and/or
;; modify it under MIT Lincence.
;;

(define (empty filename)
  (call-with-output-file filename
    identity))

(define (main args)
  (for-each empty (cdr args)))

参考