RED 2

[Gronnie]

Is there any way to rip this with the HD Audio track using MakeMKV?

It doesn't even show up as an audio track.

[joe42]

Is there any way to rip this with the HD Audio track using MakeMKV?

It doesn't even show up as an audio track.

That is because the rental BR does not have the DTS-MA track. Netflix et al. get a discount buying direct but the discs they get are lower quality and/or missing features.

[dashocker]

I ended up ripping 577.

It seems to be correct.

I ripped this after a few bad choices. Thanks for the pointer.

I watched it all the way through. I can vouch for it. It is correct.

This is for the rental that I got from a Redbox.

Oh, and this sequel is actually better than the first. I give it a solid three stars. Tongue-in-cheek action film with a charismatic all-star cast. No expense spared. A eurovan shot to shit like you have never seen it before. They cured the biggest problem with the first film which was not really giving MLP anything substantive to do. She got to shoot the hell out of a bad guy this time.

Thanks for the tip! Saved me some time

[djtho1]

For my UPC of 0-25192-21954-2 title 00679 matched all the particulars. Ripping now (retail blu-ray)

[tappinaway]

I discovered while being frustrated by this disc that the correct sequence is encoded in the files within the BDMV/CLIPINF directory. there is a .clpi file in there for each .m2ts in BDMV/STREAM, where the first occurance of XXXXXM2TS (XXXXX being a stream number) points to the next m2ts file that follows it. additional M2TS entries in the .clpi files seem to point to alternate bogus paths.

here's some perl code that I threw together to find which mpls files have sequences that match.

hope this helps. I've only verified this method against one other disc so far.

Code: Select all

#!/usr/bin/perl 

my $path = shift;

my $clips     = read_m2ts("$path/BDMV/CLIPINF", ".clpi");
my $playlists = read_m2ts("$path/BDMV/PLAYLIST", ".mpls");

foreach my $list (sort {$a <=> $b} keys %{$playlists}) {
  my @clp = @{$playlists->{$list}};

  my @playlist = ();

  my $next = $clp[0];
  push(@playlist, $next);
  my $last = $next;
  $next = ${$clips->{$last}}[0];

  if($next && $next != $last) {
    while ($next && $next != $last) {
      push(@playlist, $next);
      $last = $next;
      $next = ${$clips->{$last}}[0];
    }
  }

  my $mpls = join(",",@clp);
  my $cliplist = join(",",@playlist);
  
  if( $mpls eq $cliplist ) {
    printf("$list :\n");
    printf("  mpls     -> $mpls\n");
    printf("  clipinfo -> $cliplist\n");
  }

}

sub read_m2ts {
  
  my $dir = shift;
  my $ext = shift;

  my $out = {};

  opendir(DIR, "$dir") || die "can't open $dir";
  my @dir = readdir(DIR);
  closedir DIR;

  foreach my $file ( grep{ /$ext$/ } @dir ) {

    open(XIN, "<$dir/$file");
    my @infile = <XIN>;
    chomp @infile;
    

    my $tmp = join(" ", @infile);
    my @stuff = $tmp=~m/\d\d\d\d\dM2TS/g;
    my @streams = ();
    foreach my $strm (@stuff) {
      my $a = $strm;
      $a =~s/^0*//;
      $a =~s/M2TS$//;
      push(@streams, $a);
    }

    my $fnum = $file;
    $fnum =~s/$ext$//;
    $fnum =~s/^0*//;
    $out->{$fnum}=[@streams];
    
  }

  return $out;

}

[David MPS]

I hve rip the 00679 and the sequence of scenes are'nt good. And on my copy I don't have the 00577

[djtho1]

What is your UPC? 00679 worked from my disk.

[bottleneck70]

UPC 77421200502...
Name: RED 2
Source file name: 00674.mpls(1)
Duration: 1:55:48
Chapters count: 17
Size: 31.5 GB
Segment count: 15
Segment map: 505,502,509,507,513,501,510,512,506,508,504,74,515,511,503

[diy_darryl]

According to my player the length is 1:55:48, three possible titles, the one that worked for me:
UPC: 0-25192-21310-6

Title information
Name: RED 2 (English)
Source file name: 00679.mpls
Duration: 1:55:48
Chapters count: 18
Size: 31.5 GB
Segment count: 15
Segment map: 505,517,514,502,504,511,507,503,509,506,515,501,510,518,519

