Segment-UID automatisch einfügen lassen?

@echo off &setlocal enabledelayedexpansion
:: link all mkv vids in the current folder in alphabetical order to one another
set /a mcnt=0
for /f "tokens=*" %%i in ('dir /b /on *.mkv') do (
	echo.reading: %%i
	for /f "tokens=2* delims=|+: " %%j in ('mkvinfo --output-charset utf-8 --ui-language en "%%i"^|find "Segment UID"') do (
		set /a mcnt+=1
		set "$mkv!mcnt!=%%i"
		set "$uid!mcnt!=%%k"
	)
)
for /l %%i in (1,1,%mcnt%) do (
	set /a p="%%i-1"
	set /a n="%%i+1"
	call set "mkv=%%$mkv%%i%%"
	call set "puid=%%$uid!p!%%"
	call set "nuid=%%$uid!n!%%"
	if defined puid set "cline=--set prev-uid="!puid!""
	if defined nuid set "cline=!cline! --set next-uid="!nuid!""
	echo.
	echo.joining: !mkv!
	mkvpropedit --ui-language en "!mkv!" !cline!
)
endlocal

use 5.010;
use strict;
use warnings;


# Dateien auflisten und sortieren
my @files = sort glob '*.mkv';


# Segment-UIDs via mkvinfo auslesen
my @uids = map {
    my $file = $_;


    open my $mkvinfo, '-|', qq/mkvinfo --ui-language en "$file"/
	or die "Couldn't run mkvinfo on $file: $!";

    my $uid;
    while (my $_ = <$mkvinfo>) {
	if (/\+ Segment UID:\s+(.*?)[\r\n]*\z/) {
	    $uid = $1;
	    $uid =~ s/\s*0x//g;
	    last;
	}
    }


    close $mkvinfo
	or die "Error running mkvinfo on $file: $!";


    warn "Couldn't determine UID for $file" unless (defined $uid);


    $uid
} @files;


# Ueber alle Dateien iterieren und Felder setzen
for ($[ .. $#files) {
    my $file = $files[$_];


    my $next_uid = ($_ + 1 <= $#uids ? $uids[$_ + 1] : undef);


    my @options;
    push @options, qq/--set next-uid="$next_uid"/ if (defined $next_uid);


    if (@options) {
	system(qq/mkvpropedit "$file" --edit info @options/) == 0
	    or die "Couldn't run mkvpropedit on $file: status $?"
    }
}

C:\Video\Test>mkvinfo.exe "c:/Video/Test/test17.mkv"
+ EBML-Kopf
|+ EBML-Version: 1
|+ EBML Leseversion: 1
|+ Maximale EBML-ID-Länge: 4
|+ Maximale Länge des EBML-Längenattributes: 8
|+ Dokumententyp: matroska
|+ Dokumententyp Version: 4
|+ Dokumententyp Leseversion: 2
+ Segment, Größe 97009644
|+ Seek-Kopf (Untereinträge werden ausgelassen)
|+ Segment-Information
| + Zeitstempelskalierungsfaktor: 1000000
| + Muxeranwendung: libebml v1.3.0 + libmatroska v1.4.0
| + Schreibende Anwendung: mkvmerge v6.0.0 ('Coming Up For Air') built on Jan 20 2013 12:38:35
| + Dauer: 350.190s (00:05:50.190)
| + Datum: Tue Feb 05 18:24:33 2013 UTC
| + Titel: Ohne Worte
| + Segment-UID: 0x93 0xc1 0x62 0x7b 0x9b 0x27 0xf2 0xfc 0xbb 0x9a 0xb3 0x22 0xf2 0x6f 0xe3 0xa2
| + Vorherige Segment-UID: 0x88 0x31 0xbe 0x47 0xc2 0x43 0x49 0x15 0xac 0xa9 0x7b 0x17 0x54 0xc6 0x15 0xb8
| + Nächste Segment-UID: 0x88 0x31 0xbe 0x47 0xc2 0x43 0x49 0x15 0xac 0xa9 0x7b 0x17 0x54 0xc6 0x15 0xb8
|+ EbmlVoid (Größe: 3972)
|+ Segment-Tracks
| + Ein Track
|  + Tracknummer: 1 (Track-ID für mkvmerge & mkvextract: 0)
|  + Track UID: 1
|  + Tracktyp: video
|  + Flag für Paketbündelung: 0
|  + MinCache: 1
|  + Codec-ID: V_MPEG4/ISO/AVC
|  + private Codecdaten, Länge 41 (h.264-Profil: High @L3.0)
|  + Standarddauer: 1.000ms (1000.000 Bilder/Felder pro Sekunde im Falle eines Videotracks)
|  + Sprache: und
|  + Video-Track
|   + Pixelbreite: 720
|   + Pixelhöhe: 400
|   + Anzeigebreite: 720
|   + Anzeigehöhe: 400
| + Ein Track
|  + Tracknummer: 2 (Track-ID für mkvmerge & mkvextract: 1)
|  + Track UID: 2
|  + Tracktyp: audio
|  + Codec-ID: A_AAC
|  + private Codecdaten, Länge 2
|  + Standarddauer: 23.220ms (43.066 Bilder/Felder pro Sekunde im Falle eines Videotracks)
|  + Sprache: und
|  + Audio track
|   + Abtastrate: 44100
|   + Kanäle: 2
|+ EbmlVoid (Größe: 1085)
|+ Kapitel
| + EditionEntry
|  + EditionFlagHidden: 0
|  + EditionFlagDefault: 0
|  + EditionUID: 8235250420357662600
|  + ChapterAtom
|   + ChapterUID: 17752970298869645485
|   + ChapterTimeStart: 00:00:00.000000000
|   + ChapterFlagHidden: 0
|   + ChapterFlagEnabled: 1
|   + ChapterDisplay
|    + ChapterString: Chapter 17
|    + ChapterLanguage: ger
|+ EbmlVoid (Größe: 911)
|+ Cluster


C:\Video\Test>