{filelink=14709}

 #!/usr/bin/perl -w
#################### Hash ##################"
# Rendre une entrée ou un élément d'entrée
# en mode lecture seule.
# Empêcher l'utilisateur de modifier les entrées du Hash

use Hash::Util qw{ lock_keys  unlock_keys
                   lock_value unlock_value
                   lock_hash  unlock_hash  };

# définition d'un Hash
%mon_hash = ( "Janvier"  => 31,
          	  "Février"  => 28,
              "Mars" => 31,
              "Avril"  => 30,
              "Mai"  => undef );

lock_keys(%mon_hash);                		 # Verrouiller les clés
lock_keys(%mon_hash, keys %mon_hash);        # Verrouiller les clés listés
lock_value(%mon_hash,"Janvier");             # Verrouiller la valeur associée

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]