passwd :: Unix.

/ etc / passwd, / esc / shadow ¹× / etc / group Çü½Ä ÆÄÀÏ¿¡ ´ëÇÑ Ãß»ó ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÕ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

passwd :: Unix. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Strzelecki Lukasz
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~strzelec/

passwd :: Unix. ű×


passwd :: Unix. ¼³¸í

/ etc / passwd, / esc / shadow ¹× / etc / group Çü½Ä ÆÄÀÏ¿¡ ´ëÇÑ Ãß»ó ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÕ´Ï´Ù. passwd :: Unix´Â / etc / passwd, / etc / shadow ¹× / etc / group Çü½Ä ÆÄÀÏ¿¡ ´ëÇÑ Ãß»ó ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. UNIX :: PasswdFile ¸ðµâ (½ã Solaris 10 ¶Ç´Â Linux¿Í °°Àº Çö´ë ½Ã½ºÅÛ¿¡¼­ ÇÊ¿äÇÑ °Í)À» UNIX :: passwdfile ¸ðµâ¿¡ ÀÇÇØ ¿µ°¨À» ¾ò¾ú½À´Ï´Ù .Synopsis »ç¿ë Passwd :: Unix; ³» $ pu = passwd :: Unix-> new (); MY $ ERR = $ PU-> »ç¿ëÀÚ ( "¿¹", $ PU-> encpass ( "my_secret"), $ PU-> MAXUID + 1, 10, "³» »ç¿ëÀÚ", "/ Ȩ / ¿¹", "/ bin / bash "); $ PU-> PASSWD ( "¿¹Á¦", $ PU-> encpass ( "´º½º ·ºÆ®")); foreach my $ user ($ pu-> »ç¿ëÀÚ) {print "username : $ user \ nfull À̸§ :", $ pu-> gecos ($ »ç¿ëÀÚ), "\ n \ n"; } My $ UID = $ PU-> UID ( '¿¹'); $ pu-> del ( "¿¹"); # ¶Ç´Â passwd :: UNIX QW (check_sanity reset passwd_file reset encpass passwd_file shadow_file group_file ¹é¾÷ warnings del del_user uid gid gecos Ȩ ½© passwd gecos Ȩ ½© passwd rename Ȩ ½© passwd rename maxgid maxuid exists_user _froup »ç¿ëÀÚ users_From_shadow del_group group groups groups_from_gshadow); $ $ ERR = »ç¿ëÀÚ ( "¿¹", encpass ( "my_secret"), $ PU-> MAXUID + 1, 10, "³» »ç¿ëÀÚ", "/ Ȩ / ¿¹", "/ bin / bash"; passwd ( "¿¹", encpass ( "newsecret")); Foreach My $ »ç¿ëÀÚ (»ç¿ëÀÚ ()) {Àμâ "»ç¿ëÀÚ À̸§ : $ user \ nfull À̸§ :", gecos ($ »ç¿ëÀÚ), "\ n \ n"; } My $ UID = UID ( '¿¹'); del ( "¿¹"); ¿ä±¸ »çÇ× : ¡¤ Perl.


passwd :: Unix. °ü·Ã ¼ÒÇÁÆ®¿þ¾î