Problème POO utilisation des package

Bonjour à tous,
je sollicite une nouvelle fois le forum, car j'ai un problème entre mes différents packages.

Ce message s'affiche lorsque j'exécute mon programme principal.

Code:

can t locate object method "new" via package "Sql" at View.pm line 45 Compilation failed require at Sql.pm line 4

Mes différentes classes:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 #!/usr/bin/perl package View; use warnings; use strict; use Tk; use Sql; sub new { my ($class) = @_; my $this = {}; bless($this, $class); return $this; } my $sql = Sql->new(); ... 1; # Important, à ne pas oublier __END__ # Le compilateur ne lira pas les lignes après elle
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 #!/usr/bin/perl package Sql; use View; use warnings; use strict; use DBI; sub new { my ($class) = @_; my $this = {}; bless($this, $class); return $this; } my $view = View->new(); ... 1; # Important, à ne pas oublier __END__ # Le compilateur ne lira pas les lignes après elle
Merci à ceux qui me viennent en aide.

Et il ressemble à quoi ton programme principal ?

Merci de l'attention porté à ma demande, voici mon code principal..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 #!/usr/bin/perl package MainPOO; use Sql; use View; use warnings; use strict; use Tk; my $s = Sql->new(); my $f = View->new(); 1;
Je me suis lancé très récemment sur la PO avec plusieurs cours,
notamment ceux du forum, il est possible que j'ai été trop vite parfois..

Quelqu'un à une réponse? :?
J'ai changer les nom des constructeurs, au cas ou il y avait conflits,
cela n'a rien donné..

J'ai fait plein d'autre manip, en vain..
C'est sûrement un truc simple, mais je suis aveuglé je pense par mon code..
:mouarf:

On peut bien lier une classe à plusieurs autres? ou seulement à une seule?

tu te mêles un peu les pinceaux là. Car une classe appelle une autre qui s'appelle déjà. Donc au moment de la compilation, c'est un peu le bouxon.
Que souhaites-tu faire concrètement ?

Ok,
concrètement je veux lancer l'interface graphique, (View.pm) et en même temps la classe sql.pm qui traite les données de la base de données.
(Insertion, modification, suppression, ect..)

En fait j'avais tout dans la même classe sans être en objet, puis j'ai décider de tout refaire en objet. Et de séparer l'interface du traitement de la BDD.

J'espère être assez clair.. :?

Dans ce cas, la classe sql n'a nullement besoin d'appeler la classe view vu que son rôle sera de faire les traitements SQL.

Oui c'est vrai..

Mais du coup j'ai exactement le même problème..

Je n'arrive pas à appeler le constructeur de la classe Sql..

Comme si il n'existait pas, en fait. :|

Faut essayer de poser tout ce que tu souhaites faires car en nous donnant de bouts de codes, on arrive à rien.

Sql.pm

Code:

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
package Sql;
 
use warnings;
use strict;
use DBI;
use View;
 
 
sub new {
	my ($class) = @_;
	my $this = {};
	bless $this, $class;
 
	return $this;
}
 
sub connection_bd {
  my ( $this ) = @_;
 
  # ...
}
 
sub deconnection_bd {
  my ( $this ) = @_;
 
  # ...
}
 
sub traitement {
  my ( $this ) = @_;
 
  print "Sql : Methode traitement appeles\n";
 
  # Besion de View
  my $view = View->new();
  # ...
}
 
 
 
1;                # Important, à ne pas oublier
__END__

View.pm

Code:

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
package View;
 
use warnings;
use strict;
use Tk;
use Sql;
 
 
sub new {
	my ($class) = @_;
	my $this = {};
	bless $this, $class;
 
	return $this;
}
 
sub toto {
  my ( $this ) = @_;
 
  print "View : Methode toto appelee\n";
  # appel de sql
  my $sql = Sql->new();
  $sql->traitement();
 
}
 
1;                # Important, à ne pas oublier
__END__

Programme principal

Code:

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use Carp;
use strict;
use warnings;
 
use View;
 
my $view = View->new();
$view->toto;
 
1;
__END__

Très bien, voici mon code principal:

Code:

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
package mainPOO;
 
use Sql;
use View;
use warnings;
use strict;
use Tk;
 
