#!/usr/bin/perl
use strict;
use warnings;
my $newDir="files";
unless(-d $newDir)
{
mkdir $newDir or die $!;
}
my @allFiles=glob("*");
foreach my $subDir(@allFiles)
{
if(-d $subDir)
{
opendir(SUB,".\\$subDir") or die $!;
while(my $file=readdir(SUB))
{
if($file=~/\.gz$/)
{
`copy .\\$subDir\\$file .\\$newDir`;
}
}
close(SUB);
}
}
uj5u.com熱心網友回復:
CMD能運行perl代碼么?沒這樣用過。。。uj5u.com熱心網友回復:
描述錯誤了,是perl代碼為這個,在CMD中運行putfiletoone.pl轉載請註明出處,本文鏈接:https://www.uj5u.com/caozuo/61159.html
標籤:Windows客戶端使用
