指点一下这个利用PERL备份的windows脚本？

@rem ='
@echo off
set sourcefile=\\10.151.130.72\proj\
set targetfile=E:\ZHPE\__tmp__\
if exist %targetfile% rd /s /q %targetfile%
mkdir %targetfile%
mkdir %targetfile%\ZHP000
mkdir %targetfile%\ZHPISO
mkdir %targetfile%\ZHPMAC
mkdir %targetfile%\ZHPPIC
xcopy /e /v /h %sourcefile%\ZHP000 %targetfile%\ZHP000
xcopy /e /v /h %sourcefile%\ZHPISO %targetfile%\ZHPISO
xcopy /e /v /h %sourcefile%\ZHPMAC %targetfile%\ZHPMAC
xcopy /e /v /h %sourcefile%\ZHPPIC %targetfile%\ZHPPIC
perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
';
my $sourcefile = "E:\\ZHPE\\__tmp__";
my $filename = `DATE /T`;
$filename =~ s/\s.*$//;
print "Rename success\n" unless system "ren $sourcefile $filename";


__END__
:endofperl
pause





能够完成工作，感觉很不完美，望指点指点。

你是指代码，还是指其完成的功能？

ps ： 为什么copy 用 批处理，而重命名却用perl？

楼主能不能增强其功能，调用7-zip命令进行压缩备份？能不能加你QQ？谢谢

完成其功能，主要用PERL匹配了一个备份需要的文件名
感觉很不完美就发上来了

纯PERL时文件夹操作什么的不是很兼容
纯windows的实现方法不会

在公司不能上QQ哈
真没想到大家这么热情，谢谢！

用纯windows脚本得了，或者你的新文件夹名：
echo %date:~0,10%

可以解释一下吗？
怎样得到一个时间命名文件变量

为什么会不兼容，在windows 上，拷贝一个文件完全没有问题。

set myfilename=%date:~0,10%
echo myfilename is %myfilename%

谢谢！
纯windows已经实现功能
纯PERL的话不知道局域网文件夹怎么操作，调用windows系统命令时老是说找不到目标文件。

操作局域网文件时,注意以下"\"的用法就可以了,没什么特别的