Fedora-Fr

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

script 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 ( ) ;