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.