#!/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
De l’art de programmer en PerlPerl pour l’impatientProgrammation en Perl, 3ème éditionPerl moderne: L’essentiel des pratiques actuellesLes expressions régulières par l’exempleLes meilleures bibliothèques pour Perl
----------------------------------------------------------------------------
