| »ç¿ëÀÚ :: ĪÁú »ç¿ëÀÚ :: ¸àÆ®´Â PERLÀÇ ³»Àå GETGR * () ÇÔ¼öÀÇ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
»ç¿ëÀÚ :: ĪÁú ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Tom Christiansen
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~nwclark/perl-5.8.8/pod/perltoot.pod
»ç¿ëÀÚ :: ĪÁú ű×
»ç¿ëÀÚ :: ĪÁú ¼³¸í
»ç¿ëÀÚ :: ¸àÆ®´Â PerlÀÇ ³»Àå Getgr * () ÇÔ¼öÀÇ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. »ç¿ëÀÚ :: ¸àÆ®´Â PerlÀÇ ³»Àå getgr * () ÇÔ¼öÀÇ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. »ç¿ë½Ã »ç¿ë »ç¿ëÀÚ :: ĪºÀ; $ gr = getGRGID (0) ¶Ç´Â "±×·ì 0 ¾øÀ½"; if ($ gr-> eq 'ÈÙ'@ {$ gr-> ¸â¹ö}> 1) {ÀÎ¼â µÊ "´Ù¸¥ ±¸¼º¿ø°ú ÇÔ²² 0 À̸§ ÈÙ"; } User :: ¸àÆ® QW (: Çʵå)¸¦ »ç¿ëÇϽʽÿÀ. getGRGID (0) ¶Ç´Â Á×À» "±×·ì 0 ¾øÀ½"; if ($ gr_name eq 'ÈÙ'@gr_members> 1) {ÀÎ¼â µÊ "´Ù¸¥ ±¸¼º¿ø°ú ÇÔ²² 0 À̸§ À̸§ ÈÙ"; } $ gr = getgr ($ who);ÀÌ ¸ðµâÀÇ ±âº» ³»º¸³»±â´Â ÇÙ½É getGrent (), getgruid () ¹× getgrnam () ÇÔ¼ö¸¦ ´ëüÇÏ¿© "»ç¿ëÀÚ :: ºôÆ®"°´Ã¼¸¦ µ¹·ÁÁÖ´Â ¹öÀüÀ¸·Î ¹Ù²ß´Ï´Ù. ÀÌ °´Ã¼´Â GRP.HÀÇ CÀÇ PasswD ±¸Á¶¿¡¼ À¯»çÇÏ°Ô ¸í¸í µÈ ±¸Á¶ Çʵå À̸§À» ¹ÝȯÇÏ´Â ¸Þ¼µå ¸¦°¡Áý´Ï´Ù. Áï, À̸§, passwd, gid ¹× ¸â¹ö (MEM°¡ ¾Æ´Ô). óÀ½ ¼¼ ¹øÀÇ ¸®ÅÏ ½ºÄ®¶ó, ¸¶Áö¸· ¹è¿ ÂüÁ¶°¡ ÀÖ½À´Ï´Ù. ÇÊµå °¡Á® ¿À±â ű׸¦ »ç¿ëÇÏ¿© ÀÏ¹Ý º¯¼ö·Î ¸ðµç ±¸Á¶ Çʵ带 Á÷Á¢ °¡Á®¿Ã ¼öµµ ÀÖ½À´Ï´Ù. (ÀÌ´Â ¿©ÀüÈ÷ ÇÙ½É ±â´ÉÀ» ¹«½ÃÇÕ´Ï´Ù.)ÀÌ Çʵ忡 ¾ÕÀÇ GR_¿Í ÇÔ²² À̸§ÀÌ ÁöÁ¤µÈ º¯¼ö·Î ¾×¼¼½ºÇϽʽÿÀ. µû¶ó¼ $ group_obj-> gid ()´Â Çʵ带 °¡Á® ¿À´Â °æ¿ì $ gr_gid¿¡ ÇØ´çÇÕ´Ï´Ù. ¹è¿ ÂüÁ¶´Â ÀÏ¹Ý ¹è¿ º¯¼ö·Î »ç¿ëÇÒ ¼ö ÀÖÀ¸¹Ç·Î @ {$ GROUP_OBJ-> ¸â¹ö ()}Àº @ gr_members.the getPW () ÇÔ¼ö´Â getPWUID () ¹× ³ª¸ÓÁö¸¦ ¼ýÀÚ Àμö¸¦ Àü´ÞÇÏ´Â °£´ÜÇÑ ÇÁ·±Æ® ¿£µåÀÔ´Ï´Ù. getPwnam (). ÄÚ¾î ÀçÁ¤ÀÇ ¾øÀÌÀÌ ±â´É¿¡ ¾×¼¼½ºÇÏ·Á¸é ºó °¡Á® ¿À±â ¸ñ·Ï »ç¿ëÀ» Àü´Þ ÇÑ ´ÙÀ½ Àüü ±ÔÁ¤ À̸§À¸·Î ÇÔ¼ö ÇÔ¼ö¿¡ ¾×¼¼½ºÇÕ´Ï´Ù. ¹Ý¸é¿¡ ³»ÀåÀº Core :: Pseudo-Package¸¦ ÅëÇØ °è¼Ó »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
»ç¿ëÀÚ :: ĪÁú °ü·Ã ¼ÒÇÁÆ®¿þ¾î