PERL OBJET appel de classe

**Kishin** · 25/11/2008, 12h00

Voici mon code:

TestEssaie.pl

Code :

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

1
2
3
4
5
6
7
8
9
10
use Test;
$person=Test->new();
 
$person->name("Jason");
$person->age(30);
$person->peers("Claude", "Albert", "Bertrand");
 
push @All_Recs, $person; #stock ds un tableau
 
printf "%s is %d years old.\n", $him->name, $him->age;

Test.pl

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
package Test;
use strict;
 
 
##############################################
#		Constucteur objet Test				 #
##############################################
 
sub new
	{
		my $self = {};
		$self-> {NAME} 	= undef;
		$self-> {AGE}  	= undef;
		$self-> {PEERS}	= [];
		bless ($self);
		return $self;
	}
 
##############################################
#		Méthodes pour accéder aux données    #
#											 #
##############################################
 
 
sub name
	{
		my $self = shift;
		if (@_) {$self->{NAME} = shift} 
		return $self->{NAME};
	}
 
sub age
	{
		my $self = shift;
		if (@_) {$self->{AGE} = shift}
		return $self->{AGE};
	}
 
sub peers
	{
		my $self =shift;
		if (@_) { @{ $self->{PEERS} } = @_ }
		return @{ $self->{PEERS} };
	}

Mon erreur est la suivante :
Can't locate object method "new" via package "Test"

**Jedai** · 25/11/2008, 12h18

Pour un module, le nom du fichier doit être Test.pm pas Test.pl, par ailleurs Test fait partie des modules distribués par défaut avec Perl, donc je te suggère de choisir un autre nom pour ton module, ça évitera bien des confusions.

--
Jedaï

**djibril** · 25/11/2008, 12h31

Sans oublier qu'il manque le

Code :

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

1;

à la fin de ton module

**Kishin** · 25/11/2008, 14h02

Merci à vous je vais remédier à tout cela, djibril tu as eu mon message perso à propos de PERL sur Eclipse ?

**Kishin** · 25/11/2008, 14h47

Cela fonctionne comme je le veux merci.

Je ne pensais pas que le "1;" ait autant d'importance

**Kishin** · 25/11/2008, 16h13

Désormais je commence à rentrer dans le vif de mon application.

Je vous l'explique, j'ai pour l'instant un fichier 'Acceuil.pl' qui constitue ma page où se trouve des boutons d'évennement qui ouvriront des fenêtres.
Pour mon cas le fichier 'Consultation.pm' est un module qui réalise une requête sur ma BDD puis qui affiche le résultat de cette dernière dans une nouvelle fenêtre.

Acceuil.pl

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
70
71
72
73
74
75
76
77
78
#!/usr/bin/perl -w
use Consultation;
use Tk;
use Tk::Photo;
use Tk::JPEG;
use DBI; 
 
########## Connexion à la BDD     #########
require "connect.pl";
########## FIN Connexion à la BDD #########
 
 
########## Invocation objet Consulter #####
$consultation=Consultation->new();  # Appel le constructeur de l'objet Consultation
 
######### Construction fenêtre + paramètres #######
	$consultation = my $fen = Test -> new();
					$fen = MainWindow->new(-height=> '1000');
					$fen->title("Acceuil - Video_Club V 0.1");	   
					$fen->geometry("900x500+250+250"); # Taille (L*l) + disposition à l'affichage
					Fill_window($fen);
 
 
 
 
########## Paramètres de la fenêtre principale d'acceuil ##########
 
