| AFS :: PTS. AFS :: PTS´Â AFS º¸È£ ¼¹ö¿Í Åë½ÅÇÏ´Â PERL Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
AFS :: PTS. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Norbert E. Gruener
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~nog/AFS-2.4.0/pod/v2/afsperlkas.pod
AFS :: PTS. ű×
AFS :: PTS. ¼³¸í
AFS :: PTS´Â AFS º¸È£ ¼¹ö¿Í Åë½ÅÇÏ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù. AFS :: PTS´Â AFS º¸È£ ¼¹ö¿Í Åë½ÅÇÏ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù .Snopsis AFS :: PTS; MY $ NUM_FLG = AFS :: PTS-> convert_numeric_names; ³» $ BITS = AFS :: PTS-> ASCII2PTSACCESS ( "s ----"); MY $ Flags = AFS :: PTS-> PTSACCESS2ASCII ($ ºñÆ®); $ PTS = AFS :: PTS-> »õ·Î¿î; ³» $ ID = $ PTS-> CreateUser ( 'Guest'); ³» $ entry = $ PTS-> ListEntry ( 'Guest'); ³» $ Å° (Å° % $ Ç׸ñ Á¤·Ä) {printf ( "s => % sn", $ Å°, $$ Ç׸ñ {$ Å°}); } $ ok = $ pts-> »èÁ¦ ( '°Ô½ºÆ®'); Undef $ PTS; # ¼¹ö ¿¬°á Æı« $ pts = afs :: pts-> new; $ entry = $ pts-> ´ýÇÁ (67136, 1, 1); ³» $ Å° (Å° % $ Ç׸ñ Á¤·Ä) {printf ( "s => % sn", $ Å°, $$ Ç׸ñ {$ Å°}); } ³ªÀÇ $ over = 1; my @names = $ pts-> getcps ( 'nog', 1, $ ÀÌ»ó); Àμâ "ÀÌ»ó = $ ÀÌ»ó"; "Nogn ¿ë CPS"¸¦ ÀμâÇϽʽÿÀ. Foreach My $ MEM (@names Á¤·Ä) {$ memn "; } AFS :: PTS-> convert_numeric_names (1); My @Ids = (28053, 1, 105, 32000, 32766); @names = $ pts-> pr_idtoname (@ids); ³» $ name (@names) {Àμâ "À̸§ = $ namen"; } "º¯È¯ (nog) :", $ pts-> id ( 'nog'), "n"; Âü°í : ´ÙÀ½ ÁÙÀº '¹öÀü 1'½ºÅ¸ÀÏÀÔ´Ï´Ù. ¸ðµç À̸§Àº ±âº»ÀûÀ¸·Î ³»º¸³»Áý´Ï´Ù. ÀÌ ½ºÅ¸ÀÏÀº ´õ ÀÌ»ó »ç¿ëµÇÁö ¾Ê½À´Ï´Ù !!! AFS¸¦ »ç¿ëÇϽʽÿÀ. # ¸ðµç AFS À̸§ °¡Á® ¿À±â AFS @AFS :: PTS; # PTS À̸§ ¿ä±¸ »çÇ× ¸¸ °¡Á® ¿À½Ê½Ã¿À : ¡¤ Perl.
AFS :: PTS. °ü·Ã ¼ÒÇÁÆ®¿þ¾î