[Tuxrip-devel] nombre de titre

[tuxrip <tu...@fr...>]

Bon je pense avoir trouv=E9. Voici une fonction qui extrait le nombre de=20
titre sur le DVD, avec mplayer ou transcode.


=E7a vous parait correct comme code ?

=E0+


-------------------------------------------------------------------------=
----------------------------
#!/usr/bin/perl

print (number_of_title("/dev/dvd","mencoder"));
print (number_of_title("/dev/dvd","transcode"));

sub number_of_title {
 my ($device,$soft) =3D @_;
 my $titlemax;
=20
 if ($soft eq "mencoder"){
    for (`mplayer dvd://1 -dvd-device $device -vo null -ao null -frames=20
0 -v 2>&1`) {
      chomp;
      if ($_ =3D~ /There are ([1-9][0-9]*) titles on this DVD./)=20
{$titlemax =3D $1;}
    }
 }
 elsif ($soft eq "transcode") {
    for (`tcprobe -i $device -T 1 2>&1`) {
      chomp;
      if ($_ =3D~ /DVD title 1\/([1-9][0-9]*)/) {$titlemax =3D $1;}
    }
 }
return $titlemax;
}
-------------------------------------------------------------------------=
----------------------------=20