Quote

Code (perl): (dl )

1
2
3
4
5
6
7

foreach my $filename (@files) {
  my $uid = `mkvinfo --ui-language en "$filename" | grep -i '\+ Segment
UID:'`;
  chomp $uid;
  $uid =~ s/.*:\s+//;
  push @segment_uids, $uid;
}

1
2
3
4
5
6

foreach my $filename (@files) {
  my $uid = `mkvinfo --ui-language en "$filename"`;
  chomp $uid;
  $uid =~ s/\+\s+Segment\s+UID.*?:\s+(.*?)\n/$1/;
  push @segment_uids, $uid;
}