my $f = View->new();

La classe Sql.pm:

Code:

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
#!/usr/bin/perl
package Sql;
 
use warnings;
use strict;
use DBI;
 
#
# Variables propres à la BDD
#
my $BaseDeDonnees = 0;
my $NomHote = 0;
my $login = 0;
my $MotDePass = 0;
my $dbh = 0;
my $RequeteSQL = 0;
my $sth = 0;
my $ref = 0;
my $affInfo = 0;
my $nomAff = 0;
 
my @tabDesNom = ();
 
 
 
sub new
{
	my ($class) = @_;
 
	# Vérifions la classe
	$class = ref($class) || $class;
 
	# Création de la référence anonyme de hachage vide (futur objet)
	my $this = {};
	bless($this, $class);
	return $this;
}	
 
# Parametres de connexion à la base de données
$BaseDeDonnees = "papp";
$NomHote       = "localhost"; # Host local ici, possibilité d'en mettre distant(IP)
$login         = "root";      # login root par defaut
$MotDePass     = "";          # Mot de passe vide
 
 
# Connection à la base de données mysql
$dbh = DBI->connect( "dbi:mysql:dbname=$BaseDeDonnees;host=$NomHote;",
    $login, $MotDePass )
    or die "Connection impossible à la base de donnees $BaseDeDonnees !";
 
 
#--------------------------------------------------------------#
#Fonction nous permettant d'insérer des inforations dans la BDD#
#--------------------------------------------------------------#	
sub insertionLigne {
 
 
	#Requete SQL qui permet l'insertion
	$RequeteSQL = <<"SQL";
 
		INSERT INTO carnet ( Nom, Prenom, Adresse, Mail, Telephone, Info )
		VALUES ( "$_[0]", "$_[1]", "$_[2]", "$_[3]", "$_[4]", "$_[5]" );
 
SQL
 
	#Execution de la resuete SQL
	$dbh->do($RequeteSQL) or die "Echec Requete $RequeteSQL : $DBI::errstr";
 
}
#-----------------------------------------------------------------------------------------------#
#Fonction nous permettant d'afficher les nom de la BDD, en les ajoutant à une liste en parallèle#
#-----------------------------------------------------------------------------------------------#
sub affichageNom {
 
	#Initialisation de la liste
	@tabDesNom = ();
 
	#Un statement qui récupèrera toute la table carnet
	$sth = $dbh->prepare("SELECT * FROM carnet");
	#Execution du statement
	$sth->execute();
 
	#Itération sur toutes les lignes
	while ($ref = $sth->fetchrow_hashref()) {
		#On ajoute à la liste tous les champ 'Nom' des lignes de la BDD
		push(@tabDesNom,$ref->{'Nom'});
	}
 
	foreach (@tabDesNom){
		$liste-> insert('end', "$_ " );
	};
 
	#Fermeture du statement
	$sth->finish();	
 
	return $liste;
}
 
#-------------------------------------------------------------------------------------#
#Fonction nous permettant de supprimer une ligne de la BDD, grâce à la saisie d'un nom#
#-------------------------------------------------------------------------------------#
sub supprimerNom {
 
 
 
	#Requete SQL qui permet l'insertion
	$RequeteSQL = <<"SQL";
 
		DELETE FROM `carnet` WHERE
	`carnet`.`Nom` = '$_[0]' 
	AND `carnet`.`Prenom` = '$_[1]'
 
SQL
 
	#Execution de la resuete SQL
	$dbh->do($RequeteSQL) or die "Echec Requete $RequeteSQL : $DBI::errstr";
 
}
 
