За последние 60 дней ни разу не выходила
Сайт листа:
http://www.linuxrsp.ru
Открыт:
25-07-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.linux.discuss-list@subscribe.ru
Адрес
модератора: comp.soft.linux.discuss-owner@subscribe.ru
Подскажите с написанием двух скриптов
1. Нужно пережать vob в avi
2. снаять изображение+звук с tv in
thanks
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.linux.discuss&email=
http://subscribe.ru/ mailto:ask@subscribe.ru
Добрый день!
Sat, 13 Sep 2003 23:46:55 +0400 Вы писали следующее:
vob - это dvd? Если да то:
начало #!/usr/bin/perl
#
# (c) 2002 by Florian Schilhabel <florian.schilhab***@w*****.de>
#
#
# version 0.1 initial release 22/08/2002
#
#
# If you have any comments, suggestions, etc., feel free to send me a
# mail ;-)) flames and other things like that should go to /dev/null
# thankx to all the mplayer developers for this really *great* piece of
# software
#
#
# This script is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This script is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
# USA
#
#
#
use Getopt::Long;
# specify your default Settings here...
$abr_default = 128; # The default AudioBitRate
$lang_default = "ru"; # ... the language
$cdsize_default = 700; # ... the CD-Rom Size
$writedev_default = "0,1,0"; # ... the CD Writer Device
$speed_default = 4; # and the writer speed
# end of default Settings
sub delete_tempfiles {
if (open(FILE, "< audio.stderr")) {
close (FILE);
system ("rm audio.stderr")
}
if (open(FILE, "< frameno.avi")) {
close (FILE);
system ("rm frameno.avi");
}
if (open(FILE, "< lavc_stats.txt")) {
close (FILE);
system ("rm lavc_stats.txt");
}
}
GetOptions( "help" => \$help,
"abr=i" => \$abr,
"lang=s" =>\$lang,
"cdsize=i" => \$cdsize,
"dvd=i" => \$dvd_track,
"keeptemp" => \$keeptemp,
"shutdown" => \$shutdown,
"out=s" => \$output,
"writecd" => \$writecd,
"writedev=s" => \$writedev,
"speed=i" => \$speed );
if ($help) {
print "Welcome to the DVD to DIVX Helper Script\n";
print "\n";
print "this script encodes a DVD track in 3-pass mode to libavcodec's
mpeg4\n"; print "Optionally it writes the resulting MovieFile to a
CD-Rom\n"; print "as well as the corresponding audio track to mp3\n";
print "Optionally it writes the resulting MovieFile to a CD-Rom\n";
print "and shuts down the Computer.\n";
print "If you like, you can watch the mencoder output on /dev/tty8\n";
print "Usage:\n";
print "--help show this text\n";
print "--abr (AudioBitRate) Please enter the desired
bitrate\n"; print " this can be either [96|128|192]
kbit/sec.\n"; print " Default: 128 kbit/sec.\n";
print "--lang specify the Language of the audio track\n";
print " this can be for example <en> or <de>\n";
print " Default: <ru>\n";
print "--dvd specify the DVD Track, you want to
encode\n"; print "--cdsize specify the Size of your
CD-ROM\n"; print " Default: 700MB\n";
print "--shutdown Shutdown the System, when the encoding
process has finished\n"; print " this will only be possible
if
you are root\n"; print "--out Specify the Name of your
encoded Movie\n"; print " The File Extension will be
appended automatically\n"; print "--writecd takes the newly created
Movie
and writes it to a CD-Rom\n"; print "--writedev is the usual cdrecord
device identifier\n"; print " for example 0,1,0\n";
print "--speed the writing speed\n";
print " Default: 4\n";
exit;
}
delete_tempfiles();
# testing user values && set defaults...
if ($abr == 96){}
elsif ($abr == 128) {}
elsif ($abr == 192) {}
elsif ($abr == 0 ) {
print "No AudioBitRate specified - Setting to Default Value\n";
$abr = $abr_default;
}
else {
print "AudioBitRate not valid. please choose [96|128|192]\n";
exit;
}
if ($lang eq "") {
print "No Language specified - Setting to Default Value\n";
$lang = $lang_default;
}
else {}
if ($dvd_track == 0 ) {
print "No DVD Track selected - You must specify one with: --dvd
trackno.\n"; exit;
}
if ($cdsize == 650) {}
elsif ($cdsize == 700) {}
elsif ($cdsize == 800) {}
elsif ($cdsize == 0 ) {
print "No CD Size Specified - Setting to Default Value\n";
$cdsize = $cdsize_default;
}
else {
print "CD Size not valid. please choose [650|700|800]\n";
exit;
}
if ($output eq "") {
print "No MovieName given - You must specify one with: --out
[movie_name]\n"; exit;
}
else {
($name, $extension) = split(/./, $out);
if ($extension eq "avi") {
$vob_tempfile = "$name.vob";
$avi_filename = "$output";
}
else {
$vob_tempfile = "$output.vob";
print "VOB CacheFile set to $vob_tempfile\n";
$avi_filename = "$output.avi";
print "Movie Filename set to $avi_filename\n";
}
}
if ($shutdown) {
# test who i am
$user = `id -u`;
if ($user == 0) {
print "System will be shut down after Movie encoding\n";
}
else {
print "Cannot shutdown the system after Movie encoding - you are
not 'root'\n"; exit;
}
}
if ($writecd) {
if ($writedev == "") {
print "Setting CD Writer Device to Default Value\n";
$writedev = $writedev_default;
}
if ($speed == 0) {
print "Setting CD Writer Speed to Default value\n";
$speed = $speed_default;
}
}
###
print "Your Settings for this run are:\n";
print "AudioBitRate: $abr\n";
print "Language: $lang\n";
print "DVD-Track: $dvd_track\n";
print "CD-Rom Size: $cdsize\n";
print "Movie FIlename: $avi_filename\n";
if ($writecd) {
print "CD Writer Dev.: $writedev\n";
print "Writer Speed: $speed\n";
}
# here comes the fun part...
print "precacheing...\n";
$status = system ("mencoder -dvd $dvd_track -ovc copy -oac copy -alang
$lang -o $vob_tempfile 1>/dev/tty8 2>/dev/tty8"); die "Prechacheing
failed. mencoder exited with Status Code $?" unless $status == 0;
print "Encoding Audio...\n";
$status = system ("mencoder $vob_tempfile -ovc frameno -oac mp3lame
-lameopts br=$abr:cbr:vol=3 -o frameno.avi 1>./audio.stderr
Code $?" unless $status == 0;
# now we have to find out the recommended bitrate for the Video encoding
# process... my current method to find this out is, hmm, well, *strange*
# but anyway, it works ;-))
open(FILE, "< audio.stderr") or die "Unable to open audio.stderr.";
@lines = <FILE>;
foreach $line (@lines) {
($index, $zz) = split(" ", $line);
if ($index eq "Recommended") {
($a, $b, $c, $d, $size, $f, $bitrate) = split(" ", $line);
if ($cdsize == $size) {
$video_bitrate = $bitrate;
print "Setting Videobitrate to $video_bitrate\n";
}
}
}
close (FILE);
print "Encoding Video Stream, 1st pass...\n";
$status = system ("mencoder $vob_tempfile -ovc lavc -lavcopts
vpass=1:vcodec=mpeg4:vbitrate=$video_bitrate:vhq -oac copy -o
$avi_filename 1>/dev/tty8 2>/dev/tty8"); die "Encoding Video Stream
failed. mencoder exited with Status Code $?" unless $status == 0;
print "Encoding Video Stream, 2nd pass...\n";
$status = system ("mencoder $vob_tempfile -ovc lavc -lavcopts
vpass=2:vcodec=mpeg4:vbitrate=$video_bitrate:vhq -oac copy -o
$avi_filename 1>/dev/tty8 2>/dev/tty8"); die "Encoding Video Stream
failed. mencoder exited with Status Code $?" unless $status == 0;
print "finished encoding\n";
if ($writecd) {
print "Now writing CD-Rom\n";
$status = system("mkisofs -r -J $avi_filename | cdrecord
speed=$speed dev=$writedev -data - 2>/dev/tty8 1>/dev/tty8"); die "Writing
CD
failed. cdrecord exited with Status Code $?" unless $status == 0;}
delete_tempfiles();
print "Finished - have a nice day ;-)\n";
if ($shutdown) {
system("halt");
exit;
}
exit;
конец > 2. снаять зображение+звук с tv in
см. www.linuxrsp.ru/progs мой скриптик mencoder_grab_tv
В случае, если необходимо брать видеопоток не с ТВ-тюнера, а, например,
с видеомагнитофона - в этом скриптике поиграйся со значением параметра
input от 0 до 4 - один из них - это линейный вход, т.е. видеомагнитофон
(у меня 3).
Пожалуйста. :)