Discussion :

[vercetty92]

Bonjour,

voici mon pb qui je pense sera bien simple à résoudre pour un codeur avisé que je ne suis pas encore.

voici deux lignes de codes :

Code :

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

1
2
3
 
open (TEST, "touch /test |")
close (TEST);

comme je lance ce petit script avec un user normal, forcement je me prends l'erreur suivante :

Code :

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

touch: cannot touch `/test': Permission denied

et voilà mon problème : j'aimerai pouvoir stocker cette sortie d'erreur dans un tableau!

je sais comment rediriger une erreur dans un shell, mais dans perl je n'ai pas trouver comment faire....

merci d'avance

[Beniou]

Bonsoir,

Code :

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

1
2
3
 
my $sortie = `touch /test`;
print $sortie;

Executer une commande shell avec les ` (ceux sous le 7) te permet de récupérer la sortie de la commande. On peut aussi avec qx{}.
Tu pourras ensuite faire de la sortie ce bon il te semble comme le mettre dans un tableau etc.

Le même problème était expliqué dans ce post
http://www.developpez.net/forums/d83...ge/test-shell/

[vercetty92]

Merci de ta réponse.

par contre j'ai un doute sur l'envoi dans la variable, car si je fais

Code :

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

1
2
3
4
my $sortie = `touch /test`;
print $sortie;
print $sortie;
print $sortie;

ca ne m'affiche qu'une fois l'erreur, alors que ca devrait me l'afficher au min 3 fois non?

j'ai trouver différentes explications notemment ici : http://perl.unices.org/node38.html

mais j'ai l'impression que je tombe tjrs sur le meme pb?
je fais kkchoz de mal mais je sais pas quoi.

[Beniou]

Effectivement, je n'avais pas fait attention que c'était la sortie d'erreur que tu voulais.

En redirigeant ton erreur sur ta sortie standard avec le 2 > &1 tu résouds ton problème.

Code :

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

1
2
3
4
5
6
7
 
my @tab;
my $sortie = `touch /test 2>&1`;
push(@tab,$sortie);
print $tab[0];
print $tab[0];
print $tab[0];

[Philou67430]

Quand on souhaite travailler avec le stderr et stdout d'un processus, penser à utiliser le IPC::open3.

[Beniou]

Merci Philou67430 pour l'alternative qui est d'utiliser open3. C'est beaucoup mieux avec ce module en effet.
J'oublie trop souvent de regarder les modules existants au profit des solutions "maison".
C'est mon premier jour en tant qu'inscrit sur le forum et il faut que j'y prenne de la graine.

[Philou67430]

Installe toi le moteur de recherche "cpan" dans ton navigateur... il suffit d'aller sur search.cpan.org, et il apparait dans la liste des moteurs à ajouter à la barre d'outil de recherche (pour Firefox, entre autre).
Tu auras alors un joli dromadaire à coté de g de google

[vercetty92]

c'est parfait, merci beaucoup!

je vais aussi jeter un oeil au module.

bonne journée

[vercetty92]

je me permet de reposter ici.

bon je récupère bien la sortie standard ainsi que la sortie d'erreur grâce à "2>&1"

donc si la commande réussi ou si elle renvoi un message d'erreur, je récupère tout ca.

par contre il y a quelque chose d'autre que j'aimerai récupérer :

il s'agit de l'erreur renvoyer par le shell si la commande n'existe pas. (je récupère bien un message du type "permission refusée", mais pas "la commande n'existe pas)

en effet, si la commande utilisé n'existe pas sur l'OS, je devrais avoir une erreur du style : "zsh: command not found: svgg", mais je ne la récupère pas celle là.

existe t'il un technique pour pouvoir récupérer ce type d'erreur également?

thx by advance

[estofilo]

existe t'il un technique pour pouvoir récupérer ce type d'erreur également?

Oui, voir les variables spéciales $? et $!

[vercetty92]

Bonjour,

j'utilise déja la variable $? qui me retourne un numéro (1, 256,...), qui est un numéro retourné en fonction de l'erreur (si erreur il y a).

Par contre, lorsque j'execute une commande que le systeme ne connait pas, la variable $! me retourne "No such file or directory" alors qu'elle devrait me retourner plutot "zsh: command not found: ma_commande".

n'y aurait t'il pas qqchose à chercher du coté du 2>&1? (quelque chose de plus complet par exemple)

merci de ta réponse

[estofilo]

Par contre, lorsque j'execute une commande que le systeme ne connait pas, la variable $! me retourne "No such file or directory" alors qu'elle devrait me retourner plutot "zsh: command not found: ma_commande".

Tu supposes que Perl lance le shell, qui lui-même lance la commande, mais la plupart du temps ce n'est pas le cas. Il lance directement la commande en gérant lui-même la redirection 2>&1 et sans passer un shell, pour des raisons de performance.

[vercetty92]

donc en gros le "No such file or directory", c'est un peu comme si c'était son interprétation de l'erreur système.

comment pourrais je passer "un peu plus" par le shell et avoir la vrai erreur...

[estofilo]

j'utilise déja la variable $? qui me retourne un numéro (1, 256,...), qui est un numéro retourné en fonction de l'erreur (si erreur il y a).

Apparemment $? vaut -1 suite à l'échec de lancement d'une commande externe inexistante
Je pense qu'il suffit de tester spécifiquement cette valeur.

[estofilo]

donc en gros le "No such file or directory", c'est un peu comme si c'était son interprétation de l'erreur système.

comment pourrais je passer "un peu plus" par le shell et avoir la vrai erreur...

Il suffit d'exécuter le shell j'imagine:
system("zsh -c ligne de commande ....");

[vercetty92]

ok, j'ai fait un "if" le résultat = -1 donc j'affiche "command not found" et ca marche.

merki beaucoup