새 폴더를 만들고 파일을 올리는 방법

soft와 같은 "coverflow"의 기준과 일치하려면 필름 디렉토리에있는 각 film.avi 및 cover.jpg에 대해 특정 폴더 ( "name_of_the_film")를 만들어야합니다.

오늘:

d:/film/starwars.avi, 
d:/film/starwars2.avi
d:/film/starwars.jpg
d::film/starwars2.jpg

내일:

d:/film/starwars
d:/film/starwars/starwars.avi
d:/film/starwars/starwars.jpg 
d:/film/starwars2
d:/film/starwars2/starwars2.avi
d:/film/starwars2/starwars2.jpg 

이 작업을 자동으로 수행 할 수 있습니까?

이 작업을 수행하는 응용 프로그램은 알지 못하지만 짧은 Perl 또는 Python 스크립트를 작성하여 사용할 수 있습니다. 다음과 같은 펄 스크립트가 필요한 것을 수행해야합니다.

use File::Copy;

my $baseDir = "D:/film/";

opendir my $dir, $baseDir or die "Cannot open directory: $!";
my @files = readdir $dir;

foreach my $file (@files)
{
  $fileName = $1 if ($file =~ /^(.*)\.[^\.]+$/i);
  mkdir("$baseDir/$fileName") unless (-d "$baseDir/$fileName");
  move("$baseDir/$file", "$baseDir/$fileName/$file");
}

perl을 설치했다고 가정하면이 스크립트를 CreateMovieFolders.pl로 저장 한 다음 perl CreateMovieFolders.pl명령 줄에서 실행 하십시오.

배치 스크립트로 수행 할 수 있습니다.

루프 변수를 처리 할 수있는 방법 목록은 여기 를 참조하십시오 .