[РЕШЕНО] Скрипт для вырезания субтитров из MKV

[RazrFalcon]

Скрипт для вырезания субтитров из MKV:

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/bin/bash
#MKV subtitle extracting by RazrFalcon
#special thanks to aliftin
file=$@
IFS=$'\t\n'

dir=`dirname $file`
name=`basename $file | sed 's/.mkv//g'`
num=0
extnum=0
str_num=`mediainfo "$file" | grep -n 'Text #' | sed 's/:Text #.//g'`

function ext {
echo "Extracting:" `echo $newmy | sed -ne "$2"p` "from "$file""
mkvextract tracks "$file" -c UTF8 "$1":"$dir"/"$name"-"$2"."$3" --no-variable-data 2>&1 \
| awk -vRS='\r' '(NR>1){gsub(/%/," ");print $2; fflush();}' \
| zenity --progress --percentage=0 --auto-close --title="MKV Extraction Tools" \
--text="Extracting Subtitle Track №"$2"..." --width=300
let extnum++
}

#one sub file
if [ -z "$str_num" ]; then
str_num=`mediainfo "$file" | grep -n 'Text' | sed 's/:Text//g' | sed -ne "1"p`
let str_num++
id_sub=`mediainfo "$file" | sed -ne "$str_num"p | awk '{print $3}'`
let str_num++
format=`mediainfo "$file" | sed -ne "$str_num"p | awk '{print $3}'`
if [ "$format" = "UTF-8" ]; then ext "$id_sub" "1" "srt"; fi
if [ "$format" = "ASS"   ]; then ext "$id_sub" "1" "ass"; fi
if [ "$format" = "SSA"   ]; then ext "$id_sub" "1" "ssa"; fi
else

#less then 3 sub file

#get sub names
for i in $str_num; do
#get subtitle number (start from 1)
str_num=`mediainfo "$file" | grep -n 'Text #' | sed 's/:Text #.//g'`
let num++
snum+=""$num" "

#get sub id's
let i++
id_sub=`mediainfo "$file" | sed -ne "$i"p | awk '{print $3}'`
ids+=""$id_sub" "
my+="FALSE
"
#get sub format
let i++
format=`mediainfo "$file" | sed -ne "$i"p | awk '{print $3}'`
if [ $format = "UTF-8" ]; then format="SRT"; fi
#get sub name
let i+=4
stitle=`mediainfo "$file" | sed -ne "$i"p | awk '{print $3}'`
let i++
slang=`mediainfo "$file" | sed -ne "$i"p | awk '{print $3}'`

if [ -z $slang ];
then
my+=""$stitle" ("$format")
"
else
my+=""$stitle" ("$format", "$slang")
"
fi

if [ $format = "ASS" ]; then sformat+="ass "; fi
if [ $format = "SSA" ]; then sformat+="ssa "; fi
if [ $format = "SRT" ]; then sformat+="srt "; fi
done

#zenity chose
answer=$(zenity --list --title=$name --text="Select subtitles to extract:" --column=Item
 --column=Value --checklist --width=300 --height=242 $my --separator="\n")

#if nothing chosen
if [ -z "$answer" ] ; then exit 1; fi

unset IFS

#if something chosen
newmy=`echo "$my" | sed '/FALSE/d' `
IFS=$'\t\n'
for word in $newmy; do
for word2 in $answer; do
if [ "$word" = "$word2" ]; then temp="true"; fi
done
if [ "$temp" = "true" ]; then temp2+="true "; else temp2+="false "; fi
temp=""
done
unset IFS

#send arguments to ext function
IFS=" "
i3='$1'
i4=1
for str in $temp2; do
if [ "$str" = "true" ]; then
ext `echo "$ids" | awk -F" " '{print '$i3'}'` `echo "$snum" | awk -F" " '{print '$i3'}'` `echo "$sformat" | awk -F" " '{print '$i3'}'`
echo "$sformat" | awk -F" " '{print '$i3'}'
fi
let i4++
i3='$'$i4
done
unset IFS
fi

