Posts Tagged ‘tableau’

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]

Perl: Créer un slice à deux dimensions


{filelink=15267#}

@mySlice = ();
for ($startx = $x = 4; $x <= 8; $x++) {
    for ($starty = $y = 7; $y <= 12; $y++) {
        $mySlice[$x - $startx][$y - $starty] = $AoA[$x][$y];
    }
}

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]

Spécifier l’index d’insertion d’élément dans un tableau


{filelink=14089}

#!/usr/bin/perl
 
# Définition d'un tableau de 3 éléments
@tab = ("Janvier", "Mars", "Mai");
 
#Afficher le tableau
print "@tabn";
 
#Modifier l'index 1 du tableau
$tab[1]="Février";
 
#Afficher le tableau
print "@tabn";
 
#Afficher le troisième élément du tableau
print "$tab[2]n";
 
#Insérer un élément dans le tableau
$tab[3]="Juin";
 
#Afficher l'élément inséré
print "$tab[3]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: Supprimer une entrée de Hash

 collection
{filelink=14706}

#!/usr/bin/perl -w
#################### Hash ##################"
# Le Hash est un tableau associatif de type collection
# chaque entrée est composée d'une clé et d'une valeur
# associée.
# Pour référencer(déclarer) un hash on utilise l'opérateur
# de pourcentage '%' ex: %mon_hash.
# pour référencer un élément de Hash on utilise le symbole dollar '$'.
 
use strict;
 
# définition d'un Hash
my %mon_hash = ( "janvier"  => 31,
          	  "Février"  => 28,
              "Mars" => 31,
              "Avril"  => 30,
              "Mai"  => 31 );
 
 # Afficher les élément du Hash
foreach my $mois (keys %mon_hash)
{
    print "$mois=>$mon_hash{$mois}n";
}
#Supprimer l'entrée qui a la clé 'Mars'
delete $mon_hash{"Mars"};
print "Cette entrée existe? $mon_hash{'Mars'}"; #Affiche une erreur

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]

Exemple de définition et d’utilisation d’un ‘Hash’

 list, list, collection
{filelink=14704}

#################### Hash ##################"
# Le Hash est un tableau associatif de type collection
# chaque entrée est composée d'une clé et d'une valeur
# associée.
# Pour référencer(déclarer) un hash on utilise l'opérateur
# de pourcentage '%' ex: %mon_hash.
# pour référencer un élément de Hash on utilise le symbole dollar '$'.
 
# 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 );
 
# Parcourir la liste des clés et afficher toutes les valeurs associées
for ( $i = 0; $i < @liste_cle; ++$i )
{
   print "$liste_cle[ $i ] => $mon_hash{ $liste_cle[ $i ] }n";
}
 
#Supprimer un élément dans le Hash
delete( $mon_hash{ 'Mai' } );

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: Ajouter des éléments dans un ‘Hash’

 collection
{filelink=14705}

#################### Hash ##################"
# Le Hash est un tableau associatif de type collection
# chaque entrée est composée d'une clé et d'une valeur
# associée.
# Pour référencer(déclarer) un hash on utilise l'opérateur
# de pourcentage '%' ex: %mon_hash.
# pour référencer un élément de Hash on utilise le symbole dollar '$'.
 
# définition d'un Hash
%mon_hash = ( "janvier"  => 31,
          	  "Février"  => 28,
              "Mars" => 31,
              "Avril"  => 30,
              "Mai"  => undef );
 
# Afficher les élément du Hash
foreach $mois (keys %mon_hash)
{
    print "$mois=>$mon_hash{$mois}n";
}
 
# Ajout d'un nouvel élément
$mon_hash{"juin"} = 30;
 
print "Après l'ajout d'un élémentn";
# Afficher les élément du Hash
foreach $mois (keys %mon_hash)
{
    print "$mois=>$mon_hash{$mois}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]

Ajout des éléments dans une liste à l’aide de l’opérateur ‘push’

 list, list
{filelink=14098}

#!/usr/bin/perl
 
@tab  = 5..9;
 
#Ajouter 0 à la fin de la liste
push(@tab, 0);  # @tab contient maintenant (5, 6, 7, 8, 9, 0)
print "1:# @tabn";
 
#Ajouter 11 à la fin de la liste
push @tab, 11;   # @tab contient maintenant (5, 6, 7, 8, 9, 0, 11)
print "2:# @tabn";
 
#Ajouter 5 éléments à la fin de la liste
push @tab, 15..20;   # @tab contient 5 élément supplémentaires
print "3:# @tabn";
 
@lst_w = qw/ -1 14 2 1 20 /;
 
#Ajouter la liste de mot dans le tableau
push @tab, @lst_w;
print "4:# @tabn";

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]

Sélection Aléatoire des valeurs dans une liste ou un tableau

 list, list
{filelink=13974}

#!/usr/bin/perl
 
use warnings;
 
@tab = qw( janvier février mars avril mai juin );
print "@tabn";
 
#Sélectionner aléatoirement une valeur dans le tableau
$alt_val = $tab[ rand @tab ];
 
#Afficher  la valeur sélectionnée
print $alt_val;

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]

Exemple d’utilisation d’une classe comme une Structure

classe, email
{filelink=14328}

#!/usr/local/bin/perl -w
 
use Class::Struct;          # Charger le module des structures
 
struct Personne => {        # Définir une structure nommée 'Personne'
 
    # définir les attributs de la structure
    nom   => '$',          # donnée scalaire
    profession    => '$',  # donnée scalaire
    email    => '$',       # donnée scalaire
    hobby  => '@',         # tableau
};
 
my $pers = Personne->new( );      # Création/Allocation de la structure
 
$pers->nom("Karl max");       # Modfier l'attribut 'nom'
$pers->profession("devel");   # Modfier l'attribut 'profession'
$pers->email("test@email.com");  # Modfier l'attribut 'email'
$pers->hobby( ["sport", "lecture", "cié" ] ); # Modfier l'attribut 'hobby'
 
# Afficher les valeurs des attributs
printf "Nom:%sn profession: %sn email:%sn activité extra:%s.n",
    $pers->nom, $pers->profession, $pers->email, ,$pers->hobby(0);

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]