| AW :: Admin. AW :: AdminÀº ActiveWorks C °ü¸® ¶óÀ̺귯¸®ÀÇ Perl È®ÀåÀÚÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
AW :: Admin. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Daniel Yacob Mekonnen
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dyacob/Aw-0.16.7/lib/Aw/Admin.pm
AW :: Admin. ű×
AW :: Admin. ¼³¸í
AW :: AdminÀº ActiveWorks C °ü¸® ¶óÀ̺귯¸®ÀÇ Perl È®ÀåÀÚÀÔ´Ï´Ù. AW :: AdminÀº ActiveWorks C Administration LibrariesÀÇ Perl È®ÀåÀÚÀÔ´Ï´Ù. Synopsis´Â AW 'myfavoritebroker@my.host.net : 6449'¸¦ »ç¿ëÇÕ´Ï´Ù. AW :: Admin :: ServerClient°¡ ÇÊ¿äÇÕ´Ï´Ù. MY $ DESC = NEW AW :: ConnectionDescriptor; MY $ Server = New AW :: Admin :: ServerClient ( "my.host.net:6449", $ desc); # # »õ·Î¿î È£½ºÆ®¸¦ »ç¿ëÇÏ´Â »õ·Î¿î °ÍÀ» »ç¿ëÇÏ¿© ÀÌ¹Ì ¼³Á¤Çß½À´Ï´Ù. # my @brokers = $ Server-> getServerBrokers (); foreach (@brokers) {Àμâ "¿µÅä : $ _-> {territory_name} n"; "ºê·ÎÄ¿ È£½ºÆ® : $ _-> {Broker_host} n"À» ÀμâÇϽʽÿÀ. "ºê·ÎÄ¿ À̸§ : $ _-> {broker_name} n"; Àμâ "¼³¸í : $ _-> {¼³¸í} n"; } ¿ä±¸ »çÇ× : ¡¤ Perl.
AW :: Admin. °ü·Ã ¼ÒÇÁÆ®¿þ¾î