lancé un script a partir de deux variable

Version imprimable

16/08/2010, 18h20
rapdoc

lancé un script a partir de deux variable

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

Bonjour,

Vous pourrez écrire un code semblable :
Code:

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).

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

Code:

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

17/08/2010, 12h24
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.

Scr complet

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:

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;
}

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

Code:

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;
}

17/08/2010, 22h44
rapdoc

Un Trés grand merci ! djibril
18/08/2010, 16h58
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:

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
18/08/2010, 18h46
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.
19/08/2010, 16h52
rapdoc

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