Discussion :

[Guigozz]

Bonjour à tous,

J'aimerai pouvoir récupérer simplement les informations contenues dans un fichier (qui accessoirement est un whois).
Les fichiers n'ont pas les memes formats (en fonction des extensions) et j'ai donc créé plusieur templates de la forme :

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
20
21
22
23
24
whois: This information is subject to an Acceptable Use Policy.
See http://www.switch.ch/id/terms/aup.html
 
 
Domain name:
#%{domain_name}%#
 
Holder of domain name:
#%{owner_name}%#
#%{owner_org}%#
#%{owner_addr1}%#
#%{owner_cp}%# #%{owner_city}%#
#%{owner_country}%#
Contractual Language: #%{owner_lang}%#
 
Technical contact:
#%{tech_name}%#
#%{tech_addr1}%#
#%{tech_cp}%# #%{tech_city}%#
#%{tech_country}%#
 
Name servers:
#%{dns_1}%#	[#%{dns_1_ip}%#]
#%{dns_2}%#	[#%{dns_2_ip}%#]

Il faudrait donc, à partir de ce template, pouvoir récupérer n'importe quelle information d'un whois .CH
J'ai regardé un peu le Template Toolkit mais il permet seulement de créer un fichier a partir d'un template et d'informations mais pas l'inverse, je veux récupérer les informations a partir d'un fichier et d'un template.

Est ce que quelqu'un sait si un module quelconque sait faire ca?
Sinon je suis partit pour coder ca pendant un petit moment

Merci d'avance de votre aide.

[Guigozz]

Pas besoin de chercher, j'ai utilisé les reg_exp pour pouvoir récupérer ce que je veux dans mes fichiers

j'ai un hash contenant les reg_exp que les différentes variables peuvent prendre :

Code :

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

1
2
3
4
 
my %content_values = (	'domain_name' => '[0-9a-z_-]+\.+[a-z\.]+',
						'domain_name_no_ext' => '[0-9a-z_-]+',
						'domain_status' => '[a-zA-Z0-9_ -]+');

puis grâce au code suivant je peux récupérer ce que je veux dans mon fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
while ($whois_line = <WHOIS_FILE>) {
	$tpl_line = <TEMPLATE_FILE>;
 
	if ($tpl_line =~ /[#%{]([a-z0-1_]+)[}%#]/) {
		$pattern = $tpl_line;
		$pattern =~ s/#%{([a-z0-1_]+)}%#/($content_values{$1})/;
		$whois_line =~ /$pattern/;
		print $1."\n\n";
	}
}

Apres ce n'est qu'un début, je ne récupère qu'une variable par ligne pour le moment mais en améliorant tout ca, ca passera surement

Merci quand meme de votre aide