Thank you so much for this. I have been using makemkv for a week now and this is my first post. I had the same UPC as you do but had originally ripped the wrong file. This helped me immensely!!!!! I originally copied the 0016.mpls but had the funeral scene loop-back that I have read about elsewhere. Have not watched the entire movie but so far it looks like a good rip.

[ixion]

I discovered while being frustrated by this disc that the correct sequence is encoded in the files within the BDMV/CLIPINF directory. there is a .clpi file in there for each .m2ts in BDMV/STREAM, where the first occurance of XXXXXM2TS (XXXXX being a stream number) points to the next m2ts file that follows it. additional M2TS entries in the .clpi files seem to point to alternate bogus paths.

here's some perl code that I threw together to find which mpls files have sequences that match.

hope this helps. I've only verified this method against one other disc so far.

Wow, thanks for this script. It works like a charm! Even if there is more than one valid match, it's pretty easy to see which one is the main movie as it will have the most segments. For RED 2, the script says 577 is the correct one, which seems to be the consensus. Good work!

[diy_darryl]

I discovered while being frustrated by this disc that the correct sequence is encoded in the files within the BDMV/CLIPINF directory. there is a .clpi file in there for each .m2ts in BDMV/STREAM, where the first occurance of XXXXXM2TS (XXXXX being a stream number) points to the next m2ts file that follows it. additional M2TS entries in the .clpi files seem to point to alternate bogus paths.

here's some perl code that I threw together to find which mpls files have sequences that match.

hope this helps. I've only verified this method against one other disc so far.

Code: Select all

#!/usr/bin/perl 

my $path = shift;

my $clips     = read_m2ts("$path/BDMV/CLIPINF", ".clpi");
my $playlists = read_m2ts("$path/BDMV/PLAYLIST", ".mpls");

foreach my $list (sort {$a <=> $b} keys %{$playlists}) {
  my @clp = @{$playlists->{$list}};

  my @playlist = ();

  my $next = $clp[0];
  push(@playlist, $next);
  my $last = $next;
  $next = ${$clips->{$last}}[0];

  if($next && $next != $last) {
    while ($next && $next != $last) {
      push(@playlist, $next);
      $last = $next;
      $next = ${$clips->{$last}}[0];
    }
  }

  my $mpls = join(",",@clp);
  my $cliplist = join(",",@playlist);
  
  if( $mpls eq $cliplist ) {
    printf("$list :\n");
    printf("  mpls     -> $mpls\n");
    printf("  clipinfo -> $cliplist\n");
  }

}

sub read_m2ts {
  
  my $dir = shift;
  my $ext = shift;

  my $out = {};

  opendir(DIR, "$dir") || die "can't open $dir";
  my @dir = readdir(DIR);
  closedir DIR;

  foreach my $file ( grep{ /$ext$/ } @dir ) {

    open(XIN, "<$dir/$file");
    my @infile = <XIN>;
    chomp @infile;
    

    my $tmp = join(" ", @infile);
    my @stuff = $tmp=~m/\d\d\d\d\dM2TS/g;
    my @streams = ();
    foreach my $strm (@stuff) {
      my $a = $strm;
      $a =~s/^0*//;
      $a =~s/M2TS$//;
      push(@streams, $a);
    }

    my $fnum = $file;
    $fnum =~s/$ext$//;
    $fnum =~s/^0*//;
    $out->{$fnum}=[@streams];
    
  }

  return $out;

}

Please excuse my stupidity but just how do you run this code? I do realize that if I have to ask I may have no business fooling around with it. In layman's terms please.......
Thank You in advance!

[Phidens]

I discovered while being frustrated by this disc that the correct sequence is encoded in the files within the BDMV/CLIPINF directory. there is a .clpi file in there for each .m2ts in BDMV/STREAM, where the first occurance of XXXXXM2TS (XXXXX being a stream number) points to the next m2ts file that follows it. additional M2TS entries in the .clpi files seem to point to alternate bogus paths.

here's some perl code that I threw together to find which mpls files have sequences that match.

hope this helps. I've only verified this method against one other disc so far.

Code: Select all

#!/usr/bin/perl 

my $path = shift;

my $clips     = read_m2ts("$path/BDMV/CLIPINF", ".clpi");
my $playlists = read_m2ts("$path/BDMV/PLAYLIST", ".mpls");

