Fedora-Fr

Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

script perl ffmpeg

bioinfornatics

bonjour bon j'ai créé un script perl pour ffmpeg, je viens de le commencer là. je retourne bosser un partiel je continuerais plus tard faite moi part de vos remarque

#!/usr/bin/perl
use Tk;
use warnings;

sub flv_to_avi
{
$flv_to_avi = $fenetre-> Toplevel ( ) ;
$flv_to_avi -> title ( 'Convertir *.flv -> *.avi' ) ;
$video_flv_texte = $flv_to_avi-> Label ( -text => "Saisir le titre d'un film :" ) -> pack ( );
$video_flv_variable = $flv_to_avi-> Entry ( -textvariable => \$un_titre ) -> pack ( );
$bouton_valider = $flv_to_avi -> Button (
                            -text => 'Valider' ,
                           -command => sub {
                                    system "ffmpeg $un_titre -f avi $un_titre.avi" ;
                                    $flv_to_avi -> destroy ( ) ;
                                    }
                        )-> raise;
}


# Programme principal

$fenetre = new MainWindow ( ) ;
$fenetre -> title ( "FFmpeg" ) ;


$bouton = $fenetre -> Button ( -text => 'Convertir *.flv -> *.avi', -command => \&flv_to_avi)  -> pack ( );
$bouton -> pack ( ) ;

MainLoop ( ) ;

désolé je l'avais posté dans la partis F7
features
menu déroulant contennat les formats d'encodage
Amélioration de l'interface graphique rudimentaire
(petit script fait en 5 min)

bioinfornatics

Mise à jour, s'il vous plaît j'aimerais quelque retour merci a vous
Le fichier a encoder doit être dans le même dossier que le programme perl sinon entrer le chemin

#!/usr/bin/perl
use Tk;
use warnings;use Benchmark;

$format= '';

# Programme principal

                #Création de la fenêtre
                $fenetre = new MainWindow ( ) ;
                
                #Donne un titre à la fenêtre
                $fenetre -> title ( "FFmpeg" ) ;


#Contenu de ce qui est a gauche de la fenêtre
$cadre_gauche = $fenetre -> Frame (
                                -relief => 'groove' ,
                                -borderwidth => 2
                                ) -> pack (-side => 'left' , -anchor => 'n');

                #Place le texte "Convertir le fichier" en haut à gauche
                $texte1 = $cadre_gauche -> Label (-text => "Convertir le fichier") -> pack (-side => 'top');
                
                #Place le champ de saisie du fichier en dessous du texte "Convertir le fichier"
                $video_flv_variable = $cadre_gauche-> Entry ( -textvariable => \$film ) -> pack (-side => 'bottom');

                
#Contenu de ce qui est au milieu de la fenêtre
$cadre_milieu= $fenetre -> Frame (
                                -relief => 'groove' ,
                                -borderwidth => 2
                                ) -> pack (-side => 'left' ,-anchor => 'n');

                #Place le texte "au format" en haut au milieu
                $texte2 = $cadre_milieu -> Label (-text => "au format") -> pack (-side => 'top');
                $choix_format = $cadre_milieu -> Optionmenu (
            -relief => 'groove' ,
            -borderwidth => 2 ,
            -textvariable=> \$format ,
            -options => [
                [ 'aac'  , 'aac'],
                [ 'avi'  , 'avi'] ,
                [ 'flv'  , 'flv'],
                [ 'mpeg' , 'mpeg'],
                [ 'mp3'  , 'libmp3lame']
            ]
        ) -> pack ();

#Contenu de ce qui est a droite de la fenêtre
$cadre_droite = $fenetre -> Frame (
                                -relief => 'groove' ,
                                -borderwidth => 2
                                ) -> pack (-side => 'right' , -anchor => 'n');

                #Place le bouton valider a droite de la fenêtre
                $bouton_valider = $cadre_droite -> Button (
                                                        -text => 'Valider' ,
                                                        -command => sub {
                                                                        system "ffmpeg $film -f $format $film.$format" ;
                                                                        }
                                                        )-> pack();

MainLoop ( ) ;

feature
Ajout d'un bouton parcourir

bioinfornatics