#--------------------------------------------------------------#
#Fonction nous permettant d'afficher la ligne entière de la BDD#
#--------------------------------------------------------------#
sub affichageInfo {
 
	#Un statement qui récupèrera toute la table carnet
	$sth = $dbh->prepare("SELECT * FROM carnet WHERE Nom = '$nomAff'");
	#Execution du statement
	$sth->execute();
 
	while ($ref = $sth->fetchrow_hashref()) {
 
		#Test si la variable est null
		if(defined($ref->{'Info'})){
			#Non null, affInfo prend la valeur du champ Info
			$affInfo = $ref->{'Info'};
		}else{
			#Sinon, il est stipulé à l'utilisateur que le champ est vide
			$affInfo = "aucune information n'est rentree";
		}
 
		my $affPrenom  = $ref->{'Prenom'};
		my $affAdresse = $ref->{'Adresse'};
		my $affMail = $ref->{'Mail'};
		my $affTel = $ref->{'Telephone'};
 
 
		#Affichage des informations de la BDD
		$text_nom->insert(0,"$_[0]");
		$text_prenom->insert(0,$affPrenom); 
		$text_adresse->insert(0,$affAdresse);
		$text_mail->insert(0,$affMail);
		$text_tel->insert(0,$affTel);
		$text_info->insert(0,$affInfo);
 
		}
 
	#Fermeture du statement
	$sth->finish();
 
 
}
 
