Discussion :

[jagtheboss]

J'essaie sincèrement de tenir compte de vos remarques... Bin c'est sur que pour vous c'est clair, mais moi je suis perdu... Vous voulez que je vous mettes tout ce que j'ai testé ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[...]-command => sub { exec(perl sprojet.pl, $file_se1,$file_se2,$file_se3;)},[...]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
[...]-command => [\&commande1,$file_se1, $file_se2, $file_se3],[...]
	my $commande1 = 'perl sprojet.pl'; 
exec($commande1) == 0 or die "Erreur de la commande : $commande1\n";[...]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
[...]-command => [\&commande1],[...]
	my $commande1 = 'perl sprojet.pl $file_se1 $file_se2 $file_se3'; 
exec($commande1) == 0 or die "Erreur de la commande : $commande1\n";[...]

Je ne me souviens plus des autres codes que j'ai testé, mais j'y ai perdu beaucoup de cheveux...

[djibril]

ton code !

[Lolo78]

Hmm, c'est comme ça, la vie d'ingénieur. Il y a beaucoup de sujets pour lesquels je peux chercher de l'aide auprès de collègues qui les connaissent mieux que moi. Et il y en a d'autres (dont le langage Perl) pour lesquels c'est moi le référent technique ou fonctionnel de mon département. Et là, c'est à moi qu'on demande... Le plus souvent, j'ai la solution plus ou moins facilement, je connais (encore vendredi dernier, j'ai résolu le problème d'un collègue entre 17h00 et 17h40), mais parfois, il faut vraiment que je me creuse la cervelle et que je teste des solutions, et je n'ai personne pour assurer mes arrières. C'est à moi de trouver la solution, et personne d'autre. Dans ces cas-là (heureusement assez peu fréquents), je suis vraiment tout seul et je galère. Mais c'est aussi parce que je ne baisse pas les bras dans ces cas-là que l'on m'apprécie et c'est d'ailleurs pour la même raison que j'ai fini par devenir l'expert que l'on consulte: à force de me cogner de nouveaux problèmes et de trouver les moyens de les résoudre, j'ai acquis des compétences plus ou moins uniques. Il y a même deux ou trois sujets complexes pour lesquels je suis reconnu comme étant juste LE meilleur expert. Ce qui me permet de gagner assez confortablement ma vie en qualité de consultant indépendant.

Donc, je dirais: cesse de te plaindre, critiquer le système de formation est peut-être justifié, mais ne t'avancera pas, c'est en galérant que tu deviendras bon, peut-être même le meilleur. Voilà, c'est un défi, il y a de quoi avoir peur, mais c'est à toi de voir comment tu vas le traiter.

Hum, en relisant mon message, je me dis que j'ai peut-être l'air de me poser en "donneur de leçon". Je t'assure que ce n'est pas mon état d'esprit. Je comprends tes difficultés et ai essayé de t'aider dans la mesure de mes moyens, mais ne peux pas t'aider sur TK que je n'ai pas utilisé depuis environ 12 ans. Et, à un certain point, il n'y a pas photo: c'est au pied du mur que l'on voit le maçon.

[djibril]

+1 Lolo78

Pour Perl/Tk, je pense être bien placé pour t'aider ici, tu n'as qu'à lire la documentation ou les postes sur ce site. Mais ce genre d'approche ne me donne pas envie de t'aider. Relit donc mes posts, essaye quelque chose et propose et ensuite, on t'aidera.

Bon courage !

[jagtheboss]

Ok, repartons sur de bonnes bases. Voilà un code uniquement pour le bouton.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

Voilà mon code pour le moment. et j'ai ça comme message d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
C:\Users\jawhar\Desktop>perl testb.pl
Unquoted string "perl" may clash with future reserved word at testb.pl line 13.
Name "main::perl" used only once: possible typo at testb.pl line 13.
Can't spawn "cmd.exe": No such file or directory at testb.pl line 13.

Je continuerais de tester des possibilités demain, la j'en peu plus. Il est clairement pas content de ma ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

system('perl sprojet.pl', 'C:\Users\jawhar\Desktop\1_reads', 'C:\Users\jawhar\Desktop\1_megt', 'C:\Users\jawhar\Desktop\1_sortie');

[djibril]

Tu ne peux pas utiliser le gestionnaire d'espace pack et grid sur le même objet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
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/);

Pour lancer une commande, tu peux tout mettre dans une chaine.

Bon voici un petit deuxième code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
 
my $fenetre_principale = MainWindow->new();
$fenetre_principale->minsize( 200, 200 );
 
my $fene1 = $fenetre_principale->Frame(
	-height => 30,
	-bg     => '#00007f3b0000',
);
 
my $term = $fene1->Text( 
	-height => 10, 
	-wrap => "none", 
	-relief => "solid", 
);
 
my $b5 = $fenetre_principale->Button(
	-text    => "LANCER L'ETAPE 1 !",
	-command => [\&lancement_projet1, $term],
);
 
# Gestionnaire d'espace
$b5->pack;
$term->pack( -fill => "both", -expand => 1 );
$fene1->pack(qw/ -fill both -expand 0/);
 
MainLoop;
 
sub lancement_projet1 {
	my ($widget_texte) = @_;
 
	$widget_texte->insert('end', "Lancement projet 1\n"); 
	my $commande = "dir \"C:/Documents and Settings\"";
	$widget_texte->insert('end', "Lancement de la commande : $commande\n"); 
	$widget_texte->insert('end', `$commande`); 
}

[jagtheboss]

Bonjour, excusez moi pour le retard de réponse, j'ai eu un soucis et j'ai planté mon windows... Il relance explorer.exe en chaine... J'ai donc recréé un windows pr finir mon travail, je réparerais ça plus tard...

Du coup je viens de comprendre le principal problème que j'avais. Je n'avais pas compris l'importance du placement vis à vis de MainLoop:, ce qui m'handicapais pas mal au final... Du coup en m'inspirant de votre code j'ai réussit à le faire marcher, merci. Par contre j'ai deux petits soucis.
- L'affichage n'as lieu qu'aprés l'exécution totale du script. Avec mon "tie STDOUT" je crois que je peux le rendre dynamique, je me trompes ?
- Et second soucis, je n'ai qu'un affichage d'une ligne sur deux, qu'est ce qui peut l'expliquer? (Je vous envoie le script qui fonctionne dés que je serrais rentré.

Ah et du coup vu que ce n'était pas obligatoire dans mon projet, j'ai la semaine pour le finir tranquillement, l'idéal étant que je l'eusse fini de telle sorte à pouvoir le présenter vendredi matin...