... à tester
... suite
essayer => double passage
- Code:
#! /usr/local/bin/perl
# la commande
# mencoder -oac copy -vf scale=320:240 -ffourcc xvid -ovc lavc -lavcopts vcodec=mpeg4 -o
#
#-oac copy
#-vf scale=320:240 => 576:432
#-ffourcc xvid
#-ovc lavc
#-lavcopts vcodec=mpeg4
#
#TITRE="mon_titre"
#SCALE="576:432"
#COUNT="0"
#COUNT=$COUNT + 1
#echo "mencoder -oac copy -vf scale=$SCALE -ffourcc xvid -ovc lavc -lavcopts vcodec=mpeg4 -o $TITRE-00$COUNT.avi"
$titre="ChapeauMelon" ;
$scale="576:432" ;
$count="0" ;
if ( ! -d $titre ) {
print "mkdir $titre\n" ;
mkdir $titre ;
}
@mes_AVI = qx (ls *.avi) ;
foreach $x ( @mes_AVI ){
chomp $x ;
$count+=1 ;
print "mencoder -oac copy -vf scale=$scale -ffourcc xvid -ovc lavc -lavcopts vcodec=mpeg4 $x -o $titre/$titre-00$count.avi 1>&2\n" ;
qx (mencoder -oac copy -vf scale=$scale -ffourcc xvid -ovc lavc -lavcopts vcodec=mpeg4 $x -o $titre/$titre-00$count.avi 1>&2) ;
}
... suite
essayer => double passage