Problème récupération de données perl

**amary_t** · 10/06/2015, 11h46

Bonjour,
Je me permet de poster un message concernant un script que je dois réaliser. Mon script demande comme première question, on doit rentrer un nombre d'un chiffre ou deux. Déja il y'a un problème... Lorsque je met un nombre de 3 chiffres ça me cherche le fichier. Ensuite, je doit récupérer un nombre de 7 chiffres dans un fichier texte. Il me le récupère mais j'ai le texte avant mon nombre...
De plus, j'ai mis en place une option modifier, donc le nombre de 7 chiffre je veux le modifier par le nombre que je rentre
Je vous donne mon code, ça serait sympa de regarder mon code et voir les incohérences que j'ai cité avant.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
#!/usr/bin/perl -w
use strict;
my $nombre;
my @nb;
my @na;
my $i;
print "Which TT want to see? \n";
$nombre = <STDIN>; #saisie au clavier
chomp($nombre);
	if($nombre =~ /\d{1,2}/){
					}
	else{
		print "Which TT want to see? \n";
		$nombre = <STDIN>; #saisie au clavier
		chomp($nombre);
}
open (my $in,"<", "fichier$nombre.txt") || die "Le fichier n'existe pas !\n";
while(my $tablignes =<$in>)
{
	my @mot = split (' ',$tablignes); #on sépare
	foreach my $nombre(@mot){
	if($nombre =~ /\d{7}/){ #reggex utilisé pour les nombres
	push(@nb,$nombre);
	}
							}	
}
print"Le device ID de la TT $nombre est le suivant @nb\n";
print "Which TT want to Modify (1), Verify (2) or exit (3) \n";
$i = <STDIN>;
if ($i == 1) {modify();}
if ($i == 2) {verify();}
if ($i == 3) {exit();}
sub modify{
open (my $out,">", "fichier$nombre.txt") || die "Le fichier ne peut être édité !\n";
open (my $var, "information.txt");
	my @motus = <$var>;
	foreach my $line(@motus){
	chomp ($line);
	print " $line \n";
	close $var;
}
print"Le tableau: @na \n";
print "New Device ID? \n";
my $new = <STDIN>;
chomp ($new);
if($new =~ /\^d{7}/){
					}
else{
	print "Retry, write the new device ID? \n";
	$new = <STDIN>; #saisie au clavier
	chomp($new);
}
print"Le device ID de la TT $nombre est le suivant @nb\n";
close $out;
}
sub verify{
open (my $var, "information.txt");
	my @motus = <$var>;
	foreach my $line(@motus){
	chomp ($line);
	print " $line \n";
	close $var;
}
}
close $in;

**Philou67430** · 10/06/2015, 12h27

Bonjour et bienvenu

Ton premier test n'est pas suffisant restrictif :

Code :

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

$nombre =~ /\d{1,2}/

En effet, si $nombre contient 1 ou deux chiffres, le test est validé, mais un nombre qui contient trois chiffre en contient aussi deux.
Pour être plus restrictif, il faudrait que tu indiques que le chiffre ne peut contenir, entre le début et la fin, que 2 chiffres au maximum.
Par exemple en écrivant :

Code :

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

$nombre =~ /^\d{1,2}$/

Ensuite, pour ta deuxième regexp, tu voudrais ne sélectionner que les 7 chiffres qui correspondent au motif \d{7}, mais ton tester n'extrait pas cette information, il fournit juste l'information que sept chiffres existent dans la variable $nombre.
Pour récupérer ces sept chiffres, tu dois faire une capture, et la récupérer. Par exemple, écrire :

Code :

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

1
2
3
if ((my $sept_chiffres) = $nombre =~ /(\d{7})/) {
  push(@nb, $sept_chiffres);
}

**amary_t** · 10/06/2015, 12h45

Merci pour cette précieuse aide