foreach my $list (sort {$a <=> $b} keys %{$playlists}) {
  my @clp = @{$playlists->{$list}};

  my @playlist = ();

  my $next = $clp[0];
  push(@playlist, $next);
  my $last = $next;
  $next = ${$clips->{$last}}[0];

  if($next && $next != $last) {
    while ($next && $next != $last) {
      push(@playlist, $next);
      $last = $next;
      $next = ${$clips->{$last}}[0];
    }
  }

  my $mpls = join(",",@clp);
  my $cliplist = join(",",@playlist);
  
  if( $mpls eq $cliplist ) {
    printf("$list :\n");
    printf("  mpls     -> $mpls\n");
    printf("  clipinfo -> $cliplist\n");
  }

}

sub read_m2ts {
  
  my $dir = shift;
  my $ext = shift;

  my $out = {};

  opendir(DIR, "$dir") || die "can't open $dir";
  my @dir = readdir(DIR);
  closedir DIR;

  foreach my $file ( grep{ /$ext$/ } @dir ) {

    open(XIN, "<$dir/$file");
    my @infile = <XIN>;
    chomp @infile;
    

    my $tmp = join(" ", @infile);
    my @stuff = $tmp=~m/\d\d\d\d\dM2TS/g;
    my @streams = ();
    foreach my $strm (@stuff) {
      my $a = $strm;
      $a =~s/^0*//;
      $a =~s/M2TS$//;
      push(@streams, $a);
    }

    my $fnum = $file;
    $fnum =~s/$ext$//;
    $fnum =~s/^0*//;
    $out->{$fnum}=[@streams];
    
  }

  return $out;

}

Hi,

I ran your script but I get about 8 lines of output before it runs out of memory. What does the output mean?

Code: Select all

22 :
  mpls     -> 64
  clipinfo -> 64
50 :
  mpls     -> 36
  clipinfo -> 36
51 :
  mpls     -> 20
  clipinfo -> 20
52 :
  mpls     -> 51
  clipinfo -> 51
53 :
  mpls     -> 50
  clipinfo -> 50
111 :
  mpls     -> 37
  clipinfo -> 37
112 :
  mpls     -> 514
  clipinfo -> 514
113 :
  mpls     -> 75
  clipinfo -> 75
Out of memory

[command_c]

Please excuse my stupidity but just how do you run this code? I do realize that if I have to ask I may have no business fooling around with it. In layman's terms please.......
Thank You in advance!

"Perl" is a programming language and also a piece of software that runs programs written in Perl. You have to have Perl installed on your computer in order to run tappinaway's code. If you are on a Mac or use Linux, Perl is already installed. If you use Windows, you will need to download a version of Perl for Windows, then install it. I'm not really sure if the code will work on Windows but stranger things have happened.

You must take tappinaway's code, and copy and paste it into a file, e.g., called "red_2.pl". Then, you'll need to run the code from the command line. E.g.,

perl red_2.pl /path/to/blu_ray/disc

On a Mac, you can instead

chmod 755 red_2.pl
./red_2.pl /Volumes/RED_2_WHATEVER

On Linux, it will be something like

chmod 755 red_2.pl
./red_2.pl /media/blu-ray

Edit: On Windows, it may be something like (I have no idea)

c:\perl5xx\perl.exe red_2.pl F:\

[kecarbaugh]

The perl script can be run successfully under windows (ActiveState Perl) if you change all the directory forward slashes '/' to the windows backward slash '\\'. Specifically the following lines:

my $clips = read_m2ts("$path\\BDMV\\CLIPINF", ".clpi");
my $playlists = read_m2ts("$path\\BDMV\\PLAYLIST", ".mpls");
.
.
.

open(XIN, "<$dir\\$file");
.
.

Runs great.

[calvo]

I discovered while being frustrated by this disc that the correct sequence is encoded in the files within the BDMV/CLIPINF directory. there is a .clpi file in there for each .m2ts in BDMV/STREAM, where the first occurance of XXXXXM2TS (XXXXX being a stream number) points to the next m2ts file that follows it. additional M2TS entries in the .clpi files seem to point to alternate bogus paths.

here's some perl code that I threw together to find which mpls files have sequences that match.

hope this helps. I've only verified this method against one other disc so far.

You Rock! 10 points for the script. It worked great on Win 8.1 with Strawberry Perl 64.

Thanks!