| AIX :: ODM. AIX :: ODMÀº AIX (RS / 6000 / PSeries) ½Ã½ºÅÛ¿¡ ´ëÇÑ ODM Á¤º¸¸¦ °Ë»öÇϱâÀ§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
AIX :: ODM. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dfrench/AIX-ODM-1.0.2/ODM.pm
AIX :: ODM. ű×
AIX :: ODM. ¼³¸í
AIX :: ODMÀº AIX (RS / 6000 / PSeries) ½Ã½ºÅÛ¿¡ ´ëÇÑ ODM Á¤º¸¸¦ °Ë»öÇϱâÀ§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. AIX :: ODMÀº AIX (RS / 6000 / PSERIES) ½Ã½ºÅÛ¿¡ ´ëÇÑ ODM Á¤º¸¸¦ °Ë»öÇϱâÀ§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù .Snopsis »ç¿ë AIX :: ODM; ³» % ODM = ODM_DUMP ( 'C | P'); while (($ ndx1, $ lev2) = °¢ % ODM) {while (($ ndx2, $ val) = °¢ % $ lev2) {print "ODM {$ {ndx1}} {$ {ndx2} = $ {ODM {$ {ndx1}} {$ {ndx2}}} n "; }} My V = ODM_CLASSES ( 'C | P'); foreach $ {devname} (Å° v) {print "dev {$ {devname}} = $ {dev {$ {devname}}} n"; } My % Attributes ($ {dev { 'devname'}}; foreach $ {attrname} (Å° % APTH) {$ {$ {attrName}} = $ {¼Ó¼º {$ {attrname}}} n " ;} My $ {devclass} = ODM_CLASS ( 'c | p', $ {dev { 'devname'}); My $ {devsubcl} = odm_subclass ( 'c | p', $ {dev {devname '}); ÀÌ ¸ðµâÀº AIX ¿î¿µ üÁ¦¸¦ ½ÇÇàÇÏ´Â RS / 6000 / PSERIES ½Ã½ºÅÛ¿¡ ´ëÇÑ ODM Á¤º¸¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ Perl ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÕ´Ï´Ù. ÀåÄ¡ Á¤º¸°¡ Æ÷ÇÔ µÈ °ªÀÇ Çؽø¦ ¹ÝȯÇÏ´Â ¿©·¯ ±â´É°ú ÇØ´ç ¼Ó¼º : À§ÀÇ ±¸¹® ¿¹Á¦´Â 'c·Î Ç¥½ÃµÈ ±¸¹® ¿¹Á¦ | P '´Â "C"¶Ç´Â "P"·Î Àоî¾ßÇÕ´Ï´Ù. Áï, Àμö°¡ ÇϳªÀÇ ÀÎ¿ë µÈ ¹®ÀÚ "C"¶Ç´Â "P"·Î ±¸¼ºµÇ¾î ÀÖÁö¸¸ µÑ ´Ù Æ÷ÇÔµÇÁö´Â ¾Ê½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
AIX :: ODM. °ü·Ã ¼ÒÇÁÆ®¿þ¾î