Discussion :

[roddy]

Bonjour à tous !

Je souhaite ecrire un script perl pour mesurer mes taux de tranferts HTTP (Downloads).

Pour cela, j'ai pensé effectuer ce transfert avec wget Cependant comment pui-je récuperer la dernière ligne de résultats de wget (ligne ou il y a le taux moyen) ??
J'ai essayé :

$var = ` wget $url` ;
mais ça ne marche pas, la variablke est vide !

quelqu'un pourrait m'aider ??

Merci d'avance pour votre aide!

[Arioch]

Bonjour,

essaie de vérifier s'il y a une erreur retournée à Perl comme ceci :

Code :

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

1
2
3
4
eval {
    $var = `wget $url`;
};
warn "problème de retour de wget : $@" if ($@);

[Choupi]

Place toi dans un contexte de liste : en utilisant @

Code :

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

@var = ` wget $url` ;

je n'ai pas tester mais je pense que ca explique ton problème si tu es sur que wget retourne bien ton information.

Tiens moi au courant.

[roddy]

Merci !

je vais essayer ce que vous me proposez et vous dis si ça marche ou pas !

[roddy]

Re-Salut !

Je viens d'essayer et j'ai
"Use of uninitialized value"

je ne vois vraiment pas comment faire et je suis sur que c'est possible !

[Choupi]

Donne l'integralite de ton script s'il te plait. Ca sera plus facile de corriger.

[roddy]

Voici mon code

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#!/usr/bin/perl  -w
 
# Load modules
 
use Net::MySQL;
use Date::Manip qw(ParseDate UnixDate);
 
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );
 
use strict;
 
# Catch the current time UTC
#
chomp(my $datestr = `date -u '+%F %R'`);
print "$datestr\n";
 
 
# ---------------------------------------------------------------------------
# Subroutines
# ---------------------------------------------------------------------------
 
sub wget_http
{
	my $url = shift;
 
    print "Wget fetchs !\n";
 
    my @ret = `wget  $url`;
 
return @ret;
 
 
}
 
 
# ---------------------------------------------------------------------------
# MAIN LOGIC
 
 
 
my $url ="http://files10.rarlab.com/rar/rarlinux-3.3.0.tar.gz";
 
	printf ("Chargement du fichier\n\n");
 
 
my @var= wget_http($url);
 
print "Voici la variable de retour : '@var[0]' \n";
 
# ---------------------------------------------------------------------------
# END
# ---------------------------------------------------------------------------

Bon il n'est pas formidable mais c'est juste déjà pour tester si je peux récupérer la trace d'exécution de wget dans une variable. En fait ce qui m'interrese le plus c'est la dernière ligne où il y a le taux moyen à savoir :
10:33:42 (13.17 KB/s) - `rarlinux-3.3.0.tar.gz.5' saved [674889/674889]

[Jedai]

Il est très probable que wget renvoie ses informations sur la sortie d'erreur STDERR, or là tu récupère le STDOUT de wget, donc ça marche pas !!

La solution : rediriger la sortie d'erreur sur la sortie standard, à priori sous linux (bash) ça ne pause aucun problème :

Code :

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

1
2
 
my @ret = `wget  $url 2>&1`;

Sinon, tu devrais considérer la solution IPC::Open3.

--
Jedaï

[Choupi]

Il est très probable que wget renvoie ses informations sur la sortie d'erreur STDERR

Comment deduis tu ça ? Comment le verifier ? Dans la doc je trouve pas.

[Driden]

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
#!/usr/bin/perl -w 
 
# Load modules 
 
use strict; 
 
# --------------------------------------------------------------------------- 
# Subroutines 
# --------------------------------------------------------------------------- 
 
sub wget_http 
{ 
    my ($url) = @_; 
 
    print "Wget fetchs !\n"; 
 
    return `wget $url 2>&1`; 
} 
 
 
# --------------------------------------------------------------------------- 
# MAIN LOGIC 
 
 
 
my $url ="http://www.google.fr"; 
 
 
my @var = wget_http($url); 
 
print "Voici la variable de retour : $var[0]";

Le code ci-dessus fonctionne tres bien et en effet wget envoie les messages sur STDERR par défaut ou dans un fichier avec l'option -o.

[roddy]

Merci à tous pour votre aide !

En effet j'ai redirigé le STDERR sur la sortie standard et mainant j'ai accès au rapport de wget !

merci il ne me reste plus qu'à parserla ligne qui m'interresse

Merci en core pour votre coup de main !