Quelle structure Perl pour lire file texte formaté

Bonjour
Je travaille avec Perl depuis pas très longtemps
Je dois faire la chose suivante
J'ai un ficghier texte contenant des infos (~structure idem table bdd ) mais pour l'instant je n'ai pas mis en place de bdd sur la machine linux

pour l'instant les infos sont stockés dans un fichier texte classique

au début d emon script perl, j'aimerai ouvrir ce fichier et récupérer la totalité de ce fichier (pour des besoins de test) il n'est pas très gros.
Je ne sais pas trop quelle structure perl je dois prendre
pour être par la suite le plus proche possible d'infos issus
soit de bdd, soit de serveur http (voiceXml)
Je pensais éventuellement mettre en place une classe avec les attributs correspondant aux champs de mon fichier

Est-ce une bonne idée ?. J'ai vu dans les manuels qu'il y aura une instance par objet et donc si j'ai dans mon fichier 20 lignes cela fera 20 objets (est-ce gourmand au niveau mémoire?)
merci de vos infos

Evidemment qu'il y aura une instance par objet, c'est la même chose avec un tableau : si il y a 20 cases, il y aura 20 emplacements mémoire occupés ;)

Au niveau de la mémoire, ca occupera bien entendu la taille de ton fichier texte + les handles à stocker (1 handle par objet + 1 handle par champ). Si le fichier est petit, ca ne se verra pas en mémoire.

Le fait de passer par une classe peut-être sympa, sinon si le nombre de champs est faible, tu peux te contenter d'une simple hash (de toute facon, créer un objet en perl revient le plus souvent à créer une hash ou un tableau).



Par exemple ici:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

my @records = ();   open(FILE, $fichier); while (<FILE> ) { my @data = split(/,/); # si la virgule est ton séparateur, sinon remplacer ;) my %record = { nom => $data[0], prenom => $data[1] }; push(@records, %record); } close(FILE);

---

après, tu pourras accéder à tes objets de la manière suivante:

Code:

---

1 2 3 4

my %record = $records[3]; # accès au 4° record my $prenom = $record->prenom; printf("prenom : $prenom\n");

---

PS: je n'ai pas eu le temps de tester, mais de mémoire, ca fonctionne de cette manière ;)

Citation:

---

Envoyé par MarneusCalgarXP

PS: je n'ai pas eu le temps de tester, mais de mémoire, ca fonctionne de cette manière ;)

---

Y a pas mal de petites erreurs de sigils et autres :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

my @records;   # toujours tester si l'open() a réussi. open my $input, '<', $fichier or die "$!\n";   while ( my $line = <$input> ) { my @data = split /,/, $line; # si la virgule est ton séparateur, sinon remplacer ;) # ici ton %record aurait dû être $record, mais je vais carrément me passer d'intermédiaire push(@records, { nom => $data[0], prenom => $data[1] }; }   close($input);

---

Et pour accéder plus tard :

Code:

---

1 2 3 4

my $record = $records[3]; # accès au 4° record my $prenom = $record->{prenom}; printf("prenom : $prenom\n");

---

ou :

Code:

---

1 2 3 4

my %record = %{$records[3]}; # accès au 4° record my $prenom = $record{prenom}; printf("prenom : $prenom\n");

---

--
Jedaï