°áÁ¤ :: ACL.¾×¼¼½º Á¦¾î ¸ñ·Ï °ü¸® ¹× ºôµå | |
Áö±Ý ´Ù¿î·Îµå |
°áÁ¤ :: ACL. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Benoit Beausejour
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bbeausej/
°áÁ¤ :: ACL. ű×
°áÁ¤ :: ACL. ¼³¸í
°ü¸® ¹× ¾×¼¼½º Á¦¾î ¸ñ·ÏÀ» ±¸Ãà ÀÇ»ç °áÁ¤ :: ACLÀº ÇÁ·Î±×·¡¸Ó ÀÌ¹Ì ±¸Çö ACL ·ÎÁ÷À» Á¦°øÇÏ´Â Perl ¸ðµâÀÌ´Ù. ½Ã°£ ¾²±â ¾×¼¼½º Á¦¾î ¸ñ·Ï ½ºÅ©¸³Æ®ÀÇ ´ëºÎºÐÀº ±æ°í Áö·çÇÏ´Ù. ¸ðµâ ¼¼Æ®´Â ¾×¼¼½º Á¦¾î ¸ñ·Ï µÚ¿¡ ¸ðµç Æí¸®ÇÑ ³í¸®¸¦ °¡Áö°í ÀÖÀ¸¸ç, ¿©±â¿¡ ½¬¿î ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÕ´Ï´Ù. ±×°ÍÀº ´ç½ÅÀÌ »ç¿ëÀÚ Á¤ÀÇ ACLÀÇ ±¸Ãà ¹× ACL data.SYNOPSIS¿¡ ´ëÇÑ »ç¿ë °áÁ¤ :: ACLÀ» ½ÇÇàÇÒ ¼öÀÖ´Â ¸ÞÄ¿´ÏÁòÀ» Á¦°ø ÇÒ ¼ö ÀÖ½À´Ï´Ù; ÀÇ»ç °áÁ¤ :: ACL :: ±ÔÄ¢À» »ç¿ë; »ç¿ë °áÁ¤ :: ACL :: »ó¼ö QW (: ±ÔÄ¢); ³» $ ACLÀÌ = ÀÇ»ç °áÁ¤ :: ACL-> »õ (); ³» $ ±ÔÄ¢ = ÀÇ»ç °áÁ¤ :: ACL :: ±ÔÄ¢ ({Çൿ => '¼ö', ÀÌÁ¦ => 0, Çʵå => {Çʵå 1 => 'field1val', FIELD2 => 'field2val', ...}}); ... $ Acl-> PushRule ($ ±ÔÄ¢); ³» $ RETURN_STATUS = $ Acl-> RunACL ({Çʵå 1 => 'testfield1value', FIELD2 => 'testfield2value', ...}); °æ¿ì ($ RETURN_STATUS == ACL_RULE_ALLOW) {Àμâ "testfield1value´Â testfield2value Çã¿ë \ n"; } $ Acl-> PushRule ($ ±ÔÄ¢); ÀÇ»ç °áÁ¤ :: ACL ±ÔÄ¢ ¸ñ·Ï¿¡ ±ÔÄ¢À» ´©¸£½Ê½Ã¿À. $ Acl-> PopRule (); ÀÇ»ç °áÁ¤ :: ACL ±ÔÄ¢ ¸ñ·Ï¿¡¼ ±ÔÄ¢À» ÆË. $ Acl-> ShiftRule (); ÀÇ»ç °áÁ¤ :: ACL ±ÔÄ¢ ¸ñ·Ï¿¡¼ ±ÔÄ¢À» À̵¿. $ Acl-> UnshiftRule ($ ±ÔÄ¢); ÀÇ»ç °áÁ¤ :: ACL ±ÔÄ¢ ¸ñ·Ï À§¿¡ ±ÔÄ¢À» Ãë¼Ò]. $ Acl-> ±ÔÄ¢ (); ÀÌ ±ÔÄ¢ ¸ñ·Ï¿¡¼ ±ÔÄ¢ °´Ã¼ÀÇ arrayref¸¦ µ¹·ÁÁÝ´Ï´Ù. $ Acl-> RunACL ({Àμö}); ¸ñ·ÏÀ» ½ÇÇà ¹Ýȯ ACL_RULE_ALLOW ¶Ç´Â ACL_RULE_DENY. $ ±ÔÄ¢ -> Çʵå (); ¸®ÅÏÀºÀÌ ±ÔÄ¢¿¡ ´ëÇÑ Çʵå¿Í °ªÀÇ ±âÁØÀÌÀÖ´Ù. ÀÌÁ¦ $ ±ÔÄ¢ -> (); ÀÌ ±ÔÄ¢ ¾î¶°Çß´ÂÁö ÀÌÁ¦ ¿©ºÎ¸¦ Àû¿ë ÇÒ ¼öÀÖ´Ù. 1 ¶Ç´Â 0 $ ±ÔÄ¢ -> µ¿ÀÛ (); ¹ÝȯÀÌ ±ÔÄ¢¿¡ ´ëÇÑ Á¶Ä¡ Áß Çϳª¸¦ Çã¿ë ¶Ç´Â °ÅºÎ. $ ±ÔÄ¢ -> ¿ì·Á ({}); ±ÔÄ¢Àº µ¥ÀÌÅÍ ¿ì·ÁµÇ¾î ÀÖ½À´Ï±î? ¹Ýȯ ACL_RULE_CONCERNED ¶Ç´Â ACL_RULE_UNCONCERNED $ ±ÔÄ¢ -> Á¦¾î ({}); µ¥ÀÌÅÍ¿¡ ´ëÇØ Å×½ºÆ® ±ÔÄ¢Àº ±ÔÄ¢ÀÇ »óŸ¦ ¹ÝȯÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
°áÁ¤ :: ACL. °ü·Ã ¼ÒÇÁÆ®¿þ¾î