#!/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]
A Voir sur le même Sujet
-
Perl: Lire les emails d’un serveur POP3
{filelink=13118} #!/usr/local/bin/perl ############## Programme de lecture d’email ############## # Lire les email d’un serveur Mail # use strict; my $mail_server=”mail.serveur.com”; # Adresse du serveur mail …
-
Exemple d’utilisation d’une classe comme une Structure
{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 …
-
Création automatique des utilisateurs sous Windows
{filelink=13537} #!/usr/bin/perl -w use Win32::NetAdmin; $host = ”; # Domaine $username = “Sakoba”; # Utilisateur $password = “******”; # Mot de passe $password_expiration = 0; …
-
Exemple complet d’utilisation d’une classe en Perl
{filelink=14327} #!/usr/local/bin/perl -w package Personne ; ################# Classe ############## # En perl, une classe est un package # contenant des fonctions et des variable # …
-
Perl: Programme d’envoi d’email
{filelink=13117} #!/usr/bin/perl -w use Mail::Mailer; my $from_address=”moi@email.com”; # Destinateur my $to_address= “lui@email.com”; # Destinataire my $subject=”Confirmation d’inscription”; # sujet de l’email my $msg=”Merci de vous …
-
Télécharger un fichier à l’aide d’une connexion FTP
{filelink=13113} use Net::FTP; $username = “test_username”; # Nom d’utilisateur $password = “test_mot_de_passe”; # Mot de passe $remotefile = “index.html”; # Fichier à téléchargé $ftp = …
-
Envoyer et récevoir des fichiers d’un serveur FTP
{filelink=13116} #!/usr/bin/perl -w use Net::FTP; $username = “test_username”; # Nom d’utilisateur $password = “test_mot_de_passe”; # Mot de passe $remotefile = “index.html”; # Fichier à téléchargé …
-
Les fonctions ‘keys’ et ‘values’ retournent respectivement les clés et les valeurs d’un ‘Hash’
{filelink=14606} #!/usr/bin/perl my %hash = (“a” => 1, “b” => 2, “c” => 3); my @cles = keys %hash; # Les clés du tableau associatif …
-
Perl: Ajouter des éléments dans un ‘Hash’
{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 # …
-
Tableau associatif: Supprimer une entrée de Hash
{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 …
-
Si la fonction ‘keys’ d’un hash est utilisée dans un contexte scalaire elle retourne le nombre de clé du hash
{filelink=14607} #!/usr/local/bin/perl my %hash = (“a” => 1, “b” => 2, “c” => 3); # retourner le nombre de clé d’un hash my $nombre_cle= keys …
-
Excécution d’une requête de sélection à l’aide de DBI
{filelink=14652} #!/usr/bin/perl use DBI; $dbh = DBI->connect(‘dbi:mysql:database’, ‘username’, ‘password’, { RaiseError => 1, AutoCommit => 1}); #Préparer une requête Select $sth = $dbh->prepare(“Select Nom, Prenom …
-
Exemple de définition et d’utilisation d’un ‘Hash’
{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 # …
-
Base de Données: Exemple de gestion des exceptions
{filelink=14653} #!/usr/bin/perl use DBI; $dbh = DBI->connect(‘dbi:mysql:database’, ‘username’, ‘password’, { RaiseError => 1 , AutoCommit => 1}); eval { $dbh->do(“Instruction d’insertion”); $sth = $dbh->prepare(“Instruction de …
-
Exemple d’utilisation d’une connexion FTP
{filelink=13114} #!/usr/bin/perl use warnings; use strict; use Net::FTP; my $ftp = Net::FTP->new(“ftp.monserveurFTP.com”, Timeout => 60) or die “Connexion impossible: $@”; # En cas d’erreur, prévenir …