sub Fill_window
{
	my ($window, $header)= @_;
 
	$window-> Frame(-relief => 'groove' , -borderwidth => 2);
 
	my ($button)=@_;
 
	my $boutons = $button-> Button(
									-text => "Consulter",-activebackground => 'green',
							 		-command => \&Consultation # Appel de la méthode getFilmsDispo de l'objet Consulter
							 		 )->pack(-side=>'left', -anchor=>'w');
 
	$boutons    = $button-> Button(
									-text => "Reserver",-activebackground => 'green',
							 		-command => \&Reserver
							 		 )->pack(-side=>'left', -anchor=>'w');
 
	my $text_news = $window -> Label (-text => "Dernier arrivage: ")->pack(-side=> 'top', -anchor => 'ne');
 
 
	# Invocation & affichage image pour la news
	my $objImage  = $window-> Photo (-format=>'jpeg', -file => '/home/abu/hell.jpeg');
	my $objImage2 = $window-> Photo (-format=>'jpeg', -file => '/home/abu/image.jpeg');
	my $label1 = $window   -> Label (-image => $objImage);
	my $label2 = $window   -> Label (-image => $objImage2);
 
	$label1 -> pack (-side=>'right', -anchor => 'ne');
	$label2 -> pack (-side=>'right', -anchor => 'ne');
 
	$boutons = $window-> Button(
						-text => "Quit Video_Club",-activebackground => 'red',
				 		-command => [$window => 'destroy']
				 		 );	 		
	$boutons -> pack (-side => 'right', -anchor => 'se')
 
 
}
 
sub Consultation
{
	$consultation->fen_consultation;
}
 
sub Quitter
{
	exit(0);
}
 
#### Appel au gestionnaire d'évènements ####
MainLoop;

Consultation.pm

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
package Consultation;
use strict;
use Tk;
use DBI;
 
	########## Connexion à la BDD     #########
	require "connect.pl";
	########## FIN Connexion à la BDD #########
 
 
##############################################
#		Constucteur objet Consulter			 #
##############################################
sub new 
	{
		my $self= {};
		$self	-> {fen_consultation} = undef;
		bless($self);
		return $self;
 
	}
 
 
sub fen_consultation
	{
	my $self = shift;
	if (@_) {$self->{fen_consultation} = shift} 
 
	my $fen_consult_dispo = MainWindow->new(-height=> '1000');
			$fen_consult_dispo->title("Acceuil - Video_Club V 0.1");	   
			$fen_consult_dispo->geometry("700x350+350+350"); # Taille (L*l) + disposition à l'affichage	
 
			my $bar_consult_dispo = $fen_consult_dispo->Frame(-relief => 'groove' , -borderwidth => 2);
 
			my $menu_bar_consult_dispo = $bar_consult_dispo->Menubutton(
											-text => 'Application',		# Libel du bouton
											-font => '{Garamond} 10',	# Police
											-tearoff => 0,
											-menuitems => [
																[
																'command' => 'Quitter',
																-font => '{Garamond} 10',
																-command => sub {$fen_consult_dispo->destroy}
																]
														  ]		  
																		);
			$menu_bar_consult_dispo -> pack(-side => 'left');
			# Affichage barre de menu ancrée en [haut au centre de la fenêtre -->y] [haut sur le tout le long de la fenêtre]
			$bar_consult_dispo -> pack(-side => 'top', -anchor => 'n', -fill =>'x');
 
 
			my $req= my $dbh->prepare("select * from films order by titre;");
			my $resultat = $req->execute || die DBI::errstr;
			while ($resultat = $req->fetchrow_array)
				{
					$fen_consult_dispo->Label(-text=>"$resultat")->pack;
				}
 
			return $self->{fen_consultation};
 
			$req->finish;
			$dbh->disconnect();	
			###    FIN requêtage  ###
	}

Qu'est-ce que vous en pensez ?

J'ai l'erreur suivante :
Tk::Error: Can't call method "prepare" on an undefined value at /home/abu/workspace/Video_Club/Consultation.pm line 54.

**djibril** · 25/11/2008, 16h44

Code :

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

my $req= my $dbh>prepare("select * from films order by titre;");

Ta façon d'ecrire est bizarre.

my $req= my $dbh

De plus $dbh est censé se connecter à une base de données, mais ou?

**Kishin** · 25/11/2008, 16h53

Je fais cela pour pouvoir me déconnecter de ma BDD:

Code :

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

1
2
 
$dbh->disconnect();

**djibril** · 25/11/2008, 17h11

oui mais pour te connecter à ta base?

