salut,
 
J'aimerais personnalisé un script d'analyse des log de squid.
Mais je suis pas vraiment une brut en script... quelqu'un pourrait m'aider a pigé ce script la :
 
$DNS_SERVEUR = '127.0.0.1';
 
while (<STDIN> ) {
 @tab = split (" ", $_);
 $NOM=`host $tab[1] $DNS_SERVEUR 2> /dev/null | grep Name | awk '{print $2}'`;
 if ($NOM eq "" ) { $NOM = $tab[1]; }
 $NOM =~ s/Name://;
# $NOM =~ s/\.airparif\.asso\.fr//;
 $DATE=`date "+%H:%M"`;  
 chomp $NOM; chomp $DATE;
 print "$DATE $NOM\t\t$tab[5]\n";
}
 
en fait je voudrais rajouter le champ avec l'@ IP du poste qui se connecte au site

c du perl

ok, et c tout ;-)
va quand meme falloir que je me mette au perl...
 

$NOM=`host $tab[1] $DNS_SERVEUR 2> /dev/null | grep Name | awk '{print $2}'`;
 
faut quand même être un grops boulay pour écrire ça en perl

du awk dans du perl

ben mmoi j'comprend rien
pas tapai !
 
pourriez m'expliquer un peu ?
un lien vers un site d'initiation perl ?
Qu'apporte le perl par rapport a du script bash ?
 
Olivier

moi j'ai débuté avec ça http://www.med.univ-rennes1.fr/~poulique/cours/perl/