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.

[tintin3158]

est ce une sortie d'erreur ?

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

je te remercie.

Effectivement ça envoie le résultat dans stderr.

par contre j'aimerai envoyer ça dans une variable directement plutot que dans un fichier, je ne vois pas trop comment faire.

[dmganges]

Désolé
ERREUR de discussion

[tintin3158]

Je ne comprend pas tout ce que j'ai écrit c'est bien le problème mais ça fonctionne, la voici si ca peut service

j'ai utilisé le module HTTP::Request

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my $ua = LWP::UserAgent -> new();
my $uri = URI-> new(shift //"http://monip/Microsoft-Server-ActiveSync?Cmd=FolderSync\&DeviceType=iPad\&DeviceId=test");
 
#requête
my $req = HTTP::Request -> new(GET => $uri);
 $req->as_string;
 
#reponse
my $res = $ua -> request($req);
my $reponse=$res->as_string;
#~ print $reponse;## j'affiche ma réponse ici

et là miracle ça marche