| AFS :: Utils. AFS :: UTILS´Â AFS ¸ðµâ ¹øµé¿¡ ´ëÇÑ °øÀ¯ À¯Æ¿¸®Æ¼ ±â´ÉÀÌÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
AFS :: Utils. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Roland Schemers
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~nog/AFS-2.4.0/pod/v2/afsperlutils.pod
AFS :: Utils. ű×
AFS :: Utils. ¼³¸í
AFS :: Istils´Â AFS ¸ðµâ ¹øµé¿¡ ´ëÇÑ °øÀ¯ À¯Æ¿¸®Æ¼ ±â´ÉÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. AFS :: Istils´Â AFS ¸ðµâ Bundle.Synopsis¿¡ ´ëÇÑ °øÀ¯ À¯Æ¿¸®Æ¼ ±â´ÉÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Synopsis AFS :: Utils QW (Xsversion GET_SERVER_VERSION GET_SYSLIB_VERSION SETPAG SYSNAME UNLOG); MY $ OK = setPag (); "Return Code = $ OKN"À» ÀμâÇϽʽÿÀ. 'xs-version =', xsversion, "n"À» ÀμâÇϽʽÿÀ; 'syslib version =', get_syslib_version, "n"À» ÀμâÇϽʽÿÀ. '¼¹ö ¹öÀü =', get_server_version ( 'pts', 'ibm-1'), "n"À» ÀμâÇϽʽÿÀ. ³» $ sysname = sysname; unlog; Âü°í : ´ÙÀ½ ÁÙÀº '¹öÀü 1'½ºÅ¸ÀÏÀÔ´Ï´Ù. ¸ðµç À̸§Àº ±âº»ÀûÀ¸·Î ³»º¸³»Áý´Ï´Ù. ÀÌ ½ºÅ¸ÀÏÀº ´õ ÀÌ»ó »ç¿ëµÇÁö ¾Ê½À´Ï´Ù !!! AFS¸¦ »ç¿ëÇϽʽÿÀ. # ¸ðµç AFS À̸§ °¡Á® ¿À±â AFS @AFS :: MISC; # import misc namesthis ¸ðµâÀº AFS ¸ðµâ ¹øµé¿¡ ´ëÇØ ¿©·¯ À¯Æ¿¸®Æ¼ ÇÔ¼ö¸¦ Á¦°øÇÕ´Ï´Ù. ±âº» AFS ½Ã½ºÅÛ ¶óÀ̺귯¸®ÀÇ ¹öÀü ¹øÈ£, XS ¸ðµâ ¹× AFS ¼¹ö ÇÁ·Î¼¼½º¿¡ ´ëÇؼ´Â ¹öÀü ¹øÈ£¸¦ °Ë»ö ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¶ÇÇÑ »õ PAG¸¦ ÀÛ¼ºÇϰųª CPU / ¿î¿µ üÁ¦ À¯ÇüÀ» °Ë»öÇÏ°í ¼³Á¤ÇÏ´Â °Í°ú °°Àº AFS ¸í·É ½ºÀ§Æ®¿¡ ¼ÓÇÏÁö ¾Ê´Â ¸î °¡Áö ¸í·ÉÀÌ µé¾î ÀÖ½À´Ï´Ù. ÇÊ¿äÇÑ ¸ðµç ÇÔ¼ö´Â ÅëÈ ÆÐÅ°Áö·Î ³»º¸³»·Á¸é »ç¿ë ¼³¸í¼¿¡ ÀÇÇØ ¸í½Ã ÀûÀ¸·Î ³ª¿µÇ¾î¾ßÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
AFS :: Utils. °ü·Ã ¼ÒÇÁÆ®¿þ¾î