**Kishin** · 25/11/2008, 21h34

La connexion se fait par le << require 'Connect.pl' >>.

Code :

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

1
2
3
4
5
6
7
8
 
#!/usr/bin/perl
 
use DBI;
my $dbname='video_club';
my $username='nom_utilisateur';
my $password='mdp_utilisateur';
my $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=127.0.0.1", $username, $password) || die DBI::errstr;

**djibril** · 26/11/2008, 10h46

Ce n'est pas une bonne façon de faire.
Voici ce que je fais d'habitude.

Tu te fais une procédure connexion dans un .pm si tu veux.
Ex :
Ton ConnexionDBPerso.pm

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
#!/usr/bin/perl
use warnings;
use strict;
use DBI;
 
sub ConnexionDB {
 
  my $dbname='video_club';
  my $username='nom_utilisateur';
  my $password='mdp_utilisateur';
  my $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=127.0.0.1",   
    $username, $password) || die DBI::errstr;
 
  return $dbh;
} 
 
1;

Dans ton script,

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
#!/usr/bin/perl
use Consultation;
use warnings;
use strict;
use Tk;
use Tk::Photo;
use Tk::JPEG;
use ConnexionDBPerso;
 
##############################################
#		Constucteur objet Consulter			 #
##############################################
sub new 
	{
		my $self= {};
		$self	-> {fen_consultation} = undef;
		bless($self);
		return $self;
 
	}
 
 
sub fen_consultation
	{
	my $self = shift;
	if (@_) {$self->{fen_consultation} = shift} 
 
	my $fen_consult_dispo = MainWindow->new(-height=> '1000');
			$fen_consult_dispo->title("Acceuil - Video_Club V 0.1");	   
			$fen_consult_dispo->geometry("700x350+350+350"); # Taille (L*l) + disposition à l'affichage	
 
			my $bar_consult_dispo = $fen_consult_dispo->Frame(-relief => 'groove' , -borderwidth => 2);
 
			my $menu_bar_consult_dispo = $bar_consult_dispo->Menubutton(
											-text => 'Application',		# Libel du bouton
											-font => '{Garamond} 10',	# Police
											-tearoff => 0,
											-menuitems => [
																[
																'command' => 'Quitter',
																-font => '{Garamond} 10',
																-command => sub {$fen_consult_dispo->destroy}
																]
														  ]		  
																		);
			$menu_bar_consult_dispo -> pack(-side => 'left');
			# Affichage barre de menu ancrée en [haut au centre de la fenêtre -->y] [haut sur le tout le long de la fenêtre]
			$bar_consult_dispo -> pack(-side => 'top', -anchor => 'n', -fill =>'x');
 
 
			my $req= my $dbh->prepare("select * from films order by titre;");
			my $resultat = $req->execute || die DBI::errstr;
			while ($resultat = $req->fetchrow_array)
				{
					$fen_consult_dispo->Label(-text=>"$resultat")->pack;
				}
 
			return $self->{fen_consultation};
 
			$req->finish;
			$dbh->disconnect();	
			###    FIN requêtage  ###
	}

**Kishin** · 27/11/2008, 09h41

Merci bien désormais je voudrais le faire en objet où ce sera une méthode qui réalise la connexion en appelant les propriété de l'objet (Connect).

Connect.pm

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
 
#!/usr/bin/perl
package Connect;
 
use strict;
use warnings;
use DBI;
 
sub new
	{
 
	my $self = {};
 
	$self->{dbname}	='video_club';
	$self->{username} ='gerant';
	$self->{password} ='hr83sb';
	bless ($self);
	return $self;
	}
 
sub connect_me
	{
		my $self = shift;
		$self = DBI->connect("dbi:Pg:dbname=".$self->{dbname}.";host=127.0.0.1", $self->{username}, $self->{password}) || die DBI::errstr;
	}
1;

Mon script a une erreur '$self = DBI', peut etre une erreur de connexion ?

PERL OBJET appel de classe

Langage Perl

Discussions similaires

Partager

Partager