| Linux :: Atasmart. XS ·¡ÆÛ Libatasmart ÁÖÀ§¿¡ ÀÖ½À´Ï´Ù |
Áö±Ý ´Ù¿î·Îµå |
Linux :: Atasmart. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ioanr/
Linux :: Atasmart. ű×
Linux :: Atasmart. ¼³¸í
Linux :: Atasmart´Â Linux Àü¿ë ¶óÀ̺귯¸® ÀÎ Libatasmart ÁÖÀ§ÀÇ XS ·¡ÆÛÀÔ´Ï´Ù. µå¶óÀ̺꿡¼ ½º¸¶Æ® Á¤º¸¸¦ ÀÐÀ¸·Á¸é ·çÆ®·Î ½ÇÇàÇϰųª CAP_RAW_IO°¡ ÇÊ¿äÇÕ´Ï´Ù (PERL ¹ÙÀ̳ʸ®¿¡¼ ¼³Á¤ÇØ¾ß ÇÒ °¡´É¼ºÀÌ Å®´Ï´Ù). ±×·ì ¾²±â ±ÇÇÑÀÌ ÀÖÀ¸¹Ç·Î ÃæºÐÇÏÁö ¾Ê½À´Ï´Ù! ½Ã³ñ½Ã½º V5.10.1; Linux :: Atasmart¸¦ »ç¿ëÇϽʽÿÀ. Linux :: Atasmart :: »ó¼ö QW / : ALL /; MY $ ATASMART = Linux :: Atasmart-> New ( '/ dev / sda'); if (! $ atasmart-> smart_is_available) {die "µå¶óÀ̺갡 ½º¸¶Æ® ÇÒ ¼ö ¾øÀ½"; } '¹ÙÀÌÆ® Å©±âÀÇ µð½ºÅ© Å©±â :', $ Atasmart-> get_size; '±ú¾î ÀÖ´Ù°í ¸»ÇÑ´Ù. ($ atasmart-> check_sleep_mode? '¿¹': '¾Æ´Ï¿À'); 'status :'¶ó°í ¸»ÇϽʽÿÀ. ($ atasmart-> smart_status? 'ÁÁÀº': '³ª»Û'); '³ª»Û ºÐ¾ß :'¶ó°í ¸»ÇϽʽÿÀ. $ atasmart-> get_bad; '¿Âµµ ¡Æ C :'¶ó°í ¸»ÇϽʽÿÀ. $ atasmart-> get_temperature; "Àü¿øÁÖ±â :"¶ó°í ¸»ÇϽʽÿÀ. $ atasmart-> get_power_cycle; "Àü¿øÀÌ ÄÑÁø :"¶ó°í ¸»ÇϽʽÿÀ. $ atasmart-> get_power_on-> pretty; ³» $ status = $ atasmart-> get_overall; if ($ status! = OverleT_Good) {say "status not good!"; } # À§ÀÇ ¸ðµç $ atasmart-> ´ýÇÁ; $ atasmart-> self_test (test_short); Á¦Ç°ÀÇ È¨ÆäÀÌÁö
Linux :: Atasmart. °ü·Ã ¼ÒÇÁÆ®¿þ¾î