perl 数组保存成文件 10
@attachments，里面放很多文件，rar,txt,xls,xlsx等，判断是XLSX或者XLS的文件保存到d:\test，文件夹下，这个要怎么写啊，谢谢啦...
@attachments，里面放很多文件，rar,txt,xls,xlsx等，判断是XLSX或者XLS的文件保存到d:\test ，文件夹下，这个要怎么写啊，谢谢啦
展开
1个回答
展开全部
for(grep{/\.(xlsx|xls)$/i} @attachments)
{
my $r = qx(echo d|xcopy /y "$_" "d:\\test");
print "文件$_复制失败\n" if($r =! /复制了\s(\d+)\s个文件/s && $1>0);
}
{
my $r = qx(echo d|xcopy /y "$_" "d:\\test");
print "文件$_复制失败\n" if($r =! /复制了\s(\d+)\s个文件/s && $1>0);
}
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
