Discussion :

[Super_carotte]

Bonjour a tous,
Afin de poursuivre ma formation au langage PERl, (et au vu des projet pharaonique que mon maitre de stage veux me confier) je pense investir dans un bouquin sur le PERL.

Pour faire simple, il faudrai qu'apres avoir lu ce bouquin je puisse connaitre:
- les bases de PERL,
- la POO en PERL (et oui, il m'impose d'utiliser la POO dans mes scripts)
- et des notions sur PERL en réseaux (du genre savoir aire parler des applications entre elles sur un réseau.
- ainsi que quelques notions sur PERL et les BDD.

Bref, ça fait beaucoup, et je suis loin du niveau attendus!
J'ai donc fait des recherches et suis tombé la dessus:
http://www.e-nef.com/perl/listeperl.html

Voila donc ma question:
Que me conseillez vous de faire pour connaitre ces notions? Pensez vous qu'acheter des livres soit inévitable? lesquels acheter?

Merci,
Cordialement,
Benjamin

[djibril]

Si tu fais déjà un tour ici : http://perl.developpez.com/, tu as la FAQ, des tutoriels, des livres conseillés.

[Super_carotte]

En effet, merci.

[Super_carotte]

En attendant l'arrivée de mes livres, je suit le tuto: http://woufeil.developpez.com/tutori...o/?page=page_3
Et a un moment il donne un exemple:

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
package Personne;
use strict;
 
my $nb = 0; #variable de classe
 
sub constpers #constructeur
{
   my ($classe, $nom, $prenom, $age, @frere) = @_;#on passe les données au constructeur
   my $this = {"nom" => "Dupond",
		   "prenom" => "Jean",
		   "age" => 25,
		   "frere" => ["Simon", "Jacques"]};
		   "nom" => $nom,
		   "prenom" => $prenom,
		   "age" => $age
		   "frere" => ["Simon", "Jacques"]};
   $this->{"frere"} = \@frere if exists @frere;
   bless ($this,$classe); #lie la référence à la classe
   return $this; #on retourne la référence consacrée
}
 
sub parler #méthode d'instance
{
	my ($this, $parole) = @_;
	print "$this->{nom} a dit : \"$parole\"";
}
 
sub afficher #méthode de classe
{
	my $classe = @_;
	print "La classe $classe comporte $nb membres";
}
 
1; #Attention ! Obligatoire lors de la création d'un module !

Je voudrai donc essyaer de l'utiliser pour le manipuler et voir comment fonctionne l'objet.
Toutefois, quand je le copie colle dans eclipse, il me trouve d'emblée des erreurs.
Je pense qu'il manque une virgule a la fin de:

Code :

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

 "age" => $age

Mais apres, je ne vois pas ou est l'erreure sur la ligne :

Code :

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

 $this->{"frere"} = \@frere if exists @frere;

Pourtant, eclipse me dit:

Exit argument is not a HASH or ARRAY element or subroutine, global symbol @frere etc...

Pourriez vous m'indiquer la source du problème?

Merci,
Cordialement,
Benjamin

[djibril]

remplace $

Code :

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

this->{"frere"} = \@frere if exists @frere;

par

Code :

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

 $this->{"frere"} = \@frere if @frere;

et pour l'autre cas, il manque une virgule.

Je corrigerais l'article ce soir.

Merci

[Super_carotte]

Ah, et il me semble qu'il y a une dernière petite erreur:
Il manque un "{" dans cette ligne:
"frere" => ["Simon", "Jacques"]};

(revis que l'aide aille dans l'autre sens cette fois ci )

La version corrigée des 3 erreurs:

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
sub constpers #constructeur
{
   my ($classe, $nom, $prenom, $age, @frere) = @_;#on passe les données au constructeur
   my $this = {"nom" => "Dupond",
		   "prenom" => "Jean",
		   "age" => 25,
		   "frere" => ["Simon", "Jacques"]};
		   "nom" => $nom,
		   "prenom" => $prenom,
		   "age" => $age,
		   "frere" => {["Simon", "Jacques"]};
    $this->{"frere"} = \@frere if @frere;
   bless ($this,$classe); #lie la référence à la classe
   return $this; #on retourne la référence consacrée
}