Discussion :

[iblis]

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 :

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

[Schmorgluck]

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.

[iblis]

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

Code :

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

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.