Perl

[Perl] Aide pour logique en POO

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Aide pour logique en POO

burgergold

5$? va chez l'diable!

Je désire faire une classe pour consulter le fichier /etc/passwd

grâce à celui-ci, je pourrais utiliser les méthodes suivantes:

uid_to_username($uid)
username_to_uid($username)

pas plus pour commencer

chacune des lignes du fichiercontient les éléments suivants:

username
uid
gid
description
home
shell

donc ca devrait ressembler à quelque chose comme ca:

Code :

sub uid_to_username {
my $self = shift;
my $uid = shift;
foreach ($self->lines) {
if ($_->uid eq $uid) {
return $_->username;
}
}
}

mais voila, dans cette optique, une ligne se doit aussi d'être un objet, et j'ai donc besoin d'une classe Etc::Passwd::Entry

selon vous, vaut mieux faire un package pour "le fichier" et un pour "une entry" ou tout foutre dans le package principal? si c'est la dernière réponse, comment vous vous y prendriez

merci

---------------
http://www.boincstats.com/signature/user_664861.gif

Publicité

Taz

bisounours-codeur

aucune.

ta classe ça peut être un singleton

et quand tu construits une instances, tu lis /etc/passwd, tu découpe par lignes, et tu mets chaque lignes dans un dictionnaire et voilà. pas la peine de rajouter une classe pour pas grand chose.

burgergold

5$? va chez l'diable!

bin l'idée général, c'est d'avoir un package (une classe quoi), qui sera dans une librairie commune pour la plupart de mes scripts, dans lesquels je pourrais faire appel à ce package (classe) lorsque j'en aurais besoin

---------------
http://www.boincstats.com/signature/user_664861.gif

burgergold

5$? va chez l'diable!

bon disons qu'on reprend de cette facon

j'ai un package (mais pas classe) nommé Etc::Passwd

Code :

package Etc::Passwd;
use strict;
use Bromont::File; # Package qui me permet divers trucs sur les fichiers; les acls, lire le fichier en retirant les lignes vides et commentaires, etc...
my $file = new Bromont::File("/etc/passwd" );
sub uid_to_username {
my $uid = shift;
foreach ($file->lines) {
my $entry = new Etc::Passwd::Entry($_);
if ($entry->uid eq $uid) {
return $entry->username;
}
}
}

c'est pas bien de me créer un package (classe dans ce cas) pour traiter une ligne de mon fichier? jsuis mieux de simplement me faire des subroutines dans le package Etc::Passwd?

---------------
http://www.boincstats.com/signature/user_664861.gif

burgergold

5$? va chez l'diable!

---------------
http://www.boincstats.com/signature/user_664861.gif

pospos

pourkoi tu veux faire un truc objet?
Tu pense que tu aura besoibn de plusieurs instance de cette classe? et tu pense que c'est vraiment utilise de faire de chaque ligne une instance d'une classe ...::Entry ?

Tu peux faire un package bien réutilisable et simple pour ce que tu veux faire sans faire de OO

burgergold

5$? va chez l'diable!

pospos a écrit :

ouais bin je l'ai fait sans OO finalement, j'ai trouvé une Unix-ConfigFile dans lequel ca traite Passwd et Group alors jfais que le réutiliser pour faire du uid_to_name et ainsi de suite

---------------
http://www.boincstats.com/signature/user_664861.gif

FORUM HardWare.fr

Programmation

Perl

[Perl] Aide pour logique en POO

Sujets relatifs
besoin d'aide pour la fonction socket probleme avec free	[Perl] Arrêter un programme proprement lors d'un Ctrl + C
aide Visual basic 6.0: instruction shell??	[BATCH] aide script
[AIDE] Quel language ?	Vérif de la présence des process à l'aide d'1 script.
afficher une image par lien !! aide please	A l'aide inclusion de fichier
aide pour un projet d'agenda en pascal	[ Merise ] Aide au MCT [ Edit MCT --> Act 3 ]
Plus de sujets relatifs à : [Perl] Aide pour logique en POO

Page générée en 0.040 secondes