Discussion :

[vercetty92]

Bonjour,

voici mon petit pb :

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
 
sub create_env
{
    sub launch_command
    {
        my $command = `$_[0] 2>&1`;
        if ($? !~ 0)
        {   
           return; 
        }   
    }  
    my $command1=&launch_command("touch /test");
    my $command2=&launch_command("touch /test2");
}
 
&create_env;
 
suite du code....

donc ce script doit lancer des commandes système, vous l'aurez compris.
Vous voyez aussi que si la commande retourne une erreur, je fais un "return".

mais mon pb est là : j'aimerai que lorsque j'appel ce "return", je ne fais pas que sortir de la fonction "launch_command" (sinon ca continu d'executer les autres commandes système, ce que je ne veux pas), mais que je sorte de la fonction "create_env" pour pouvoir executer "suite du code..."

y'aurait il une technique particulière qui pourrait m'interresser?

merci d'avance

[50Nio]

Un truc du genre:

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
 
sub create_env
{
    sub launch_command
    {
        my $command = `$_[0] 2>&1`;
        if ($? !~ 0)
        {   
           # Sortie en erreur
           return $?; 
        }   
         return 0;
    }  
    my $resultat=&launch_command("touch /test");
    ($command1 == 0) && $resultat=&launch_command("touch /test2");
}

ou

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
 
sub create_env
{
    sub launch_command
    {
        my $command = `$_[0] 2>&1`;
        if ($? !~ 0)
        {   
           # Sortie en erreur
           return $?; 
        }   
         return 0;
    }  
    (my $resultat=&launch_command("touch /test")) || (print "Erreur lors de l'execution de touch /test" && return);
}

Ca dépend de ce que tu veux faire exactement, mais globalement, tu es obligé de tester ton status de retour et d'agir en conséquence.

[vercetty92]

merci de ta réponse, en fait j'ai carément changer de technique, ca fait plus propre.

je fais une liste que j'envoi dans un tableau , par contre j'aimerai avoir votre avis sur un autre souci en rapport avec cette nouvelle technique.

Code :

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

1
2
3
4
 my @commands = qw (
            "touch /test";
            "du -sh /tmp";
    );

si je fais un print de @commands il en ressort :

Code :

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

1
2
 
"touch/test";"du-sh/tmp"

en gros il me prends ET les " ET les ";" ET en plus il retire les espace.

et comme ce sont des commandes systèmes, ca va être difficile....

j'ai chercher mais n'ai rien trouver sur le traitement des espaces dans une liste...

any idea?

ps : merci encore pour ta contribution 50Nio

[djibril]

Code :

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

1
2
3
4
5
6
my @commands = ( "touch /test", "du -sh /tmp");  
# Afficher mes commandes
foreach my $cmd ( @commands  ) {
  print "[$cmd]\n";
  #system($cmd);
}

[vercetty92]

c du bon, un grand merci.