Discussion :

[Leiloul]

Bonjour à tous,

Voici le code d'une fonction qui est censée lancer une commande :

Code :

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

1
2
3
4
5
6
7
8
 
$CMD =$_[0] ;
if(! system("$CMD")){
  print "\t Exec: $CMD \n";
}else{
  print "\t Cannot exec: $CMD \n";
  return -1 ;
}

Mon problème est qu'elle n'affiche rien...
J'espère que j'ai été assez claire.
Merci d'avance.

[iblis]

Rédigé de cette manière, ton code est celui d'une fonction (cf le $_[0]), donc si tu tiens à le récupérer tel quel puis à l'exécuter, tu dois compléter le code comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
use strict;
 
execute('ls');
 
sub execute {
    my $CMD = $_[0] ;
    if(! system("$CMD")){
          print "\t Exec: $CMD \n";
    }else{
      print "\t Cannot exec: $CMD \n";
      return -1 ;
    }
}

Sinon tu peux lire l'argument de la ligne de commande. Mais dis-nous plutôt ce que tu veux faire. Ou était-ce juste pour comprendre ?

[Leiloul]

Re,

En fait j'avais juste ecrit (dans mon premier post) le code de la fonction sans toute l'entête mais merci quand même. Je vais donc compléter ma requête !

J'ai en fait 2 fonctions qui font la même chose l'une marche et l'autre non, je n'arrive pas à comprendre pourquoi !

Voici la première (toujours la même !) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sub execute {
    my $CMD = $_[0] ;
    if(! system("$CMD")){
          print "\t Exec: $CMD \n";
    }else{
      print "\t Cannot exec: $CMD \n";
      return -1 ;
    }
}

Qui n'affiche rien à l'exécution...

Et voici la deuxième :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
sub execute2 {
    my $CMD = $_[0] ;
    unless(open(CS,"$CMD|")){
          &write_log("Erreur: Cannot exec $CMD");
          close CS;
          return 1;
    }
    @CC=<CS>;
    close CS;
    return @CC ;
}

Qui fonctionne à merveille !

J'espère que je me suis mieux fait comprendre...
Merci encore.

[iblis]

Le premier fonctionne bien chez moi. Que veux-tu dire par n'affiche rien ? Même pas le message "Exec: ..." ou "Cannot exec" ? Ou est-ce le résultat de la commande shell qui ne s'affiche pas ? (Dis-moi, tu n'utilises pas de redirection de la sortie standart n'est-ce pas ?)

Ton deuxième bout de code fait plus, il retourne le résultat de l'exécution sous forme de liste. Donc c'est lui qui ne doit rien afficher puisque la sortie de ta commande est redirigé sur le pipe.

Je te conseille d'utiliser le pragma strict et d'activer les warnings. Cela évite beaucoup de problème. Vraiment.

[iblis]

Au fait sur quel système es-tu ? (Unix et apparentés ou Windows ?).

Je viens de prendre une seconde pour tester, cela marche bien.

Code :

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

1
2
execute ('ls');
print execute2('ls');

affichent tous les deux bien le résultat escompté. Mais bien sûr pas execute2('ls') n'affiche pas le résultat de l'exécution de la commande shell (voir ci-dessus).