#-------------------------------------------------------#
#Fonction nous permettant de modifier la ligne de la BDD#
#-------------------------------------------------------#
sub modifierInfo {
 
	#Un statement qui récupèrera toute la table carnet
	$sth = $dbh->prepare("SELECT * FROM carnet WHERE Nom = '$nomAff'");
	#Execution du statement
	$sth->execute();
 
	my $affPrenom;
	my $affAdresse;
	my $affMail;
	my $affTel;
	my $affInfo;
 
	while ($ref = $sth->fetchrow_hashref()) {
 
			$affPrenom  = $ref->{'Prenom'};
			$affAdresse = $ref->{'Adresse'};
			$affMail = $ref->{'Mail'};
			$affTel = $ref->{'Telephone'};
			$affInfo = $ref->{'Info'};
 
		}
 
		my $infoText = $_[5];
 
	#Le statement qui va executer la requete
	$sth = $dbh->prepare("UPDATE `carnet` SET 
	`Nom` = '$_[0]',
	`Prenom` = '$_[1]',
	`Adresse` = '$_[2]',
	`Mail` = '$_[3]',
	`Telephone` = '$_[4]',
	`Info` = '$_[5]'
	WHERE `carnet`.`Nom` = '$nomAff' 
	AND `carnet`.`Prenom` = '$affPrenom' 
	AND `carnet`.`Adresse` = '$affAdresse' 
	AND `carnet`.`Mail` = '$affMail' 
	AND `carnet`.`Telephone` = '$affTel' 
	AND `carnet`.`Info` = '$affInfo' LIMIT 1;
");
	#Execution du statement
	$sth->execute();	
}
1;                # Important, à ne pas oublier
__END__           # Le compilateur ne lira pas les lignes après elle

Et voici enfin le code de la classe View.pm:

Code:

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
#!/usr/bin/perl
package View;
 
use warnings;
use strict;
use Tk;
use Sql;
 
#
# Variables propres à la saisie
#
my $nom = 0;
my $prenom = 0;
my $add = 0;
my $mail = 0;
my $tel = 0;
my $info = 0;
my @tabDesNom = ();
my $colonne = 0;
my $valeur = 0;
my $nomAff = 0;
 
 
#
# Variables propres à l'interface graphique.
#
my $fenetre = 0;
my $text_nom = 0;
my $text_adresse = 0;
my $text_mail = 0;
my $text_tel = 0;
my $text_info = 0;
my $text_prenom = 0;
my $liste = 0;
 
 
my $sql = 0;
 
 
sub new
{
	my ($class) = @_;
	# Vérifions la classe
	$class = ref($class) || $class;
 
	# Création de la référence anonyme de hachage vide (futur objet)
	my $this = {};
 
	$sql = Sql->new();
 
	bless($this, $class);
	return $this;
}
 
 
#----------------------------------------------------------------------------------------------------------#
#----------------------------------------------------------------------------------------------------------#
#---------------------------------------------PARTIE GRAPHIQUE---------------------------------------------#
#----------------------------------------------------------------------------------------------------------#
#----------------------------------------------------------------------------------------------------------#
 
 
 
# Création de la fenêtre
		$fenetre = new MainWindow(
		-title => 'Carnet d\'adresse',
		#-font => 'Garamond', #definition de la police
		-background => 'white',
		);
 
 
 
# Taille minimale de ma fenêtre
		$fenetre->minsize( 800, 550 );
 
#-----------------------------------------------------------------------------------------------#
#----------------------------------CHAMPS TEXTES------------------------------------------------#
#-----------------------------------------------------------------------------------------------#
 
#------------------------------------------------------------------#
#Fonction nous permettant de supprimer le contenu des champs textes#
#------------------------------------------------------------------#
sub vider {
 
	#On supprime le contenu des champs textes
	$text_nom->delete(0,'end');
	$text_prenom->delete(0,'end'); 
	$text_adresse->delete(0,'end'); 
	$text_mail->delete(0,'end');
	$text_tel->delete(0,'end');
	$text_info->delete(0,'end');
 
}
#Champ texte pour le nom
	$text_nom = $fenetre->Entry(-text => 'nom',-font => '{Comic Sans MS} 12', )
	->place(         				
				-x => 300,  #Coordonnees
                -y => 0,
				-width => 480 ,  #largeur
				-height => 60 , #hauteur
	);
 
#Champ texte pour l'adresse
	$text_adresse = $fenetre->Entry(-text => 'adresse',-font => '{Comic Sans MS} 12',)
 
	->place(        
				-x => 300,  #Coordonnees
                -y => 140,
				-width => 480 ,  #largeur
				-height => 120 , #hauteur
 
	);
 
#Champ texte pour le mail
	$text_mail = $fenetre->Entry(-text => 'mail',-font => '{Comic Sans MS} 12',)
 
	->place(        
				-x => 300,  #Coordonnees
                -y => 270,
				-width => 480 ,  #largeur
				-height => 60 , #hauteur
 
	);
 
#Champ texte pour le tel
	$text_tel = $fenetre->Entry(-text => 'tel',-font => '{Comic Sans MS} 12',)
 
	->place(        
				-x => 300,  #Coordonnees
                -y => 340,
				-width => 480 ,  #largeur
				-height =>60 , #hauteur
 
	);
 
 #Champ texte pour les infos
	$text_info = $fenetre->Entry(-text => 'infos complémentaires',-font => '{Comic Sans MS} 12',)	
	->place(        
				-x => 300,  #Coordonnees
                -y => 410,
				-width => 480 ,  #largeur
				-height => 120 , #hauteur
 
	);
 
 
#Champ texte pour le prenom
	$text_prenom = $fenetre->Entry(-text => 'prenom',-font => '{Comic Sans MS} 12',)
	->place(        
				-x => 300,  #Coordonnees
                -y => 70,
				-width => 480 ,  #largeur
				-height => 60 , #hauteur
 
	);
 
#-----------------------------------------------------------------------------------------------#
#----------------------------------BOUTONS ET LISTE---------------------------------------------#
#-----------------------------------------------------------------------------------------------#
 
#Affichage de la liste de nom 
	$liste = $fenetre->Listbox(-font => '{Comic Sans MS} 12',)->place(
				-x => 5,  #Coordonnees
                -y => 0,
				-width => 275 ,  #largeur
				-height => 300 , #hauteur
				  );
 
 
	$sql->affichageNom();
 
 
 
#Bouton pour afficher un nom dans une liste
	my $bouton_affich = $fenetre->Button(
		-text => 'Afficher',
		-font => '{Comic Sans MS} 12',
		-command => sub {
 
 
			my @elt_selectionnes = $liste->curselection();
 
			foreach my $index (@elt_selectionnes) {
 
			$nomAff = $liste->get($index); 
 
 
			}
 
			vider();
 
			$sql->affichageInfo($nomAff);
 
		},)
		->place(
				-x => 5,  #Coordonnees
                -y => 320,
				-width => 275 ,  #largeur
				-height => 45 , #hauteur
				);
 
#Bouton pour ajouter un nom dans une liste	
	my $bouton_ajout = $fenetre->Button(
		-text => 'Ajouter',
		-font => '{Comic Sans MS} 12',
		-command => sub {
			my @data =  $text_nom->get,"";
 
			$liste-> insert('end', @data);
 
			$nom = $text_nom->get,"";
			$prenom = $text_prenom->get,"";
			$add = $text_adresse->get,"";
			$mail = $text_mail->get,"";
			$tel = $text_tel->get,"";
			$info = $text_info->get,"";			
 
 
			$sql->insertionLigne(	$nom, $prenom, $add, $mail, $tel, $info );
 
 
		},
		) ->place(
				-x => 5,  #Coordonnees
                -y => 380,
				-width => 275 ,  #largeur
				-height => 45 , #hauteur
				);
 
 
 
#Bouton pour supprimer un nom dans une liste
	my $nomSuppr;
	my $bouton_suppr = $fenetre->Button(
		-text => 'Supprimer',
		-font => '{Comic Sans MS} 12',
		-command => sub { 		
				# lire element selectionner dans la boîte de liste 
				my @elt_selectionnes = $liste->curselection();
				foreach my $elt2 (@elt_selectionnes) {
				# suppression de l'élement selectionnes 
				$liste->delete($elt2);
			}
 
			$nom = $text_nom->get,"";
			$prenom = $text_prenom->get,"";
			$sql->supprimerNom($nom, $prenom);
			vider();
			},) ->place(
				-x => 5,  #Coordonnees
                -y => 500,
				-width => 275 ,  #largeur
				-height => 45 , #hauteur
				);
 
#Bouton pour modifier un nom dans une liste
	my $bouton_modif = $fenetre->Button(
		-text => 'Modifier',
		-font => '{Comic Sans MS} 12', #police 
		-command => sub {
 
			my @elt_selectionnes = $liste->curselection();
 
			foreach my $index (@elt_selectionnes) {
				$nomAff = $liste->get($index);
			}
 
			$nom = $text_nom->get,"";
			$prenom = $text_prenom->get,"";
			$add = $text_adresse->get,"";
			$mail = $text_mail->get,"";
			$tel = $text_tel->get,"";
			$info = $text_info->get,"";	
			$sql->modifierInfo($nom, $prenom, $add, $mail, $tel, $info,$nomAff);
 
		},)->place(
				-x => 5,  #Coordonnees
                -y => 440,
				-width => 275 ,  #largeur
				-height => 45 , #hauteur
				);	
 
 
MainLoop(); # Obligatoire
 
1;                # Important, à ne pas oublier
__END__           # Le compilateur ne lira pas les lignes après elle

En espérant que ça ne soit pas illisible..

bon en regardant ton code, tu as vraiment un souci de conception.
tu veux faire de l'objet, mais tu n'en fais pas. Toutes tes méthodes n'en sont pas. Elles ne contiennent pas d'objet en premier argument. Une bonne classe ne doit avoir que des procédures (constructeurs et méthodes) or dans ton View.pm, si on enleve new et vide, il y a pleins de codes.
De plus, tu fais appel à du code Tk dans Sql.pm mais à aucun moment tu ne récupère les variables ou les contenus des variables Tk (ex : $liste, $champ_xxx).

Ton programme principal est un .pl, mais tu y mets package.

Bref, il faut que tu reprennes depuis le début pas à pas en lisant notre tutoriel sur Perl et le POO pour que tu comprennes comment ça fonctionne.

Juste pour test, dans ton programme principal, si tu mets juste ce code, tu verras que tout plante.
Code:

1 2 3 4 5 6 7 8 #!/usr/bin/perl use strict; use warnings; use View; #my $f = View->new(); __END__
Donc mon conseil, repart de zéro en ayant lu au moins le tutoriel de notre rubrique Perl sur la POO. On pourra après t'aider pas à pas car je pense que ton but était de vouloir scinder le code en 3 (prog principal, code Interface graphique, code SQL), n'est-ce pas ?

Oui c'était ça en effet.
Donc en fin de compte tout le code doit être dans le programme principal,
et non dans la partie view?
Il doit n'y avoir que des méthodes?

Je vais reprendre de zero, c'est plus sage en effet ;)

Citation:

Envoyé par Christophe53

Oui c'était ça en effet.
Donc en fin de compte tout le code doit être dans le programme principal,
et non dans la partie view?

non, pas forcément, il peut être dans View, mais il faut réfléchir sur la façon de les intégrer dans des méthodes proprement.

Citation:

Envoyé par Christophe53

Il doit n'y avoir que des méthodes?

Je vais reprendre de zero, c'est plus sage en effet ;)

je pense aussi :ccool: !!