Du coup tous mes problèmes sont résolus.
Cependant, il me reste à mettre à remplacer les 7 chiffres dans mon fichier texte par les 7 nouveaux chiffres que je demande quand je modifie ce nombre. Je suis bloqué...

**Philou67430** · 10/06/2015, 13h25

Et bien, utilise l'opérateur de modification des regexp : s///
(voir documentation : perl perlop)

**amary_t** · 10/06/2015, 13h41

Merci beaucoup pour ton aide. Dernière question j'espère ^^
Je ne comprend pas comment le faire?? Je voudrais remplacer le Device ID trouvé par le le nouveau Device ID lorsque je rentre dans la fonction modifier. Dans mon programme, lorsque je rentre le nouveau device ID cela me supprime tout mon fichier texte et met à la place le device ID.... Es ce quelqu'un pourrait m'aider et me signaler les lignes qui ne correspondent pas dans mon code

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
#!/usr/bin/perl -w
use strict;
my $nombre;
my @nb;
my @na;
my $i;
print "Which TT want to see? \n";
$nombre = <STDIN>; #saisie au clavier
chomp($nombre);
	if($nombre =~ /^\d{1,2}$/){ 
					}
	else{
		print "Which TT want to see? \n";
		$nombre = <STDIN>; #saisie au clavier
		chomp($nombre);
}
open (my $in,"<", "fichier$nombre.txt") || die "Le fichier n'existe pas !\n";
while(my $tablignes =<$in>)
{
	my @mot = split (' ',$tablignes); #on sépare
	foreach my $nombre(@mot){
	if ((my $sept_chiffres) = $nombre =~ /(\d{7})/) 
	{
	push(@nb, $sept_chiffres);
	}
	}
							}	
 
print"Le device ID de la TT $nombre est le suivant @nb\n";
print "Which TT want to Modify (1), Verify (2) or exit (3) \n";
$i = <STDIN>;
if ($i == 1) {modify();}
if ($i == 2) {verify();}
if ($i == 3) {exit();}
sub modify{
open (my $out,">", "fichier$nombre.txt") || die "Le fichier ne peut être édité !\n";
open (my $var, "information.txt");
	my @motus = <$var>;
	foreach my $line(@motus){
	chomp ($line);
	print " $line \n";
	close $var;
}
print"Le tableau: @na \n";
print "New Device ID? \n";
my $new = <STDIN>;
chomp ($new);
if($new =~ /\^d{7}/){
					}
else{
	print "Retry, write the new device ID? \n";
	$new = <STDIN>; #saisie au clavier
	chomp($new);
}
print $out "$new"; 
print"Le device ID de la TT $nombre est le suivant @nb\n";
close $out;
}
sub verify{
open (my $var, "information.txt");
	my @motus = <$var>;
	foreach my $line(@motus){
	chomp ($line);
	print " $line \n";
	close $var;
}
}
close $in;

**Lolo78** · 10/06/2015, 13h46

En principe, tu ne peux pas modifier directement un fichier. Il faut faire un fichier temporaire et faire les renommages voulus ensuite. Ou alors lire le fichier, le charger entièrement en mémoire, fermer le fichier et rouvrir en écriture et réécrire ce que tu as en mémoire.

**amary_t** · 10/06/2015, 13h50

Envoyé par Lolo78

En principe, tu ne peux pas modifier directement un fichier. Il faut faire un fichier temporaire et faire les renommages voulus ensuite. Ou alors lire le fichier, le charger entièrement en mémoire, fermer le fichier et rouvrir en écriture et réécrire ce que tu as en mémoire.

Tu n'as pas plus simple??? Une simple substitution ne marche pas dans mon cas, vu que je récupère mon information dans une variable??

**Philou67430** · 10/06/2015, 14h41

Envoyé par amary_t

Tu n'as pas plus simple??? Une simple substitution ne marche pas dans mon cas, vu que je récupère mon information dans une variable??

Non, l'écriture dans un fichier existant n'est pas possible simplement.

