Семь смертных грехов / Nanatsu no Taizai / The Seven Deadly Sins (Окамура Тэнсай) [TV] [24 из 24] [RUS(ext),JAP+Sub] [2014, приключения, HDTVRip] [720p]

#
# CКРИПТ АВТОМАТИЧЕСКОГО СБОРА АНИМЕ
# __________________________________
#
# Ver 1.0        © 2015, kDia Studio
# __________________________________
#
#
# Запуск: CONV [mark]
#
#     Если указан параметр, то будет считаться,
#     что в исходном контейнере есть метки глав.
#     (не знаю, как это определить автоматически)
#
#     Результат работы помещается в каталог OUT,
#     создаваемый в текущем каталоге. Если такой
#     уже есть, то OUT1, OUT2, OUT3...
#
# Требования:
#
#     PERL, любой версии.
#     MKVTOOLNIX, установленный в стандартный каталог.
#
# Организация каталогов:
#
#     В текущем каталоге должны быть файлы-контейнеры с
#     исходным видео: AVI, MKV, MPG, MP4... Можете добавить
#     нужное в скрипте.
#
#     Субтитры и звуковые дорожки ложатся в подкаталоги с
#     названиями. Например:
#
#         Rus Subs [Advokat]
#         Sound [Eladiel]
#         Persona 99
#
#     Если есть [] скобки в имени каталога, то скрипт считает, что название
#     дорожки внутри скобок. Если скобо нет, значит, имя каталога
#     и есть название.
#
# PS: Да, из названия файлов будет вырезано [raw] (type),
#     ибо это я считаю лишним в именах файлов. Можете исправить
#     функцию CutName (), тогда вырезания не будет.
#
#
# __________________________________
use Cwd;
# Глобальные переменные
@Dir = ();
@File = ();
@Add = ();
@Type = ();
@Title = ();
$Path = getcwd;
$Output;
# Функции
# __________________________________
sub DirCatalog
# Собирает список подкаталогов
{
    my @Temp;
    my $File;
    @Temp = <*>;
    foreach $File(@Temp)
    {
        if (-d $File)
        {
            push @Dir,$File;
        }
    }
}
sub GetTitle
# Возвращает заголовок дорожки, вычисленный из имени каталога,
# переданного в качестве параметра.
{
    my $i;
    $i = index ($_[0],"[");
    return ($i > -1)? substr ($_[0],$i+1,-1) : $_[0];
}
sub GetAdd
# Выбирает файл в указанном каталоге.
# В качестве параметра надо передать
# имя подкаталога и имя файла без расширения.
# Возвращает количество добавленных файлов.
{
    my $Name;
    my $Type = "";
    my $Title = "";
    $Title = & GetTitle ($_[0]);
    $Name = $_[0] . "\\" . $_[1] . ".ass"; if (-f $Name) { push @Add,$Name; push @Type,"Sub".$Title;}
    $Name = $_[0] . "\\" . $_[1] . ".ssa"; if (-f $Name) { push @Add,$Name; push @Type,"Sub".$Title;}
    $Name = $_[0] . "\\" . $_[1] . ".srt"; if (-f $Name) { push @Add,$Name; push @Type,"Sub".$Title;}
    $Name = $_[0] . "\\" . $_[1] . ".mka"; if (-f $Name) { push @Add,$Name; push @Type,"Dub".$Title;}
    $Name = $_[0] . "\\" . $_[1] . ".mp3"; if (-f $Name) { push @Add,$Name; push @Type,"Dub".$Title;}
    $Name = $_[0] . "\\" . $_[1] . ".acc"; if (-f $Name) { push @Add,$Name; push @Type,"Dub".$Title;}
    $Name = $_[0] . "\\" . $_[1] . ".wav"; if (-f $Name) { push @Add,$Name; push @Type,"Dub".$Title;}
}
sub Trim
# Убирает пробелы в начале и конце строки, переданной в качестве параметра.
{
    my ($string) = @_;
    for ($string)
    {
        s/^\s+//;
        s/\s+$//;
    }
    return $string;
}
sub CutName
# Обрезка лишнего в названии файла.
# Надо передать название в качестве параметра.
{
    my $Name;
    my $i;
    $Name = substr ($_[0],0,-4);                            # отрезаем расширение
    $i = index ($Name, "]");
    if($i > -1) { $Name = & Trim(substr ($Name, $i+1)); }   # отрезаем [...] в начале имени
    $i = index ($Name, "(");
    if ($i > -1) { $Name = & Trim(substr ($Name, 0, $i)); } # отрезаем (...) в конце имени
    return $Name;
}
sub MakeDir
# Создает каталог OUT. Если такой есть, то создает OUT с цифрой.
{
    my $Name = "OUT";
    my $i;
    if (-d $Name)
    {
        for ($i=1; -d ($Name . $i); $i++) {}
        $Name = $Name . $i;
    }
    mkdir $Name;
    return $Name;
}
sub MakeCommand
# Сборка команды из запчастей.
{
    my $i;
    my $Cmd;
    my $Out;
    my $Fot;
    my $Ngt;
    my $Lng;
    $Out = & CutName( $_[0]);
    $Fot = "\"--forced-track\" \"0:no\" ";
    $Ngt = "\"-T\" \"--no-global-tags\" ";
    $Lng = "\"--language\" \"0:rus\" \"--track-name\" \"0:";
    $Cmd = "\"C:\\Program Files\\MKVToolNix\\mkvmerge.exe\" -o ";
    $Cmd = $Cmd . "\"" . $Path . "\\". $Output . "\\" . $Out . ".mkv\" ";
    $Cmd = $Cmd . "\"--language\" \"0:jpn\" \"--track-name\" \"0:Video\" " . $Fot;
    $Cmd = $Cmd . "\"--language\" \"1:jpn\" \"--track-name\" \"1:Original\" \"--forced-track\" \"1:no\" ";
    $Cmd = $Cmd . "\"-a\" \"1\" \"-d\" \"0\" \"-S\" " . $Ngt;
    $Cmd = $Cmd . (@ARGV[0]?" ":"\"--no-chapters\" ");
    $Cmd = $Cmd . "\"(\" \"" . $Path . "\\" . $_[0] . "\" \")\" ";
    for ($i=0; @Add[$i]; $i++)
    {
        $Cmd = $Cmd . $Lng . substr (@Type[$i],3) . "\" " . $Fot;
        if (substr (@Type[$i],0,3) eq "Dub")
        {
            $Cmd = $Cmd . "\"-a\" \"0\" \"-D\" \"-S\" ";
        }
        else
        {
            $Cmd = $Cmd . "\"-s\" \"0\" \"-D\" \"-A\" ";
        }
        $Cmd = $Cmd . $Ngt. "\"--no-chapters\" " . "\"(\" \"" . $Path . "\\" . @Add[$i] . "\" \")\" ";
    }
    $Cmd = $Cmd . "\"--track-order\" \"0:0,0:1";
    for ($i=0; @Add[$i]; $i++)
    {
        $Cmd = $Cmd . "," . ($i+1) . ":0";
    }
    $Cmd = $Cmd . "\"";
    #print $Cmd,"\n";
    system "\@" . $Cmd;
}
sub Harvest
# К указанному в параметре файлу собирает
# по подкаталогам субтитры и озвучки.
{
    my $Name = substr ($_[0],0,-4);
    my $Temp;
    my $Count=0;
    my $Result;
    @Type = ();
    @Add  = ();
    foreach $Temp(@Dir)
    {
        & GetAdd ($Temp,$Name);
    }
    & MakeCommand ($_[0]);
}
# Основной модуль
# __________________________________
system "\@chcp 1251 >nul";
@File = <*.mkv *.mpg *.mp4 *.avi>;
& DirCatalog;
$Output = & MakeDir;
foreach $File(@File) { & Harvest ($File); }
system "\@chcp 866 >nul";