1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| sub inputdir {
print "INFO: Reading input directory...\n";
opendir DIR,$input or die "ERROR: ",$input," : ",$!;
@files = readdir DIR;
close DIR;
foreach (@files) {
next if ($_ =~ /^\.\.?$/); # evite . et ..
next if ($_ =~ /\.tmp/);
if (-f $_) { # si l'object est bien un fichier
push(@filetomove, "$input/$_,$output[$i]/$_");
$i ++;
if ($i == (scalar(@output))) {
$i = 0;
}
}
}
}
sub movefiles {
my $length = @filetomove;
while ($length > 0) {
my $line = shift(@filetomove);
($in, $out) = split(/,/,$line);
print "INFO: Move From: ",$in," To: ",$out,"\n";
rename("$in","$out") or warn "ERROR: ",$!,"\n";
$length = $length -1;
}
} |
Partager