est ce que quelq'un sait comment savoir sur quel bureau on se trouve en ligne de comande?
j'ai essayé

echo $DISPLAY

mais sa me renvoi toujours :0.0
une idée?

celmir

ben le premier 0 c'est le numéro du serveur X, le second le numéro d'écran.
Il faudrait peut-être aller voir dans le source d'un sélecteur de bureau ?

Sinon J'aime bien

        use strict;

bioinfornatics

oui je rajouterais le use strict et les "my" correspondant

Fox Delta

Desole bioinformatics, je n'ai pas le module tk installe au taf, et je n'ai pas les droits root. Je ne pourrais pas non plus acceder a mon pc perso avant la semaine prochaine. Je ne peux donc pas tester ton script.

Ceci dit, je rejoints celmir, rajoute use strict, et declare tes variables. Ton script est relativement petit pour le moment, mais s'il s'alourdit, il va devenir ingerable si tu ne declare pas tes variables.

Mais je te felicite pour la clarte de ton script, je trouve que c'est un modele du genre. C'est un plaisir de le parcourir.

bioinfornatics

merci, c'est gentil de votre encouragement.
Là je bute sur un problème je voulais permettre de choisir de faire une video de son bureau. Mais apres plusieurs tentative j'apprend que ffmpeg est bridé.
je m'explique normalement avec ffmpeg on peut capturé son bureau grace à la commande

ffmpeg -f x11grab -s cif -i :0.0 /tmp/out.mpg

donnée sur le anuel d'utilisation de ffmpeg. source
seulemnt j'avais toujours une erreur:

FFmpeg can grab the X11 display

Après avoir lu de nombreuse page de google j'apprend qe le ffmpeg que l'on utilise est bridé. il faudrai le recompiler avec l'option --enable-x11grab. Pourquoi brider ffmpeg 🙁
source

celmir

ldd /usr/bin/ffmpeg
        linux-gate.so.1 =>  (0x0012d000)
        libavformat.so.51 => /usr/lib/libavformat.so.51 (0x0012e000)
        libavcodec.so.51 => /usr/lib/libavcodec.so.51 (0x001bf000)
        libavutil.so.49 => /usr/lib/libavutil.so.49 (0x005b7000)
        libm.so.6 => /lib/libm.so.6 (0x005c1000)
        libpthread.so.0 => /lib/libpthread.so.0 (0x005ea000)
        libc.so.6 => /lib/libc.so.6 (0x00602000)
        libz.so.1 => /lib/libz.so.1 (0x00756000)
        libogg.so.0 => /usr/lib/libogg.so.0 (0x00769000)
        libdl.so.2 => /lib/libdl.so.2 (0x0076f000)
        libdts.so.0 => /usr/lib/libdts.so.0 (0x00774000)
        libgsm.so.1 => /usr/lib/libgsm.so.1 (0x00797000)
        libmp3lame.so.0 => /usr/lib/libmp3lame.so.0 (0x007a3000)
        libtheora.so.0 => /usr/lib/libtheora.so.0 (0x00817000)
        libvorbis.so.0 => /usr/lib/libvorbis.so.0 (0x00861000)
        libvorbisenc.so.2 => /usr/lib/libvorbisenc.so.2 (0x0088b000)
        libxvidcore.so.4 => /usr/lib/libxvidcore.so.4 (0x00984000)
        libx264.so.54 => /usr/lib/libx264.so.54 (0x00a98000)
        libfaac.so.0 => /usr/lib/libfaac.so.0 (0x00b26000)
        libfaad.so.0 => /usr/lib/libfaad.so.0 (0x00b37000)
        /lib/ld-linux.so.2 (0x00110000)
        libmp4v2.so.0 => /usr/lib/libmp4v2.so.0 (0x00b7d000)
        libstdc++.so.6 => /usr/lib/libstdc++.so.6 (0x00c36000)
        libgcc_s.so.1 => /lib/libgcc_s.so.1 (0x00d1e000)

Je suppose qu'avec --enable-x11grab il ne serait pas possible d'installer ffmpeg sans X ?

à ce propos quel serait la manière la plus efficace et dans l'esprit fedora pour recompiler ffmpeg avec cette option ?