Script à debugger

Version imprimable

Script à debugger

Bonjour,

Je ne connais pas du tout le langage perl, mais j'ai besoin d'un petit coup de main pour faire tourner ce script
Quand je lance le script, j'ai toujours '0' en resultats
Je crois par intuition que c'est la ligne suivante qui est en cause et je récupère tout simplement la chaine dans la variable @res :

Code:

@res = `lynx -dump http://localhost:80/server-status`;

Voici le code complet :

Code:

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
#!/usr/bin/perl
 
# depends on availability of status and extended status info from your
# Apache webserver -- your httpd.conf needs to include something like the
# following: (uncommented)
#<Location /server-status>
#    SetHandler server-status
#    Order allow,deny
#    Allow from localhost
#</Location>
#ExtendedStatus On
 
# can return hits or bytes (counters)
 
@res = `lynx -dump http://localhost:80/server-status`;
 
foreach $res (@res) {
    if ($res =~ /Server uptime: (.*)$/) { $up = $1; last } else { next }
    if ($res =~ /Server at/) { $server = $res; last } else { next }
}
 
@res = `lynx -dump http://localhost:80/server-status?auto`;
 
foreach $res (@res) {
    if ($res =~ /Total Accesses: (\d+)/) { $d1 = $1; next }
    if ($res =~ /Total kBytes: (\d+)/) { $d2 = $1 * 1024; next }
}
 
$d1 = int($d1);
$d2 = int($d2);
 
if ($ARGV[0] eq "hits") {
    print "$d1\n";
    print "$d1\n";
} elsif ($ARGV[0] eq "bytes") {
    print "$d2\n";
    print "$d2\n";
}
 
print "$up\n";
print "$server";

Merci d'avance

Voici une version qui utilise LWP et qui est nettement plus propre :

Code:

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
#!/usr/bin/perl
use strict; use warnings;
use LWP::Simple;
 
# depends on availability of status and extended status info from your
# Apache webserver -- your httpd.conf needs to include something like the
# following: (uncommented)
#<Location /server-status>
#    SetHandler server-status
#    Order allow,deny
#    Allow from localhost
#</Location>
#ExtendedStatus On
 
# can return hits or bytes (counters)
my $output = shift;
 
my @status = split/\n/, get('http://localhost:80/server-status');
 
 
my ($uptime, $server);
 
STATUSLOOP :
for my $line (@status) {
  if ($line =~ m/Server uptime: (.*)$/) { $uptime = $1; last STATUSLOOP }
  elsif ($line =~ m/Server at/) { $server = $line; last STATUSLOOP }
}
 
@status = split /\n/, get('http://localhost:80/server-status?auto');
 
my ($access_count, $bytes_sent);
 
for my $line (@status) {
  if ($line =~ m/Total Accesses: (\d+)/) { $access_count = $1 }
  elsif ($line =~ m/Total kBytes: (\d+)/) { $bytes_sent = $1 * 1024 }
}
 
 
if ($output eq "hits") {
  print "$access_count\n" for (1..2);
}
elsif ($output eq "bytes") {
  print "$bytes_sent\n" for (1..2);
}
 
print "$uptime\n";
print "$server";
 
__END__

Si tu as un problème avec ça, ça vient du serveur ou des regexps (sans un exemple de fichier on ne peut pas t'aider sur ce point).

--
Jedaï

15/06/2009, 20h43
dede92

Bonjour,

Bien ! ça marche nickel !
Par contre, je sens que je vais m'interesser à ce langage qui m'est inconnu ...
Pour info, pourrais tu me documenter la ligne

Code:

if ($line =~ m/Server uptime: (.*)$/) { $uptime = $1; last STATUSLOOP }

et merci encore.
15/06/2009, 20h56
djibril

Si la ligne contient la chaine Server uptime: suivi de quelque chose ou non, $1 stock ce quelque chose. on met le contenu de $1 dans $uptime et on sort de la boucle étiquettée STATUSLOOP.

Voilà, bienvenu dans le merveilleux monde Perl.
15/06/2009, 21h05
dede92

Bonsoir,

Je pense que l'on peut faire de belles choses effectivement ...
C'est interessant.

Merci à tous.
15/06/2009, 21h10
djibril

N'hésite pas à lire les tutoriels de la rubrique Perl, les FAQs, sources etc.

Rubrique Perl à ta disposition.