| SYS :: UTMP. °´Ã¼ (ISH) UTMP ÆÄÀÏ¿¡ ´ëÇÑ ÀÎÅÍÆäÀ̽º |
Áö±Ý ´Ù¿î·Îµå |
SYS :: UTMP. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jonathan Stowe
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jstowe/
SYS :: UTMP. ű×
SYS :: UTMP. ¼³¸í
°´Ã¼ (ISH) UTMP ÆÄÀÏ¿¡ ´ëÇÑ ÀÎÅÍÆäÀ̽º SYS :: UTMP´Â UNIX »ç¿ëÀÚ °èÁ¤ ÆÄÀÏ (¶§·Î´Â / etc / utmp ¶Ç´Â / var / run / utmp)¿¡ ¸·¿¬ÇÏ°Ô °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½Ã½ºÅÛ C ¶óÀ̺귯¸®¿¡¼ getutent () ÇÔ¼ö¸¦ »ç¿ëÇÏ´Â °ÍÀÌ ´õ ÁÁÀ» °ÍÀÔ´Ï´Ù. ´©¶ô µÈ °æ¿ì ÀÚü¸¦ Á¦°øÇÏ·Á°í ½ÃµµÇÕ´Ï´Ù. ã°íÀÖ´Â ¸ðµâÀÌ ¾Æ´Ò ¼öµµ ÀÖ½À´Ï´Ù - »ç¿ëÀÚ :: UTMP°¡ Á¦°øÇÏ´Â »ç¿ëÀÚ :: UTMP°¡ ÀÖ½À´Ï´Ù. ´Ù¸¥ ÀýÂ÷ Àû ÀÎÅÍÆäÀ̽º¿Í ´ç½ÅÀÇ ¸ñÀûÀ» À§ÇØ ´õ ¿ÏÀüÇØÁú ¼ö ÀÖ½À´Ï´Ù .Synopsis »ç¿ë Sys :: UTMP; MY $ UTMP = SYS :: UTMP-> NEW (); while (my $ utent = $ UTMP-> getuteent ()) {($ UTENT-> user_process) {print $ utent-> ut_user " ";}} $ utmp-> endutent; ¿ä±¸ »çÇ× : ¡¤ Perl.
SYS :: UTMP. °ü·Ã ¼ÒÇÁÆ®¿þ¾î