style de script

Bonsoir à tous.

Je n'ai pas touché à perl depuis presque deux mois — je sais, ce n'est pas bien, mais j'en ai profité pour jeter un oeil à ruby et à vrai dire cela vaut le détour... — et j'ai l'impression que ce que j'écris n'est pas très bien tourné, que le style est tout bizarre.

Pouvez-vous me dire ce que vous en pensez ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/bin/perl -w use strict; my %ips; while (<>) { $ips{$1}++ if (/^(\d+\.\d+\.\d+\.\d+)/); } map { print $ips{$_} . "\t" . $_; my $result = qx{ whois -B -h whois.ripe.net $_ }; my ($country, $descr) = ('', ''); if ($result =~ /country:\s+(\w+)/) { $country = $1; } if ($result =~ /descr:\s+(.+?)\n/) { $descr = $1 ; } print "\t" . lc($country); print " " . lc($descr) . "\n"; } sort { $ips{$b} <=> $ips{$a} } keys %ips;

---

Il s'agit d'un script qui parse un access.log de serveur apache et recrache les adresses ip par odre de plus grand accès avec infos sur la localisation et le provider.

Merci d'avance.

Déjà, je pense que ton script serait un poil plus clair si tu utilisais une boucle foreach au lieu de l'opérateur map. Sinon, quelques commentaires ne feraient pas de mal.

Merci Schmorgluck. En effet le map n'est pas très lisible. Au départ c'était juste un

Code:

---

1 2 3

map { print $ips{$_} . "\t" . $_ . "\n"; } sort { $ips{$b} <=> $ips{$a} } keys %ips;

---

Ce sera plus lisible avec une variable en clair et un foreach.