| AFS :: pts. AFS :: PTS ist eine Perl-Klasse, um mit dem AFS-Protection-Server zu kommunizieren. |
Jetzt downloaden |
AFS :: pts. Ranking & Zusammenfassung
- Lizenz:
- Perl Artistic License
- Name des Herausgebers:
- Norbert E. Gruener
- Website des Verlags:
- http://search.cpan.org/~nog/AFS-2.4.0/pod/v2/afsperlkas.pod
AFS :: pts. Stichworte
AFS :: pts. Beschreibung
AFS :: pts ist eine Perl-Klasse, um mit dem AFS-Protection-Server zu kommunizieren. AFS :: PTS ist eine Perl-Klasse, um mit dem AFS Protection Server zu kommunizieren.Synopsis verwenden AFS :: PTS; Meine $ num_flg = AFS :: pts-> convert_numeric_names; Meine $ Bits = AFS :: PTS-> ASCII2PTSACCESS ("S ----"); Meine $ Flags = AFS :: pts-> ptsaccess2ascii ($ Bits); Meine $ PTS = AFS :: PTS-> NEU; meine $ ID = $ pts-> creatinguser ('guest'); Mein $ Eintrag = $ PTS-> Listentry ('Gast'); FOREACH MEIN $ KEY (SORT-KEYS% $ Eintrag) {Printf ("S =>% SN", $ -Taste, $$-Eintrag {$ -Taste}); } $ ok = $ pts-> löschen ('Gast'); undef $ pts; # Zerstöre der Serveranschluss $ PTS = AFS :: PTS-> NEU; $ Eintrag = $ PTS-> Dumpentrennung (67136, 1, 1); FOREACH MEIN $ KEY (SORT-KEYS% $ Eintrag) {Printf ("S =>% SN", $ -Taste, $$-Eintrag {$ -Taste}); } meine $ over = 1; meine @names = $ pts-> getcps ('nog', 1, $ over); drucken "über = $ über n n"; drucken "cps für nogg"; Foreach mein $ mem (sort @names) {drucken "$ Memn"; } AFS :: pts-> convert_numeric_names (1); meine @ids = (28053, 1, 105, 32000, 32766); @Names = $ pts-> pridtoname (@ids); FOREACH MEIN $ NAME (@Names) {drucken "Name = $ namens"; } Drucken "Konvertieren (NOG):", $ PTS-> ID ('NOG'), "n"; Hinweis: Die folgenden Zeilen sind "Version 1" -Stil: Alle Namen werden standardmäßig exportiert. Dieser Stil ist veraltet !!! AFS verwenden; # Importieren Sie alle AFS-Namen verwenden AFS @AFs :: pts; # Importieren Sie nur die Anforderungen der PTS-Namen: · Perl.
AFS :: pts. Zugehörige Software