if [ $extnum -eq 0 ]; then gdialog --msgbox "No subtitles are extracted.\nMay be mkv doesn't have subtitles." 25 20
else gdialog --msgbox "Extracted "$extnum"\nsubtitle files" 25 20
fi

(Нажмите, чтобы показать/скрыть)

Зависимости: MKVToolNix и mediainfo

[aliftin]

Посмотрите, может mkvinfo выдает нужную информацию. Проверить не могу, так как нет ничего с субтирами.

[RazrFalcon]

(Нажмите, чтобы показать/скрыть)

+ EBML head
|+ Doc type: matroska
|+ Doc type version: 1
|+ Doc type read version: 1
+ Segment, size 8868301981
|+ Seek head (subentries will be skipped)
|+ EbmlVoid (size: 4025)
|+ Segment information
| + Timecode scale: 1000000
| + Muxing application: libebml v0.7.7 + libmatroska v0.8.1
| + Writing application: mkvmerge v2.2.0 ('Turn It On Again') built on Mar  4 2008 12:58:26
| + Duration: 5955.712s (01:39:15.712)
| + Date: Sat Oct  4 17:38:39 2008 UTC
| + Segment UID: 0xa4 0x0f 0xf4 0x87 0x6e 0x8a 0x2a 0xd8 0xa7 0x36 0xed 0x11 0xa9 0xde 0x99 0x09
|+ Segment tracks
| + A track
|  + Track number: 1
|  + Track UID: 2564380829
|  + Track type: video
|  + Enabled: 1
|  + Default flag: 1
|  + Forced flag: 0
|  + Lacing flag: 0
|  + MinCache: 1
|  + Timecode scale: 1
|  + Max BlockAddition ID: 0
|  + Codec ID: V_MPEG4/ISO/AVC
|  + Codec decode all: 1
|  + CodecPrivate, length 39 (h.264 profile: High @L4.1)
|  + Default duration: 41.708ms (23.976 fps for a video track)
|  + Language: eng
|  + Name: h264 1920x800
|  + Video track
|   + Pixel width: 1920
|   + Pixel height: 800
|   + Interlaced: 0
|   + Display width: 1920
|   + Display height: 800
| + A track
|  + Track number: 2
|  + Track UID: 2818525364
|  + Track type: audio
|  + Enabled: 1
|  + Default flag: 1
|  + Forced flag: 0
|  + Lacing flag: 1
|  + MinCache: 0
|  + Timecode scale: 1
|  + Max BlockAddition ID: 0
|  + Codec ID: A_AC3
|  + Codec decode all: 1
|  + Default duration: 32.000ms (31.250 fps for a video track)
|  + Language: rus
|  + Name: AC3 5.1, 448 kbps
|  + Audio track
|   + Sampling frequency: 48000
|   + Channels: 6
| + A track
|  + Track number: 3
|  + Track UID: 4205127839
|  + Track type: audio
|  + Enabled: 1
|  + Default flag: 0
|  + Forced flag: 0
|  + Lacing flag: 1
|  + MinCache: 0
|  + Timecode scale: 1
|  + Max BlockAddition ID: 0
|  + Codec ID: A_AC3
|  + Codec decode all: 1
|  + Default duration: 32.000ms (31.250 fps for a video track)
|  + Language: eng
|  + Name: AC3 5.1, 640 kbps
|  + Audio track
|   + Sampling frequency: 48000
|   + Channels: 6
| + A track
|  + Track number: 4
|  + Track UID: 3732746417
|  + Track type: subtitles
|  + Enabled: 1
|  + Default flag: 1
|  + Forced flag: 0
|  + Lacing flag: 0
|  + MinCache: 0
|  + Timecode scale: 1
|  + Max BlockAddition ID: 0
|  + Codec ID: S_TEXT/UTF8
|  + Codec decode all: 1
|  + Language: eng
|  + Name: English
|+ EbmlVoid (size: 1024)
|+ Cluster

Не намного лучше, хотя я про него вообще забыл.
Как получить следующую строку, после той, которую я нашел через grep
к примеру

Код: [Выделить]

