Perl One-Click DVD Rip with Win32::DriveInfo andDVDFab 8

Continuing my current obsession with ripping DVDs is my perlification of jmos1277’s Automated DVD ripping script using DVDFab

I’m using DVDFab to rip since it doesn’t seem to get tripped up as often with weird copy protection crap.

Luckily, Win32::DriveInfo will give me the volume name of the DVD. If I get time, I’ll rewrite so it checks for duplicates and appends the date&time to get a unique filename for output. It’s a little annoying when 3 discs are all named “DVD_VIDEO”.

I’m not setting it as an autorun action for the DVD drive because I’m going to call it from the ripinator script.

ripdisc.pl

[perl]
use strict;
use Win32::DriveInfo;

my $dvdfab = "C:\Program Files\DVDFab 8\DVDFab.exe";

my $dvd_drive = "D";
my $dest_dir = "C:\ISO";

my $mode = "mainmovie";
my $titlemode = "auto";
my $audio = "English";
my $audiotype = "AC-3/5.1&AC-3/2";
my $removedts = "yes";
my $removemenu = "yes";
my $removepgc = "yes";
my $subtitle = "English";
my $displayforcedsub = "yes";
my $outdisc = "dvd5";

(my $volumeName,
my $VolumeSerialNumber,
my $MaximumComponentLength,
my $FileSystemName, my @attr) = Win32::DriveInfo::VolumeInfo($dvd_drive);

my $dest_file = $dest_dir . "\" . $volumeName . ".iso";

my $dupNumber = 1;
while (-e $dest_file) {
$dupNumber++;
$dest_file = $dest_dir . "\" . $fileout . " (" . $dupNumber . ").iso";
}

my @ripcmd = ($dvdfab,
"/mode "" . $mode . """,
"/src "" . $dvd_drive . ":\"",
"/dest "" . $dest_file . """,
"/title "" . $titlemode . """,
"/audio "" . $audio . """,
"/audiotype "" . $audiotype . """,
"/removedts "" . $removedts . """,
"/removemenu "" . $removemenu . """,
"/removepgc "" . $removepgc . """,
"/subtitle "" . $subtitle . """,
"/displayforcedsub "" . $displayforcedsub . """,
"/outdisc "" . $outdisc . """,
"/close");

system(@ripcmd);
[/perl]

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

%d bloggers like this: