Discussion :

[titomiss]

Bonjour, j'esaye de faire un appel système mais comme seul retour, je n'ai qu'un saut le ligne. Pouvez vous m'aider ?

Code :

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

1
2
3
4
#!/usr/bin/perl
system('aff=`isql epp<<+ 2>/dev/null output to pipe cat without headings select ntpdat from alt+
`');
system('echo $aff');

[Arioch]

Oui, ça me semble normal que tu n'aies rien en retour car chacun de tes appels à la commande system = 1 processus indépendent différent.

Je te suggère de tester ceci qui devrait mieux fonctionner :

Code :

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

1
2
3
4
#!/usr/bin/perl
 
my $aff = `isql epp<<+ 2>/dev/null output to pipe cat without headings select ntpdat from alt+`;
print $aff;

[titomiss]

merci pour cette réponse mais ça ne marche et il n'y a aucun message d'erreur.

[Arioch]

Qu'affiche la console lorsque tu lances la commande à la main sans passer par Perl ?

[titomiss]

Merci pour tes réponses, j'ai fini par trouver la solution en voyant, comme tu me l'as suggeré, que ça ne donnait rien en ligne de commande. La solution est vraiment simple, il s'agit de faire un retour chariot après isql<<+ et ça marche.

Merci