mediainfo 'my.mkv' | grep -oe "Text"После Техт идет строка с ID, который мне и нужен.

[aliftin]

Как то так:

Код: [Выделить]

i=`cat ./subs | grep -rn  'Text #1' | sed 's/:/ /g' | awk '{print $1}'`
let "i+=1"
id_sub=`cat ./subs | sed -ne "$i"p | awk '{print $3}'`

echo "$id_sub"
Но это работает с текстом из спойлера первого поста и только с первой дорожкой титров. Сформируйте задачу поконкретней и дайте полный вывод команды "mediainfo 'my.mkv'".

[RazrFalcon]

Нужен скрипт для наутилуса. Нажимаем ПКМ на видео - извлечь сабы (все, можно потом и только русс).
Он смотрит какие сабы есть в mkv и экспортирует их рядом с видео.

(Нажмите, чтобы показать/скрыть)

General
Complete name                    : my.mkv
Format                           : Matroska
File size                        : 4.56 GiB
Duration                         : 1h 3mn
Overall bit rate                 : 10.3 Mbps
Movie name                       : HDClub
Encoded date                     : UTC 2009-02-05 00:08:48
Writing application              : mkvmerge v2.0.2 ('You're My Flame') built on Feb 21 2007 23:40:55
Writing library                  : libebml v0.7.7 + libmatroska v0.8.1

Video
ID                               : 1
Format                           : AVC
Format/Info                      : Advanced Video Codec
Format profile                   : High@L4.1
Format settings, CABAC           : Yes
Format settings, ReFrames        : 4 frames
Codec ID                         : V_MPEG4/ISO/AVC
Duration                         : 1h 3mn
Bit rate                         : 8 437 Kbps
Width                            : 1 920 pixels
Height                           : 1 080 pixels
Display aspect ratio             : 16:9
Frame rate                       : 23.976 fps
Color space                      : YUV
Chroma subsampling               : 4:2:0
Bit depth                        : 8 bits
Scan type                        : Progressive
Bits/(Pixel*Frame)               : 0.170
Stream size                      : 3.60 GiB (79%)
Title                            : HDClub
Writing library                  : x264 core 59 r826M 138601d
Encoding settings                : cabac=1 / ref=4 / deblock=1:-3:-3 / analyse=0x3:0x113 / me=umh / subme=6 / brdo=1 / mixed_ref=1 / me_range=24 / chroma_me=1 / trellis=0 / 8x8dct=1 / cqm=2 / deadzone=6,6 / chroma_qp_offset=0 / threads=6 / nr=0 / decimate=1 / mbaff=0 / fgo=0 / bframes=5 / b_pyramid=1 / b_adapt=1 / b_bias=0 / direct=1 / wpredb=1 / bime=1 / keyint=250 / keyint_min=25 / scenecut=40(pre) / rc=2pass / bitrate=8437 / ratetol=1.0 / rceq='blurCplx^(1-qComp)' / qcomp=1.00 / qpmin=10 / qpmax=51 / qpstep=4 / cplxblur=20.0 / qblur=0.5 / ip_ratio=1.40 / pb_ratio=1.30 / aq=2:1.00
Language                         : Japanese

Audio #1
ID                               : 2
Format                           : AC-3
Format/Info                      : Audio Coding 3
Mode extension                   : CM (complete main)
Codec ID                         : A_AC3
Duration                         : 1h 3mn
Bit rate mode                    : Constant
Bit rate                         : 448 Kbps
Channel(s)                       : 6 channels
Channel positions                : Front: L C R, Side: L R, LFE
Sampling rate                    : 48.0 KHz
Bit depth                        : 16 bits
Stream size                      : 203 MiB (4%)
Title                            : Дубляж AC3 5.1 448 Kbps
Language                         : Russian

Audio #2
ID                               : 3
Format                           : DTS
Format/Info                      : Digital Theater Systems
Codec ID                         : A_DTS
Duration                         : 1h 3mn
Bit rate mode                    : Constant
Bit rate                         : 1 510 Kbps
Channel(s)                       : 6 channels
Channel positions                : Front: L C R, Side: L R, LFE
Sampling rate                    : 48.0 KHz
Bit depth                        : 24 bits
Stream size                      : 685 MiB (15%)
Title                            : DTS 5.1 1536 Kbps
Language                         : Japanese

Text #1
ID                               : 4
Format                           : UTF-8
Codec ID                         : S_TEXT/UTF8
Codec ID/Info                    : UTF-8 Plain Text
Language                         : Russian

Text #2
ID                               : 5
Format                           : UTF-8
Codec ID                         : S_TEXT/UTF8
Codec ID/Info                    : UTF-8 Plain Text
Title                            : Перевод надписей
Language                         : Russian

Text #3
ID                               : 6
Format                           : ASS
Codec ID                         : S_TEXT/ASS
Codec ID/Info                    : Advanced Sub Station Alpha
Language                         : English

Ваш пример пашит, спасибо.
Сейчас надо под себя только доделать и все, посмотрим что выйдет.

[aliftin]

Как то вот так:

Код: [Выделить]

#!/bin/bash
#Sat Nov 20 00:49:04 MSK 2010

file_name=$@
IFS=$'\t\n'


temp=`mediainfo "$file_name" | grep -n 'Text #'`
#echo "$temp"


for i in $temp
do
string_number=`echo "$i" | grep -rn  'Text #1' | sed 's/:/ /g' | awk '{print $1}'`
let "string_number+=1"

id_sub=`mediainfo "$file_name" | sed -ne "$string_number"p | awk '{print $3}'`
echo "$id_sub"

#Вот тут происходит чудо и вытаскиваются субтитры под номером $id_sub.
#Как это вы собираетесь делать я не знаю, так что вставьте сами.
#Можно еще что нибудь через zenity сюда прикрутить или notify-send.

done

По идее должно работать. Если скармливать ему имя файла как параметр, то работает.

[RazrFalcon]

Практически дописал
Только я с циклами не успел разобраться еще в bash'е.

Код: [Выделить]

File=$NAUTILUS_SCRIPT_SELECTED_FILE_PATHSтак я пути беру (правда не уверен что будет работать с несколькими файлами, скорее нет), а потом экспортирую

Код: [Выделить]

mkvextract tracks "$File" -c UTF8 "$id_sub":"/media/data/sub"$id_sub".srt"ну или

Код: [Выделить]

mkvextract tracks "$File" -c UTF8 "$id_sub":"pwd"/sub"$id_sub".srt"еще мучаю одним словом.
Одним словом спасибо. В остальном проблем нет. Со всеми текущими проблемами вы мне помогли.
Насчет нотифай, легко. Только я хочу попробовать progressbar из gdialog. Экспортирует не 3-и сек, и хочется знать как дела у него.
Пользователь решил продолжить мысль 20 Ноября 2010, 07:36:37:

Код: [Выделить]

string_number=`echo "$i" | grep -rn  'Text #1' | sed 's/:/ /g' | awk '{print $1}'`ошибка, или мне кажется: после "$i" должен быть |
Пользователь решил продолжить мысль 20 Ноября 2010, 06:31:35:два идентичных скрипта
один запускаю в консоли другой через nautilus-scripts
в консольном все пашит:

Код: [Выделить]

file_name="/media/data/my.mkv"а в наутилус

Код: [Выделить]

file_name=$NAUTILUS_SCRIPT_SELECTED_FILE_PATHSэто не пашит, точнее echo $temp выдает пустоту при том что echo $file_name дает нормальный путь!
В чем проблема, я уже все перепробовал...  

Код: [Выделить]

mediainfo "$file_name" > tempus выдает пустоту

Код: [Выделить]

mediainfo $file_name > tempus уже выдает все
но

Код: [Выделить]

temp=`mediainfo $file_name | grep -on "Text #"` так и не работает

Код: [Выделить]

temp=`mediainfo $file_name | grep -n "Text #"`
echo $temp
70:Text #1 77:Text #2 85:Text #3
в одну строку =/

[aliftin]

Тут проблема или в grep или в переменной $IFS, по крайней мере мне так кажется. Попробуйте сначала получить переменную $temp, а потом указывать что разделитель строки "\n". Примерно так:

Код: [Выделить]

...
temp=`mediainfo "$file_name" | grep -n 'Text #'`

IFS=$'\t\n'
...
Все это будет работать с одним файлом. Я где то тут писал что то похожее для конвертирования mkv в avi  с нормальным разрешением, так вот там я расписывал 2 варианта: папка с файлами и просто файл. Поищите, может поймете принцип работы.

[RazrFalcon]

0  

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/bin/bash

file_name=$NAUTILUS_SCRIPT_SELECTED_FILE_PATHS

temp=`mediainfo $file_name | grep -on "Text #"`

IFS=$'\t\n'

$temp > temp

num=1
for i in $temp
do
string_number=`echo "$i" | sed 's/:Text #'$num'//g'`
let "string_number+=1"
let "num+=1"
id_sub=`mediainfo "$file_name" | sed -ne "$string_number"p | awk '{print $3}'`
#echo "$id_sub"

mkvextract tracks "$file_name" -c UTF8 "$id_sub":"/media/data/sub"$id_sub".srt"

#Вот тут происходит чудо и вытаскиваются субтитры под номером $id_sub.
#Как это вы собираетесь делать я не знаю, так что вставьте сами.
#Можно еще что нибудь через zenity сюда прикрутить или notify-send.

done

Код: [Выделить]

file_name=$@что это делает?

PS это

[aliftin]

Это мы получаем имя файла. В консоли это выглядит так:

Код: [Выделить]

./script.sh /путь_к_файлу/film.mkv
Вот переменная "$@"  и есть "/путь_к_файлу/film.mkv". Я не пользуюсь nautilus-scripts, мне проще создать папку со своими скриптами и запускать их из консоли или добавить в "Open with".

[RazrFalcon]

Надо подумать....
Так как просто скрипт у меня пашит. И так как мне нужно.

[aliftin]

Попробуйте вот так:

Код: [Выделить]

#!/bin/bash

IFS=$'\n'

while [ $# -gt 0 ]
do
file_name="$1"

temp=`mediainfo $file_name | grep -n 'Text #'`

for i in $temp
do
string_number=`echo "$i" | sed 's/:/ /g' | awk '{print $1}'`


let "string_number+=1"

id_sub=`mediainfo $file_name | sed -ne "$string_number"p | awk '{print $3}'`

#echo "$id_sub">>123
#echo "">>123

#Вот тут происходит чудо и вытаскиваются субтитры под номером $id_sub.
#Как это вы собираетесь делать я не знаю, так что вставьте сами.
#Можно еще что нибудь через zenity сюда прикрутить или notify-send.

done
shift
done
Закидывал в папку со скриптами и на выходе получал id в текстовом файле. Только вместо "mediainfo $file_name" я использовал "cat /home/aliftin/subs" из вашего четвертого поста. mediainfo это часть какого пакета?

[RazrFalcon]

mediainfo, у меня только консольный вариант.
Ваш пример работает.

Код: [Выделить]

./script path_to_my_mkv
cat 123
3
4То есть, логику я понимаю, то что мне и требовалось. Дальше переделывать скрипт я могу. Я не понимаю только почему через nautilus-scripts не пашит и что такое

Код: [Выделить]

IFS=$'\n'то есть мы задаем символ табуляции как я понимаю, но зачем?

[aliftin]

Это мы задаем перенос строки. Создайте в папке 3 файла с именами содержащими пробелы. Потом выполните в ней скрипт:

Код: [Выделить]

#!/bin/bash
#IFS=$'\n'

for i in `ls ./`
do
echo "$i"
done

А теперь раскоментируйте строку и посмотрите в чем разница.

[RazrFalcon]

Аааа.... Понял.
Как добавить в "Open with"?
Все таки хочется в nautilus-scripts, чтобы было на ПКМ. =/
Пользователь решил продолжить мысль 20 Ноября 2010, 16:41:11:В nautilus-actions можно добавить скрипт?
У меня почему то не реагирует.

Код: [Выделить]

sh /media/data/script
%f