recdvd  

#!/usr/bin/perl my $a='-alang de'; my $b=''; my $c=''; my $d=''; my $h=''; my $k=' -oac lavc'; my $l='-forcedsubsonly'; my $m=''; my $n=''; my $o=''; my $p=':autoaspect'; my $s=',scale=720:576'; my $t='0'; my $v=''; my $x=''; my $o='out.avi'; foreach(@ARGV) { $a="-aid $1" if(/^-aid(\d+)/); $b="-ss ${1}" if(/^-skip(\d+(:\d+){0,2})/); $b="-sb ${1}000000" if(/^-skip(\d+)mb/); $c="-chapter $1" if(/^-c(\d+(-\d+)?$)/i); $d="-dvd-device /dev/$1" if(/^-(sr\d|dvd\d)/); $h=',harddup' if(/^-sync/); $k=':acodec=mp3 -oac mp3lame' if(/^-mp3/); $l="-sid $1" if(/^-sid(\d+)/); $l="-slang $1" if(/^-(de|en)/); $m='-ac mad' if(/^-mad/); $n='nav' if(/^-nav/); $o="$1" if(/^(.*\.avi)$/); $p=":aspect=$1" if(/^-(4\/3|16\/9)$/); $s='' if(/^-nos(cale)?/); $t="$1" if(/^(\d+(-\d+)?$)/); $v=':vbitrate=1856' if(/^-l(ow)?q/); $v=':vbitrate=2600' if(/^-m(edium)?q/); $v=':vbitrate=4000' if(/^-h(igh)?q/); $v=':vbitrate=9800' if(/^-t(op)?q/); $x=',crop=720:330:0:125' if(/^-crop2/); $x=',crop=720:440:0:69' if(/^-crop/); } print qq{mencoder dvd$n://$t $a $b $c $d $m $l -vf pp=lb$x$s$h -lavcopts vcodec=mpeg4:vhq:keyint=25$p$v$k -ovc lavc -ffourcc XVID -ni -forceidx -o "$o" 1>&2\n}; print qx{mencoder dvd$n://$t $a $b $c $d $m $l -vf pp=lb$x$s$h -lavcopts vcodec=mpeg4:vhq:keyint=25$p$v$k -ovc lavc -ffourcc XVID -ni -forceidx -o "$o" 1>&2}; ### Varianten ... #print qq{mencoder dvd$n://$t $a $c $d $m $l -vf pp=lb$s$x -oac lavc -ovc lavc -ffourcc DX50 -ni -forceidx -o "$o" 1>&2\n}; #print qx{mencoder dvd$n://$t $a $c $d $m $l -vf pp=lb$s$x -oac lavc -ovc lavc -ffourcc DX50 -ni -forceidx -o "$o" 1>&2}; #print qq{mencoder dvd$n://$t $a $c $d $m $l -vf pp=lb$s$x -oac mp3lame -ovc lavc -ffourcc XVID -lavcopts acodec=mp3 -ni -forceidx -o "$o"\n}; #print qx{mencoder dvd$n://$t $a $c $d $m $l -vf pp=lb$s$x -oac mp3lame -ovc lavc -ffourcc XVID -lavcopts acodec=mp3 -ni -forceidx -o "$o" 1>&2};

DVD rippen
(2.3kB)

Download