1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| #!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $fenetre_principale = MainWindow->new( );
$fenetre_principale->minsize ( 200, 200);
my$b5=$fenetre_principale->Button( -text => 'LANCER L\'ETAPE 1 !',-command => sub
{
system('perl sprojet.pl', 'C:\Users\jawhar\Desktop\1_reads', 'C:\Users\jawhar\Desktop\1_megt', 'C:\Users\jawhar\Desktop\1_sortie');
print 'test';
}, )->pack( qw //);
my $fene1 = $fenetre_principale->Frame(-height => 30,-bg => '#00007f3b0000',)->grid(-row => 0, -column => 1,-rowspan => 1, -sticky => 'nsew');
$fene1->pack( qw/ -fill both -expand 0/ );
#stdout en fenetre
my $term = $fene1->Text(-height=> 10,-wrap=> "none",-relief => "solid",)->pack(-fill => "both", -expand => 1);
tie *STDOUT, ref $term, $term;
MainLoop; |
Partager