Différences

Ci-dessous, les différences entre deux révisions de la page.

--- perl:references [2009/03/15 00:49] – édition externe 127.0.0.1
+++ perl:references [2010/11/27 11:31] – root
@@ Ligne 105: / Ligne 105: @@
   }
+**Références à des références :**
+<code>
+my $maison = "maison particulière préfabriquée";
+my @voitures = ("Citroën","Peugeot","Renault","Porsche");
+my %famille = (femme => "Fanny", fille => "Anne", fils => "Florian");
+my %pointeur_hash = (
+     pointeur_maison => \$maison,
+     pointeur_voiture => \@voitures,
+     pointeur_famille => \%famille
+);
+my $pointeur = \%pointeur_hash;
+print "(1.) $pointeur->{pointeur_maison}\n";
+print "(2.) ${$pointeur->{pointeur_maison}}\n";
+print "(3.) $pointeur->{pointeur_voiture}\n";
+print "(4.) @{$pointeur->{pointeur_voiture}}\n";
+print "(5.) $pointeur->{pointeur_voiture}->[2]\n";
+print "(6.) $pointeur->{pointeur_voiture}[3]\n";
+print "(7.) $pointeur->{pointeur_famille}\n";
+print "(8.)", %{$pointeur->{pointeur_famille}},"\n";
+print "(9.) $pointeur->{pointeur_famille}->{femme}\n";
+print "(10.) $pointeur->{pointeur_famille}{fils}\n"
+</code>
+Affichera :
+<code>
+(1.) SCALAR(0x8154558)<br>
+(2.) maison particulière préfabriquée<br>
+(3.) ARRAY(0x8154588)<br>
+(4.) Citr&euml;n Peugeot Renault Porsche<br>
+(5.) Renault<br>
+(6.) Porsche<br>
+(7.) HASH(0x8154a44)<br>
+(8.) filleAnnefilsFlorianfemmeFanny<br>
+(9.) Fanny<br>
+(10.) Florian<br>
+</code>