Discussion :

[tintin3158]

Bonjour à tous,

Je me casse (encore) les dents sur un petit souci.

je souhaite récupérer la sortie d'une commande de test wget dans un variable.
quoi que je fasse il me l'affiche à l'écran, j'arrive quand même a le récupérer dans une variable mais j'aimerai supprimer la sortie d'affichage standard..

voici un extrait de mon code:

Code :

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

1
2
3
4
5
6
7
8
 
 
my $test;
 
 
$test=system(q!wget  -S -O - http://192.168.1.1/Microsoft-Server-ActiveSync?Cmd=FolderSync\&DeviceType=iPad\&DeviceId=test  !);
 
	print "\ntest=>$test";#ici je vérifie le contenue de ma variable pour l'utiliser plus tard.

J'ai tenté de supprimer la sortie en renvoyant le tout dans /dev/null, mais ça ne change rien

Je vous remercie

[djibril]

Bonjour,

Il ne faut pas utiliser system : http://perl.developpez.com/faq/perl/...les-backquotes

[tintin3158]

Bonjour,

Il ne faut pas utiliser system : http://perl.developpez.com/faq/perl/...les-backquotes

J'ai essayé avec les backquotes mais ça ne change rien...

[JeanMi3000]

tu peux essayer en redirigeant STDOUT vers un fichier.

Au début de mon code :

Code :

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

1
2
3
4
5
6
7
8
#Re-init STDOUT
 
my $fichier_stdout = "redir_stdout.txt" #<-- attention au chemin
close( STDOUT );
open( STDOUT, ">>$fichier_stdout" ) or die( "Can't open new STDOUT '$fichier_stdout' : $!\n" );
#todo code
 
close( STDOUT );

[tintin3158]

je viens de tester il m'affiche quand même la sortie.

Je pense que ça doit être du à la commande wget en elle même..

voici ce que j'ai codé à partir de vos conseils:

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
 
my $test;
 
 
 
#Re-init STDOUT
 
my $fichier_stdout = "/home/julien-n.martin/stig/scripts/obm/redir_stdout.txt"; #<-- attention au chemin
close( STDOUT );
 
open( STDOUT, ">>$fichier_stdout" ) or die( "Can't open new STDOUT '$fichier_stdout' : $!\n" );
 
#todo code
$test=`wget -S -O - http://MONIP/Microsoft-Server-ActiveSync?Cmd=FolderSync\&DeviceType=iPad\&DeviceId=test`;
 
close( STDOUT );
 
	#~ print "\ntest=>$test";

Merci pour vos réponses

[JeanMi3000]

est ce une sortie d'erreur ?

tu peux essayer de rediriger la sortie d'erreur STDERR de la même façon.