récupérer commande wget dans variable impossible !

Version imprimable

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:

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

12/08/2014, 10h27
djibril

Bonjour,

Il ne faut pas utiliser system : http://perl.developpez.com/faq/perl/...les-backquotes
12/08/2014, 10h38
tintin3158

Citation:

Envoyé par djibril

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...

tu peux essayer en redirigeant STDOUT vers un fichier.

Au début de mon code :

Code:

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 );

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:

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

12/08/2014, 11h15
JeanMi3000

est ce une sortie d'erreur ?

tu peux essayer de rediriger la sortie d'erreur STDERR de la même façon.
13/08/2014, 09h28
tintin3158

Citation:

Envoyé par JeanMi3000

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.
13/08/2014, 10h10
dmganges

Désolé
ERREUR de discussion

solution trouvée

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:

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