Newsgroups: fj.questions.unix
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!news.iij.ad.jp!nttfgw.ntt-f.co.jp!lab!news.imnet.ad.jp!statky2.stanet!nova.geo.bosai.go.jp!news.tisn.ad.jp!is.s.u-tokyo!mech.t.u-tokyo.ac.jp!t-server!news.nc.u-tokyo.ac.jp!newssinet!news.ipc.chiba-u!news.tj.chiba-u!asada
From: asada@ics.tj.chiba-u.ac.jp (Takuya Asada)
Subject: Re: no overwrite 'mv'
Message-ID: <DGLFKr.LyI@ics.tj.chiba-u.ac.jp>
Sender: usenet@ics.tj.chiba-u.ac.jp
Nntp-Posting-Host: icsj6.tj.chiba-u.ac.jp
Organization: Chiba-University
References: <KAGIMOTO.95Oct17180503@ocean6.geoph.s.u-tokyo.ac.jp>
Date: Tue, 17 Oct 1995 12:48:26 GMT
Lines: 41
Xref: galaxy.trc.rwcp.or.jp fj.questions.unix:4982
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.questions.unix&nb=4982&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.

$B$"$5$@$J$N$G$9!#(B

$B80K\$5$s(B> 
> $B!VCY$$$N$,6L$K`l$G$9!W$,!"(Bexpect $B%9%/%j%W%H$G$d$k$N$OG!2?$G(B
> $B$7$g$&$+!)(B

$B$r$r!"(Bexpect $B$r;H$&$H$$$&$N$O;W$$$D$-$^$;$s$G$7$?(B ^^;

> $B!t$&!<$`!"$=$l$K$7$F$bCY$$!*$b$C$HB.$/F0:n$9$k$h$&$KC/$+JQ99(B
> $B!t$7$F$/$l$J$$$+$J$!(B....

$BKh2s(B mv $B$r(B spawn $B$7$F$$$k$N$,!"$+$J$j%M%C%/$K$J$k$H;W$&$G$9$,!D(B
$B$G$b!"%o%6%o%6(B expect $B$/$i$$$N5-=RNO$,$"$k%b%N$r;H$&$s$@$C$?$i!"(B
$B$$$C$=!"(Btclsh $B$@$1$G$d$C$F$7$^$($P%$%$$s$8$c$J$$$G$7$g$&$+!)(B

$B%G%C%A%"%2$J$N$G!":Y$+$$E@$O%+%s%Y%s$7$F2<$5$$!#(B

-- 
#!/usr/local/bin/tclsh

set mv "/bin/mv"

if {2 > $argc} {
puts "$B$($i!<(B"
exit
}

set last [expr $argc-1]
set dest [lindex $argv $last]
set afile [lreplace $argv $last $last]
set ofile {}

foreach f $afile {
        if {![file exists $dest/$f]} {
exec $mv $f $dest
        }
}
-- 

$B$"$5$@(B $B$?$/$d(B