Habituellement, on renomme le fichier d'entrée, puis on l'ouvre en lecture.
On ouvre en écriture le fichier avec le nom d'origine.
On boucle dans le fichier en lecture, on traite chaque ligne que l'on écrit dans le fichier en écriture.
Au final, si l'on n'a pas besoin de backup du fichier d'origine, on peut supprimer le fichier avec le nom renommé.

**amary_t** · 10/06/2015, 14h46

Envoyé par Philou67430

Non, l'écriture dans un fichier existant n'est pas possible simplement.

Habituellement, on renomme le fichier d'entrée, puis on l'ouvre en lecture.
On ouvre en écriture le fichier avec le nom d'origine.
On boucle dans le fichier en lecture, on traite chaque ligne que l'on écrit dans le fichier en écriture.
Au final, si l'on n'a pas besoin de backup du fichier d'origine, on peut supprimer le fichier avec le nom renommé.

Ce n'est pas très clair pour ma part. Je vais laisser tomber je pense car je suis complètement perdu

**Philou67430** · 10/06/2015, 15h23

Je n'avais pas vu ton code en entier, et je n'ai pas bien compris que la fonction "modify" ne traitait pas le même fichier de ta première boucle.

En tout cas, en parcourant rapidement ton code, il y a au moins une ligne dans laquelle je suppose qu'il y a une erreur (49) :

Code :

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

1
2
 
if($new =~ /\^d{7}/){

Je pense que tu voulais écrire :

Code :

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

if($new =~ /^\d{7}/){

PS : soigne l'indentation, ton programme, tel que visualisé sur le forum, est illisible

**Philou67430** · 10/06/2015, 15h25

Par ailleurs, ici :

Code :

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

1
2
3
4
5
6
7
open (my $var, "information.txt");
my @motus = <$var>;
foreach my $line(@motus){
  chomp ($line);
  print " $line \n";
  close $var;
}

Tu peux fermer $var après l'avoir lu (donc avant le foreach), inutile de le fermer dans la boucle.

**amary_t** · 10/06/2015, 15h27

Merci. Cela change quoi??
Du coup tu penses qu'il ya moyen de faire ce que je veux??

**Philou67430** · 10/06/2015, 15h27

Enfin, sauf erreur, tu n'écris jamais dans le fichier $out. En ligne 42, tu écris simplement sur la sortie standard

Code :

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

  print " $line \n";

**Philou67430** · 10/06/2015, 15h29

Bien sûr que l'on peut faire ce que tu veux... faut juste s'en donner un peu la peine.
Mais il faudrait aussi que tu expliques correctement :
- ce que tu as en entrée
- ce que tu dois faire
- ce que tu veux obtenir en sortie

Or là, il faut chercher ces informations dans ton code, qui n'est pas des plus lisibles.

**amary_t** · 10/06/2015, 15h33

Envoyé par Philou67430

Enfin, sauf erreur, tu n'écris jamais dans le fichier $out. En ligne 42, tu écris simplement sur la sortie standard

Code :

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

  print " $line \n";

Mon print line me permet de récupérer les informations contenus dans un tableau où j'ai toute mes informations. Du coup quand je veux modifier les ID, je retrouve le bon id dans ce tableau avant.
Tu veux plus d'indications sur??

**amary_t** · 10/06/2015, 15h43

En faite, premièrement je récupère le device ID.
Ensuite, je propose deux modes de fonctionnement soit je le modifie manuellement ou soit je vérifie la valeur que j'ai avec la valeur qui est dans mon fichier texte information et si y'a une incohérence cela me le modifie automatiquement dans le fichier snmp où j'ai mon device ID
Comprends tu???

**Philou67430** · 10/06/2015, 15h44

Ton tableau @nb contient-il plusieurs valeurs ?
Pourquoi n'est il utilisé nulle part ailleurs que dans des print à l'écran ?
Le fichier $out est ouvert, et tu n'y écris QUE "$new", que devrait-tu y écrire à la place ?
Tu ouvres un fichier "information.txt" ($var) mais tu n'utilises aucune de ses informations (à part les afficher à l'écran).

Bref, en lisant ton code, je ne vois aucune explication de ce que tu souhaites faire. Donc :
- indique quel est le fichier d'entrée, et donne un exemple
- indique ce que tu souhaites faire
- indique ce que tu attends en sortie (et donne un exemple)

**amary_t** · 10/06/2015, 15h51

Envoyé par Philou67430

Ton tableau @nb contient-il plusieurs valeurs ?
Pourquoi n'est il utilisé nulle part ailleurs que dans des print à l'écran ?
Le fichier $out est ouvert, et tu n'y écris QUE "$new", que devrait-tu y écrire à la place ?
Tu ouvres un fichier "information.txt" ($var) mais tu n'utilises aucune de ses informations (à part les afficher à l'écran).

