Archive for the ‘Hash’ Category

Perl: Créer et manipuler un tableau de Hash


{filelink=15267#}

#!/usr/local/bin/perl
 
@myArraysHash = (
    {
       username  => "sakoba",
       email     => "sakoba@linuxgrouper.com",
       privilege      => "00777",
    },
    {
       username => "Jean Bap",
       email    => "jeanb@linuxgrouper.com",
       privilege     => "00777",
    },
 
    {
       username => "Steave",
       email    => "steave@linuxgrouper.com",
       privilege     => "777777",
    },
  );
for $href ( @myArraysHash ) {
    print "{ ";
    for $role ( keys %$href ) {
         print "$role=$href->{$role} ";
    }
    print "}\n";
}

Livres sur ce sujet


[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Tableau associatif: Afficher chaque élément de ‘Hash’


{filelink=14714}

 
#!/usr/bin/perl -w
 
my %mes_villes = ("Allemagne" => "Berlin",
    			  "Angleterre" => "Londre",
    			  "France" => 'Paris');
 
# Afficher chaque élément de Hash
while ( ($key,$value) = each(%mes_villes) )
{
    print "Pays: $key 	 Capitale: $valuen";
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Perl: comment fusionner deux ‘Hash’


{filelink=14713}

#!/usr/local/bin/perl
 
# Hash2
my %mes_villes = ("Allemagne" => "Berlin",
    			  "Angleterre" => "Londre",
    			  "France" => 'Paris');
 
# Hash2
%mon_hash = ( "Janvier"  => 31,
          	  "Février"  => 28,
              "Mars" => 31,
              "Avril"  => 30,
              "Mai"  => undef );
 
 # Fusionner les deux Hash
 %hash_fusion=(%mon_hash,%mes_villes) ;
 
     while ( ($key, $value) = each %hash_fusion )
    {
       print "Clé: $key Valeur: $valuen";
    }

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Trier un ‘Hash’ selon la taille des valeurs associée aux clés


{filelink=14716}

 
#!/usr/bin/perl -w
 
my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',
    			  "Angleterre" => "Londre");
 
 # Trier le Hash   selon la taille
foreach $elem (sort {  length($mes_villes{$a}) <=> length($mes_villes{$b}) }
                keys %mes_villes)
{
    print "$mes_villes{$elem} est la capitale de $elem.n";
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Parcourir un ‘Hash’ à l’aide des boucles ‘while’ et ‘each’


{filelink=14718}

#!/usr/bin/perl -w
my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',
    			  "Angleterre" => "Londre");
 
# Afficher les éléments
while(($pays, $capitale) = each(%mes_villes))
{
    print "$pays --> $capitale.n";
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Perl: Obtenir la liste des clés d’un Hash

 list, list
{filelink=14708}

#!/usr/bin/perl -w
 
# définition d'un Hash
%mon_hash = ( "Janvier"  => 31,
          	  "Février"  => 28,
              "Mars" => 31,
              "Avril"  => 30,
              "Mai"  => undef );
 
 # Obtenir la liste des clé du Hash
@liste_cle = keys( %mon_hash );
 
# Afficher les clés du Hash
foreach $mois (@liste_cle)
{
    print "$moisn";
}
 
# Une autre manière d'afficher les clés du Hash
foreach my $mois (keys %mon_hash)
{
    print "$moisn";
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Trier les entrées d’un Hash avant l’affichage


{filelink=14711}

#!/usr/local/bin/perl
 
my %mes_villes = ("Allemagne" => "Berlin",
    			  "Angleterre" => "Londre",
    			  "France" => 'Paris');
 
# Imposer l'ordre d'affichage des entrée
foreach $entree (sort keys %mes_villes)    #Trier les clés du tableau associatif
{
    print "$entee a pour capitale $mes_villes{$entree}.n";
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Trier un ‘Hash’ selon les valeurs associée aux clés


{filelink=14715}

#!/usr/bin/perl -w
 
my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',
    			  "Angleterre" => "Londre");
 
 # Trier le Hash selon les valeurs
foreach $elem (sort { $mes_villes{$a} cmp $mes_villes{$b} }
                keys %mes_villes)
{
    print "$mes_villes{$elem} est la capitale de $elem.n";
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Calculer la fréquence de chaque valeur dans le Hash

 calcul
{filelink=14717}

#!/usr/bin/perl -w
my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',
    			  "Angleterre" => "Londre");
%count = ( );
foreach $elem (%mes_villes)
 {
    $count{$elem}++;
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Parcourir les éléments d’un Hash avec le mot clé ‘each’


{filelink=14710}

   #!/usr/local/bin/perl
 
    my %mes_villes = ("Allemagne" => "Berlin",
    			  "Angleterre" => "Londre",
    			  "France" => 'Paris');
 
    # Parcourir simultanement les clés et les valeur de Hash
    while ( ($key, $value) = each %mes_villes )
    {
       print "Clé: $key Valeur: $valuen";
    }

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]