This shows you the differences between two versions of the page.
Both sides previous revision Previous revision | |||
mkv [2024-01-02 20:32:52] mi [Chapters] |
mkv [2024-01-27 11:07:45] (current) mi [Extract subtitles] |
||
---|---|---|---|
Line 30: | Line 30: | ||
mkvinfo --summary "$f" | head -10 \ | mkvinfo --summary "$f" | head -10 \ | ||
| perl -nle 'if ( /^Track (\d+): subtitles, codec ID: ([A-Z_]+).*extract track ID: (\d+)(?:, language: (\S+))?/ ) { | | perl -nle 'if ( /^Track (\d+): subtitles, codec ID: ([A-Z_]+).*extract track ID: (\d+)(?:, language: (\S+))?/ ) { | ||
- | warn "$_ = $1: type=$2, xtrack=$3, lang=$4\n"; print "$2 $3 $4" }' \ | + | warn "$_=$1: type=$2, xtrack=$3, lang=$4\n"; print "$2 $3 $4" }' \ |
| while read type t lang; do d=$(dirname "$f"); b=$(basename "$f"); | | while read type t lang; do d=$(dirname "$f"); b=$(basename "$f"); | ||
echo "#Run this:# mkvextract tracks \"\$f\" $t:'$d/$b-$lang-$t.$type'"; done | echo "#Run this:# mkvextract tracks \"\$f\" $t:'$d/$b-$lang-$t.$type'"; done |