Bref, en lisant ton code, je ne vois aucune explication de ce que tu souhaites faire. Donc :
- indique quel est le fichier d'entrée, et donne un exemple
- indique ce que tu souhaites faire
- indique ce que tu attends en sortie (et donne un exemple)

Ton tableau @nb contient-il plusieurs valeurs ? Oui mais il contient la même valeur donc l'afficher une seule fois suffirait.
Le fichier $out est ouvert, et tu n'y écris QUE "$new", que devrait-tu y écrire à la place ? C'est le même fichier où j'ai récupérer mon information. Le $new correspond à la nouvelle valeur qui va remplacer l'information que j'ai récupéré auparavant
Tu ouvres un fichier "information.txt" ($var) mais tu n'utilises aucune de ses informations (à part les afficher à l'écran). Ces informations vont me servir pour vérifier l'information associé à ma valeur I que j'ai récupérer
- indique quel est le fichier d'entrée, et donne un exemple?? Le fichier d'entrée correspond à une snmp, dedans on y retrouve un nombre à 7 chiffres. Dans un autre fichier qui s'appelle information, j'ai le bon nombre à 7 chiffre associé au bon équipement
- indique ce que tu souhaites faire ?? Je veux ouvrir le fichier correspondant au bon équipement, je veux obtenir le nombre puis proposer un mode vérifier ou un mode modifier manuellement
- indique ce que tu attends en sortie (et donne un exemple) J'attends en sortie que dans le fichier que j'ai ouvert au tout début, que le nombre soit le bon
J'espère que tu as mieux compris mes attentes

Dans mon fichier information, j'ai ceci :

TT3 6332686
TT4 6332728
TT5 6332673
TT6 6332671

Dans mon fichier "fichier$nombre.txt ", j'ai ceci :

<snmp-device-thresholds>

down: !defined("nmstate_")
down: ( $nmstate_ = ${etat remote TT4} ) "nmstate.6332728($nmstate_)"
critical: ( $nmstate_ = 2 ) "nmstate.6332728($nmstate_)"
alarm : ( $nmstate_ = 3 ) "nmstate.6332728($nmstate_)"
warning : ( $nmstate_ = 1 ) "nmstate.6332728($nmstate_)"
okay : ( $nmstate_ = 0 ) "OK"

</snmp-device-thresholds>

**Philou67430** · 10/06/2015, 17h01

Exemple de ce qui n'est pas clair :
comment trouves-tu dans le fichier Information.txt (qui contient 4 nombres à 7 chiffres) le bon numéro à 7 chiffre qui correspond à l'équipement du fichier SNMP fichier$nombre.txt ?

**amary_t** · 11/06/2015, 08h59

Envoyé par Philou67430

Exemple de ce qui n'est pas clair :
comment trouves-tu dans le fichier Information.txt (qui contient 4 nombres à 7 chiffres) le bon numéro à 7 chiffre qui correspond à l'équipement du fichier SNMP fichier$nombre.txt ?

TT$nombre 7chiffres

Problème récupération de données perl

Programmation et administration système Perl

Discussions similaires

Partager

Partager