Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠here Hash::Utilã¢ã¸ã¥ã¼ã«ã使ã£ã¦ããã·ã¥ã®ãã¼ã®è¿½å ãç¦æ¢ãããã¨ãã§ãã¾ãã use Hash::Util; # å¶é Hash::Util::lock_keys(%hash); # è§£é¤ Hash::Util::unlock_keys(%hash); Hash::Util::lock_keysã使ãã°ãããã·ã¥ã®ãã¼ãå¶éãããã¨ãã§ãã¾ããå¼æ°ã«ããã·ã¥ã®ã¿ãæå®ããå ´åã¯ãç¾å¨ã®ãã¼ä»¥å¤ã®ãã¼ã®è¿½å ãç¦æ¢ããã¾ãã %hash = (); # key1 㨠key2ã«å¶éã @restrict_keys = qw/key1 key2/; Hash::Util::lock_keys(%hash, @restrict_keys); # å¶éã解é¤ã Hash::Util::unlock_keys(%hash); 第2å¼æ°ã«ãã¼ãæå®ããã¨ã
{{#tags}}- {{label}}
{{/tags}}