$B!!<'NO$O;~4V$,7P$D$HCLWIJ$G(B
$B$"$k!#J|CV$7$F$*$/$H!"$=$N$&$A$@$s$@$s%G!<%?$,FI$a$J$/$J$k$N$G$"$k!#$3$l(B
$B$KBP$7$F8w$G>F$-$-$k$h$&$J8w%G%#%9%/$N>l9g!"<'5$$G$O$J$$$@$1$KD94|4V$NJ](B
$BB8$b2DG=$K$J$k!#9M$($F$_$l$P:G$bD94|4V%G!<%?$,;D$;$=$&$JG^BN$H$$$&$H!";f(B
$B%F!<%W$H$+;f%+!<%I$H$$$&$3$H$K$J$C$F$7$^$&$N$@$m$&$+!#(B
$B!!%O!<%I%G%#%9%/$OL)JD$5$l$F$$$k$+$i!"?6F0$5$(M?$($J$1$l$P%U%m%C%T!<%G%#(B
$B%9%/$h$j$ONI9%$J4D6-$+$b$7$l$J$$!#%U%m%C%T!<%G%#%9%/$NG^BN
$B!!;d$N;}$C$F$$$k%Q%=%3%sDL?.$N%m%0$G0lHV8E$$$b$N$O(B1987$BG/:"$N$b$N$@$+$i!"(B
$B$=$N$^$^$@$H(B10$BG/7P2a$7$?$3$H$K$J$k!#$b$A$m$s!"(B10$BG/8e$b%G!<%?$,FI$a$k$H$O(B
$B;W$C$F$$$J$+$i!"%G!<%?$O4{$K(BMO$B$K%3%T!<$7$F$"$k!#$=$l$r(BCD-R$B$K%3%T!<$9$l$P(B
$B:Q$`$N$+$b$7$l$J$$$,!"GQ4~$9$kA0$K%3%T!<$7$F$*$+$J$$$H!"$I$&$bMn$ACe$+$J(B
$B$$$N$G$"$k!#$5$F!"$3$l$r(BCD-R$B$K%3%T!<$7$F$_$F!"$I$&$J$C$?$+$H$$$&$H!"(B10$BKg(B
$B$N$&$A(B1$BKgDxEY$K%(%i!<$,H/@8$9$k$3$H$,J,$C$?!#(B9$B3d$OLdBj$J$/FI$a$k$N$G$"$k!#(B
$B0U30$HA1@o$7$F$$$k!#J]B84D6-$OBg$-$/1F6A$9$k$i$7$$!#$3$A$i$NET9g$G%U%m%C(B
$B%T!<$rJ]B8$9$k>l=j$,Fs$+=j$KJ,$l$F$$$?$N$@$,!"0lJ}$G$O%(%i!uBV$N$b$N$O!"%(%i!l9g$O!"N>C<$N$b$N$,%(%i!<$K$J$j$d$9$$!#Bg;(GD$@$,!"$=$N$h$&$J(B
$B46$8$,$7$?!#(B
$B!!%1!<%9$KF~$l$F$*$$$?$b$N$,%(%i!<$,H/@8$7$J$$$H$$$&$3$H$O!"<'NO$NNt2=$H(B
$B$$$&$@$1$G$J$/!"%[%3%j$d%+%S$N1F6A$,=P$F$$$k$N$@$m$&!#$^$5$+Cn$,?)$C$?$H(B
$B$$$&$N$O$J$$$H;W$&$1$I!"$$$A$$$AI=LL8!::$7$F$$$k$o$1$G$O$J$$$N$G2?$H$b$$(B
$B$($J$$!#(B
$B!!LLGr$$$3$H$K!"!V%a%G%#%"%(%i!$N(BFDD$B$G$d$C$F$$$?$i!"%(%i!
$B!!%U%m%C%T!<$NCf$N%U%!%$%k$r(BCD-R$B$KD>@\%3%T!<$9$k$N$OL5M}$@$+$i!"$^$:(BHDD
$B$K%3%T!<$7$F$+$i$=$l$r0l5$$K(BCD-R$B$K>F$/$3$H$K$J$k!#%U%m%C%T!<$+$i(BHDD$B$X$N(B
$B%3%T!<$O(BWindows 95$B$N(BDOS$B%W%m%s%W%H2hLL$+$i(Bxcopy$B%3%^%s%I$G9T$C$?!#$o$6$o$6(B
DOS$B%W%m%s%W%H$G$d$i$J$/$F$b%U%)%k%@$r3+$$$F%I%i%C%0(B&$B%I%m%C%W$9$l$P$h$5$=(B
$B$&$J$b$N$@$,!"8e=R$N$h$&$J%j%H%i%$:n6H$,$"$k$?$a!"(BGUI$B$NJ}$,
$B!!(Bxcopy$B$r/$7LdBj$,$"$C$?!#%(%i!<$,H/@8$7$?$i$=$3$G%3%T!<(B
$B=hM}$r=*N;$7$F$7$^$&$N$@!#(BPC386M$B$r;H$C$F$$$?:"$N(Bxcopy$B$O!"%(%i!<$,H/@8$7(B
$B$?;~$K$O=hM}$NA*Br%a%K%e!<$,I=<($5$l$F!"$=$N;~$K(BI)gnore$B$9$k%*%W%7%g%s$,(B
$B$"$C$?$H;W$&$N$@$,!"$b$7$+$9$k$H5-210c$$$@$m$&$+!#$H$b$+$/!"%(%i!<$rL5;k(B
$B$9$k@_Dj$O$J$$$+$HD4$Y$F$_$?$i!"%*%W%7%g%s$H$7$FMQ0U$5$l$F$$$?!#(B
$B!!$H$3$m$,!"(Bxcopy$B$G%(%i!<$,H/@8$9$k$N$r8+$F$$$k$H!"$d$1$K$"$C$5$j%(%i!<(B
$B$K$J$C$F$$$k$N$G$"$k!#$D$^$j!"$"$^$j%j%H%i%$$7$F$$$J$$$h$&$K8+$($k!#%U%m(B
$B%C%T!<$r(Bcopy$B%3%^%s%I$G%3%T!<$9$k$H%j!<%I%(%i!<$,H/@8$9$k$3$H$,$"$k$,!"%j(B
$B%H%i%$$9$l$PFI$a$k$3$H$b$"$k$N$@!#$3$N;~$N%3%D$rEA
$B!!!&$^$:%j%H%i%$$7$F$_$k!#(B2$B!"(B3$B2sDxEY!#(B
$B!!!&>/$7BT$C$F!"(BFDD$B$N(BLED$B$,>C$($k$N$rBT$C$F!"$=$l$+$i%j%H%i%$$9$k!#(B
$B!!!&(BLED$B$,>C$($?>uBV$G(BFD$B$r$9!#$=$7$F%j%H%i%$$9$k!#(B
$B!!!&%"%/%;%9Cf$K%H%s%H%s$H%U%m%C%T!<$NGXCf$r7Z$/$?$?$$$F$_$k!#(B
$B!!!&D|$a$k!#(B
$B!!$3$s$J46$8$G$"$k!#$J$*!"%"%/%;%9Cf$K%U%m%C%T!<$rC!$/$H$$$&$N$OHkEA$@$,!"(B
$B$3$l$G%I%i%$%V$,2u$l$k$+$b$7$l$J$$$N$G!"%j%9%/$O3F<+$H$$$&$3$H$G$*4j$$$7(B
$B$?$$!#(B
$B!!$H$K$+$/!"$&$A$N(Bxcopy$B$OD|$a$,$h$$%?%$%W$N$h$&$J$N$G!"(Bxcopy$B$G<:GT$7$?%U(B
$B%!%$%k$@$1$r:FEY%3%T!<$9$k$3$H$K$7$?!#$5$F!"$I$&$9$l$P$h$$$+!#A4It%3%T!<(B
$B$7D>$9$H!"L5BL$J$@$1$G$J$/!"A02s$N%3%T!<$N;~$@$16vA3FI$a$?%U%!%$%k$,FsEY(B
$B$HFI$a$J$$$H$$$&>l9g$KB;$r$9$k!#$=$3$G!"%(%i!<$,H/@8$7$?;~$N%m%0$,$"$k$H(B
$B$$$&A0Ds$G!"%m%0$r2r@O$7$F!"<:GT$7$?%U%!%$%k$@$1:FEY%3%T!<$9$k%3%^%s%I$r(B
$B:n@.$9$l$P$h$$$H$$$&7kO@$K$J$C$?!#%m%0$r$I$&$9$k$+$H$$$&LdBj$@$,!"(BVz
Editor$B$N%3%^%s%I2hLL(B($BJT=8Cf$J$i(BESC + E)$B$G%P%C%/%m%0$ruBV$K$7$F;H(B
$B$C$?!#(B
$B!!(Bxcopy$B$r
---- fig.1 ---- |
FPROG.TMP
$B%U%!%$%k(B A:\FPROG.TMP $B$r(B D:\fd\fd.226\FPROG.TMP $B$K%3%T!<$G$-$^$;$s$G$7$?!#(B
$B;XDj$5$l$?(BΓήΚή²½$B$+$iFI$_9~$_$a$^$;$s!#(B
|
---- list 1 (retry.pl) ---- |
#!/usr/local/bin/perl
$in = "temp"; # xcopy$B$N2hLLI=<(FbMF(B
$out = "retry.bat"; # $B@8@.$9$k%P%C%A%U%!%$%k(B
open(IN, $in) || die "can't read $in\n";
open(OUT, ">$out") || die "can't create batch file ($out)\n";
while (<IN>) {
if (/^$B%U%!%$%k(B (.*) $B$r(B (.*) $B$K%3%T!<$G$-$^$;$s$G$7$?!#(B$/) {
print OUT "copy/v $1 $2\n";
}
if (/^$B%U%!%$%k(B (.*) $B$r(B (\S+)$/) {
$from = $1;
$to = $2;
$_ = <IN>;
if (/^$B$K%3%T!<$G$-$^$;$s$G$7$?!#(B$/) {
print OUT "copy/v $from $to\n";
}
}
}
close(OUT);
close(IN);
0;
|
$B!!(Blist 1$B$K$OFs$D$N(Bif$B$,=P$F$/$k$,!"Fs$DL\$N(Bif$B$N=hM}$O!"%Q%9$,D9$$>l9g$K!V(B
$B$K%3%T!<$G$-$^$;$s$G$7$?!#!W$ND>A0$G2~9T$5$l$k$3$H$,$"$k$?$a!"8e$+$iDI2C(B
$B$7$?$b$N$@!#$3$N$h$&$KFs$+=j$K(Bprint$B$,=P$F$/$k$N$O
$B!!%(%i!<%m%0$KBP$7$F$3$N%9%/%j%W%H$r$l$KBP$7$F%(%i!<$,H/@8$7$?$iA0=R$NJ}K!$G%j%H%i%$$9$k$N$@!#(B
$B$3$l$G=$I|$G$-$?%U%!%$%k$b$+$J$j$"$C$?!#D|$a$:$K$d$C$F$_$k$b$N$G$"$k!#(B
---- fig. 2 (retry.bat) ---- |
copy/v A:\FPROG.TMP D:\fd\fd.226\FPROG.TMP
|
($B%U%#%s%m!<%@(B $B%K%U%F%#%5!<%V(B FPROG SYSOP)
(C) 1998 Phinloda, All rights reserved
$BL5CG$G$3$N%Z!<%8$X$N%j%s%/$rE=$k$3$H$r>5Bz$7$^$9!#Ld$$9g$o$;$OITMW$G$9!#(B
$BFbMF$OM=9p$J$/JQ99$9$k$3$H$,$"$j$^$9!#(B