0904892 (ニククエ 8723-4omT)
2018/11/29(木) 15:30:53.40ID:T7XoxAyK0NIKUmy ( $FilePath, $Title2F ) = map { decode('cp932',$_) } @ARGV;
$Title2F =~ s/^.*\\//; # fail safe to avoid creating unexpected directory
$Title2F =~ s/ *#[0-9].*$//;
$Title2F =~ s/ *(?:最終話|第.{1,3}話).*$//;
chdir( encode('cp932', $FolderRoot ) );
unless( -d encode('cp932', $Title2F ) ){
mkdir( encode('cp932', $Title2F) );
}
if( -d encode('cp932', $Title2F ) ){
copy( encode('cp932', $FilePath) , encode('cp932', $Title2F) );
}else{
# error but no action is required.
}