Discussion :

[rapdoc]

Bonjour
je suis débutant dans perl et j'ai besoin d'aide
mon problem est que je veux lancer un script a partir d'un perl tk
j'ai réussie a fair ca avec cette fonction

$f->Button(-text=>" ok ", -command=>sub{&voiture;})
->pack(-side => 'right');
....

sub voiture { system ("BMW.exe M 3");exit; }
le script que je lance est BMW.exe avec deux argument "M" et "3"

Mon problem est que je veux crée dans mon interface graphique deux cases une pour l'argument "M" et une pour "3" pour pouvoir executer mon script avec des argument differant que je tappe a la main.

je c pas si c possible mais je vous remercie d'avance pour toute solution

[djibril]

Bonjour,

Vous pourrez écrire un code semblable :

Code :

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

1
2
3
4
5
6
7
8
9
10
$f->Button(
  -text    => "ok", 
  -command => [\&voiture, $arg],
)->pack( qw/ -side right / );
 
sub voiture { 
  my ($argument) = @_;
  system("BMW.exe $argument");
  exit; 
}

$arg peut être une variable récupérer d'une manière au choix (liste, case à cocher ou tout autre façon).

[rapdoc]

je vous remercie de votre aide djibril.
en m'inspirant d'autre exemple je teste cette solution :

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
$name[$_] = 'BMW-M';
        my $be = $f->BrowseEntry(-label => "name $_:",
                 -choices => ["BMW-M", "BMW-S"],
                -variable => \name[$_], -browsecmd =>sub{voiture;})
                ->pack(-side => 'left', -fill => 'both');
 
        $n[$_] = '1';
        my $be = $f->BrowseEntry(-label => "n $_:",
                -choices => ["1", "2"],
                -variable => \$n[$_], -browsecmd =>sub{voiture;})
                ->pack(-side => 'left', -fill => 'both');
 
 
       $arg =>'$name,$main' ;
 
 
             $f->Button(
                       -text    => "ok",
                       -command => [\&stability, $arg],
               )->pack( qw/ -side right / );
 
sub voiture {
                  my ($argument) = @_;
                  system("BMW.exe $argument");
                   exit;
}

quand j'appui sur le boutton "ok" ca exécute bien le script mais sans les argument
comment faire pour lancer le script avec les deux argument de ce style
BMW.exe BMW-M 1

[djibril]

Il serait intéressant de nous donner le code complet pour que l'on puisse tester. Car rien qu'à vu d'œil, il y a déjà beaucoup d'erreurs de syntaxe dans votre code.

[rapdoc]

Salut

voici le script qui fonctionne bien je lance le avec le boutton mais sans argument je souhaite a partir de la liste déroulant lancer le script avec les argument comme suit example :> voiture_v8.exe BMW-M 1

je suis vraiment debutant il y a des erreur parfoit evidante qui m'echappe

je voudrai savoir si je peut tapper des argument different des deux listes deroulante et pouvoir executer le script avec ces nouveaux argument, sans aller rajouter a chaque fois des nouveau argument dans le script ?

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
use Tk;
use Tk::LabFrame;
use Tk::LabEntry;
require Tk::BrowseEntry;
 
$mw = MainWindow->new(-title => "bm");
    $mw->minsize( 500, 500 );
 
$f = $mw->Frame(
 
    )->pack( qw/ -fill both -expand 1/ );
 
my (@name) = ( );
my (@n) = ( );
 
        my $be = $f->BrowseEntry(-label => "name $_:",
                -choices => ["BMW-M", "BMW-S"],
                -variable => \$name[$_], -browsecmd =>sub{voiture;})
                ->pack(-side => 'left', -fill => 'both');
 
        my $be = $f->BrowseEntry(-label => "n $_:",
                -choices => ["1", "2"],
                -variable => \$n[$_], -browsecmd =>sub{voiture;})
                ->pack(-side => 'left', -fill => 'both');
 
 
       $arg =>'$name , $main' ;
 
               $f->Button(
                       -text    => "ok",
                        -command => [\&voiture, $arg],
               )->pack( qw/ -side right / );
 
    MainLoop;
 
sub voiture { my ($argument) = @arg[0];
  system("voiture_v8.exe $argument");
  exit;
}

[djibril]

Voici un code fonctionnel. Essaye de le comprendre. Tu as aussi la FAQ Perl/Tk qui peut t'aider. Bonne lecture

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#!/usr/bin/perl
use warnings;
use strict;
 
use Tk;
use Tk::LabFrame;
use Tk::LabEntry;
use Tk::BrowseEntry;
 
my $mw = MainWindow->new(
  -title      => "bm",
  -background => 'white',
);
$mw->minsize( 500, 500 );
 
my $frame = $mw->Frame()->pack(qw/ -pady 10 -padx 10 /);
 
my ( $argument1, $argument2 );
 
my $BrowseEntry1 = $frame->BrowseEntry(
  -label    => "name : ",
  -variable => \$argument1,
  -choices  => [ "BMW-M", "BMW-S" ],
)->pack(qw/ -side left -padx 10 /);
 
my $BrowseEntry2 = $frame->BrowseEntry(
  -label    => "n : ",
  -variable => \$argument2,
  -choices  => [ "1", "2" ],
)->pack(qw/ -side right -padx 10 /);
 
$mw->Button(
  -text    => "lancer prog",
  -command => [ \&voiture, \$argument1, \$argument2 ],
)->pack();
 
MainLoop;
 
sub voiture {
  my ( $Refargument1, $Refargument2 ) = @_;
  my ( $argument1, $argument2 ) = ( ${$Refargument1}, ${$Refargument2} );
  print "Argument 1 :  : $argument1\n" if ( defined $argument1 );
  print "Argument 2 :  : $argument2\n" if ( defined $argument2 );
 
  # Les 2 arguments sont définis
  if ( defined $argument1 and defined $argument2 ) {
    system("voiture_v8.exe $argument1 $argument2");
  }
  else {
    warn "Les 2 arguments ne sont pas ok\n";
  }
 
  return;
}

[rapdoc]

Un Trés grand merci ! djibril

[rapdoc]

Bonjour,
je veut rajouter un cadre dans ce programme qui contient les message de Cmd
je ne c'est pas si c possible ou pas ?

Code :

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

1
2
3
4
my $frame2 = $frame->Frame()->pack(qw/ -pady 20 -padx 10 /);  
my $text = $frame2->Scrolled ("Text",
  -width => 80,
  -height => 25) ->pack();

c'est possible d'avoir tous ce qui ce passe sur ms-dos dans le feuille que je vient de définir.
je vous remercie d'avance pour toutes solution

[djibril]

Voici un article que j'avais écrit sur la Gestion des sorties standards et d'erreurs en Perl/Tk, inspire toi de cette article pour résoudre ton souci.

[rapdoc]

Bonjour
Merci djibril pour l'article c'est ce que j'apple un excellent doc