產生目前目錄下的檔案清單，並轉換成批次檔，可一次移動到select目錄 @ bagatelles

Jan 30 Thu 2014 21:22
產生目前目錄下的檔案清單，並轉換成批次檔，可一次移動到select目錄

# 產生目前目錄下的檔案清單，並轉換成批次檔，可一次移動到select目錄。

use strict;
use Time::HiRes qw(gettimeofday);
use 5.010;

my $selfName = $1 if ( __FILE__ =~ /\\(\w+\.pl$)/);
my $cmdFN = 'select.cmd';
my $tarDir = "_select";

my @files = glob("*.*");

open FILE, ">$cmdFN" or die "Can not write file, $!";
say FILE "mkdir $tarDir" ;
for(@files) {
    say FILE "move $_ $tarDir" if !(/$selfName|$cmdFN/);
}
close FILE;

system("pause");