Newsgroups: fj.questions.unix
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!news.iij.ad.jp!iijnet!kubotaj!kubotaj!hiramoto
From: hiramoto@kubota.co.jp (HIRAMOTO Kouji)
Subject: Re: oomoji kara komoji heno henkan
Content-Type: text/plain; charset=ISO-2022-JP
Organization: Kubota Corporation
Date: Wed, 17 Nov 1993 11:08:04 GMT
Message-ID: <HIRAMOTO.93Nov17200804@thunder.tt.kubota.co.jp>
Mime-Version: 1.0
In-Reply-To: motoki@sparc.kimitsu.enicom.nsc.co.jp's message of 17 Nov 93
 07:29:38 GMT
References: <1993Nov17.072938.14097@sparc.kimitsu.enicom.nsc.co.jp>
Sender: news@kubotaj.tt.kubota.co.jp (News System)
Nntp-Posting-Host: thunder
Lines: 72
Xref: galaxy.trc.rwcp.or.jp fj.questions.unix:4103
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.questions.unix&nb=4103&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BJ?K\!w%/%\%?(B $B$G$9!#(B


=>ID:     <1993Nov17.072938.14097@sparc.kimitsu.enicom.nsc.co.jp>
=>Author: $BK\LZ(B $B9,J?$5$s(B $B[)$/(B

 -> $B$"$k%G%#%l%/%H%j$NCf$K$"$k%U%!%$%k!J%U%!%$%kL>$O$=$N;~$K$h$j0[$J$k!K$G(B
 -> $B1QBgJ8;zH>3Q$N%U%!%$%kL>$r1Q>.J8;zH>3Q$N%U%!%$%kL>$KJQ49$7$?$$(B
 -> $B%U%!%$%k$NCf?H$O$=$N$^$^$G$9(B.

$B$h$&$O%U%!%$%kL>$NBgJ8;z>.J8;zJQ49$G$9$+(B? $B$($i$/@N$K:n$C$?$N(B
$B$G(B tr $B$8$c$J$/$F(B sed $B$@$C$?$j!"@vN}$5$l$F$J$$ItJ,$b$"$j$^$9(B
$B$,!"(B*.LZH $B$H(B *.Lzh $B$r(B *.lzh $B$KJQ49$9$k;~$KJXMx$K;H$C$F$^$9!#(B

#! /bin/csh -f
#
# filecase - filename (lower|upper) script.
#
# written 1992/06/23 by Hiramoto Kouji
# changed 1993/06/17 by Hiramoto Kouji
#  - "Dryrun" mode is done by argument "dryrun".

set upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
set lower = 'abcdefghijklmnopqrstuvwxyz'

switch ($#argv)
case 1:
switch ($argv[1])
case "dryrun":
set trans = 'y/'$upper'/'$lower'/'
breaksw
case "lower":
set trans = 'y/'$upper'/'$lower'/'
set do
breaksw
case "upper":
set trans = 'y/'$lower'/'$upper'/'
set do
breaksw
default:
goto USAGE
breaksw
endsw
breaksw
default:
goto USAGE
breaksw
endsw

foreach file (*)
set newfile = `echo $file | sed -e $trans`
if ($file != $newfile) then
echo -n '['$file'] -> ['$newfile']'
if ($?do) then
mv $file $newfile
echo ' moved.'
else
echo ''
endif
endif
end

exit 0

USAGE:
echo $0 '(dryrun|lower|upper)'
exit 1

 -----
 ($B3t(B)$B%/%\%?(B $B%3%s%T%e!<%?5;=QIt(B
    $BJ?K\(B $B8wFs(B / $B$_$s$H(B No.25
    E-Mail: hiramoto@kubota.co.jp, HGF03317@niftyserve.or.jp
