Bonjour, je viens de me mettre à Perl et encore s'est beaucoup dire    
J'ai un peu de mal avec la façon dont Perl organise les choses et j'aimerais votre aide a travers un exemple simple pour m'aider à comprendre.
 
J'ai deux fichiers avec des IP et des informations à leurs sujets tel que leurs sous-réseaux, leur lieu d'attribution et la dernière date de mise en place. Dans un fichier les données sont récentes et sûres et dans l'autres les informations sont plus complètes mais certaines IP sont down.
 
Ce que je veux faire c'est selon les IP valides du fichier récent, récupérer des informations de mon fichier obsolète.
 
Mes fichiers sont de la forme suivantes :
- Fichier récent : IP [espace] informations inutiles [espace] date de dernière connection
- Fichier obsolète : IP [espace] lieu [espace] réseau [espace] informations inutiles [espace] date [espace]

Si je comprends bien, les seuls espaces sur une ligne sont pour separer les champs? pas d'espace dans lieu ou informations inutiles? chaque IP n'apparait qu'une fois?
Si oui, tu peux parser Fichier obsolète et Fichier recent facilement, avec une expression reguliere ad-hoc.
Tu crée un hash dont la key est la valeur de l'IP, et la value , une reference sur un hash anonyme avec les cles lieu, reseau, info-inutiles, date correspondant a une ligne parsée.
Ca te permet ensuite quand tu parses Fichier recent, d'acceder rapidement aux infos qu'il y avait dans Fichier obsolète pour une IP de Fichier recent, et d'utiliser ces infos.
A+,

Très bien je vais faire des recherches sur la fonction pour parser ...
Je suis d'accord pour le hash, toi tu créerais qu'un seul hash ? qui récupère l'IP du fichier récent puis fouille dans oboslète pour récuperer les infos que l'on met dans le hash ...
Un truc du genre : $hash[$ip] = split(/s+/)    
Et comment j'affiche mes résultats ... j'ai du mal avec les tableau    
Merci de ton aide  

Ce genre de truc: IP [espace] lieu [espace] réseau [espace] informations inutiles [espace] date [espace] Ou tu sais que tu n'as que 5 espaces dans la ligne qui separent les champs, ca se parse en s'inspirant de ceci:
my %myhash;
if ($line =~ /^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+$/) {
           $myhash{$1} = {'lieu' => $2, 'reseau' =>$3, 'info_inutile' => $4, 'date' => $5};
}
A+,

Merci pour le bout de code ça m'a beaucoup aidé. Cependant je bloque sur l'affichage du contenu du hash. En revanche les parties récupérées avec la regex sont bonnes. Voici mon code :
 

Ce code n'affiche pas les informations sur l'IP. A l'éxécution j'ai l'erreur suivante :
 
Use of an uninitialized value in print at C:\scriptt.pl line 11, <SRV> line 477.

J'ai l'impression que le pb est au niveau de la clé mise dans $tablo et qu'elle est considérée comme différente de '11.11.11.11:80' et donc que quand tu fais $tablo{'11.11.11.11:80'} il ne trouve rien pour cette clé.
 
Fais une impression de keys(%tablo) pour voir comment y sont les clés.
il faut peut être faire $tablo{"$1"} = {'type' => $2, 'pays' =>$3}; ou un truc de ce genre
 
Si ca ne suffit pas, Pour voir comment $tablo a été exactement rempli, dumpe sa valeur.
use Data::Dumper;
print Dumper($tablo);
 
Notes que pour accéder aux valeurs, dans tablo, il faudra faire:
print $tablo{'11.11.11.11:80'}->{'type'} et  print $tablo{'11.11.11.11:80'}->{'pays'}
car $tablo{'11.11.11.11:80'} est une reference a un hash anonyme, et print $tablo{'11.11.11.11:80'} devrait juste afficher l'adresse de ce hash anonyme.
 
A+,

En fait, j'ai testé ton code (adapté) avec un petit exemple:

et srv.txt:

Et ca marche sans pb.
La seule maniere d'avoir l'erreur que tu donnes, c'est quand il n'y a pas de match entre la ligne et l'expression reguliere (ici: 6 champs texte separes par des blancs)
Donc soit ton expression reguliere n'est pas bonne, soit tu utilises une clé absentedu fichier parsé.
A+,

Merci pour les explications je vais regarder comment utiliser les fonctions.
Le code que tu as fait ne fonctionne pas sur ma machine. J'ai l'erreur :
 
Use of an uninitialized value in print at C:\trie.pl line 12, <$SRV> line 477.
 
Je vais regarder du côté des clés du hash, je reposterais ce soir.

l'exemple que Gilou t'a donné fonctionnait uniquement avec le fichier mis en exemple. C'est pour ça que la clé est en dur dans le print.  
Si tu veux toutes les clés de ta hash, remplace les lignes 12 et 13 par:

foreach my $ip (keys %tablo){
 print $tablo{$ip}->{'type'}, " ",  $tablo{$ip}->{'pays'}, "\n";
}

En fait, je pense qu'il recupere des cles dans nouveau fichier, et veut recuperer des valeurs dans ancien fichier.
Mais s'il teste avec une clé (donc IP) présente dans le nouveau, mais pas dans l'ancien, ca va lui faire cela.
Il faut qu'il teste si la clé $ip existe avec un
if (exists $tablo{$ip})
avant de vouloir en utiliser ses valeurs.
A+,

C'est plutoit qu'il a rien matché dans l'expression reguliere pour l'IP 11.11.11.11:80
Donc soit l'IP ne figure pas dans le fichier $SRV, soit la ligne ou elle figure n'est pas conforme a ce qu'attend l'expression reguliere.
A+,