Script à debugger

**dede92** · 15/06/2009, 18h16

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 :

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

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

Voici le code complet :

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
#!/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

**Jedai** · 15/06/2009, 18h58

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

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
#!/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ï

**dede92** · 15/06/2009, 19h43

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 :

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

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

et merci encore.

**djibril** · 15/06/2009, 19h56

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.