ÀåÄ¡ :: SCSI.

ÀåÄ¡ :: SCSI´Â SCSI ÀåÄ¡¸¦ Á¦¾îÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

ÀåÄ¡ :: SCSI. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Peter Corlett
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~mooli/Device-SCSI-1.003/lib/Device/SCSI.pm

ÀåÄ¡ :: SCSI. ű×


ÀåÄ¡ :: SCSI. ¼³¸í

DEVICE :: SCSI´Â SCSI ÀåÄ¡¸¦ Á¦¾îÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù. ÀåÄ¡ :: SCSI´Â SCSI µð¹ÙÀ̽º¸¦ Á¦¾îÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù .SNOPSIS »ç¿ë ÀåÄ¡ :: SCSI; @devices = ÀåÄ¡ :: scsi-> ¿­°Å; $ device = device :: scsi-> »õ ($ devices ); % ¹®ÀÇ = % {$ ÀåÄ¡ -> ¹®ÀÇ}; ($ °á°ú, $ sense) = $ device-> ½ÇÇà ($ ¸í·É, $ wird, $ data); $ ÀåÄ¡ -> ´Ý±â;ÀÌ Perl ¶óÀ̺귯¸®´Â Perl5 °³Ã¼¸¦ »ç¿ëÇÏ¿© Perl¿¡¼­ Àú±Þ SCSI I / O¸¦ ½±°Ô ¼öÇàÇÏ°í ¸ðµç °ËÀº ¸ÅÁ÷À» ÇÇÇÏ°í C·Î ½Î¿ì´Â °ÍÀ» ½±°Ô »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º´Â ÀÀ¿ë ÇÁ·Î±×·¥ÀÌ ´õ ¸¹Àº °ÍÀ» »ç¿ëÇÒ ¼öÀÖ°ÔÇÕ´Ï´Ù. ÇϳªÀÇ SCSI µð¹ÙÀ̽º°¡ µ¿½Ã¿¡ (Çؽÿ¡¼­ ÇÊ¿ä·ÎÇÏ´Â ÀåÄ¡¸¦ ij½ÃÇϱâ À§ÇØ ÀÀ¿ë ÇÁ·Î±×·¥ÀÌ »ç¿ëÇϱⰡ ´õ ¸¹ÀÌ »ç¿ëµÇÁö¸¸) ¹ü¿ë EXECUTE () ¸Þ¼­µå´Â»Ó¸¸ ¾Æ´Ï¶ó ÇÒ ¼öÀÖ´Â ´Ù¸¥ µµ¿ì¹Ì ¹æ¹ýµµ ÀÖ½À´Ï´Ù. ÀåÄ¡ ¹× µð¹ö±ëÀ» Äõ¸®ÇÏ´Â µ¥ µµ¿òÀ̵˴ϴÙ. ÀϹÝÀûÀ¸·Î SCSI ¹®Á¦¸¦ ÇØ°áÇÏ´Â µ¥ ÇÊ¿äÇÑ ¿°¼Ò¿Í °ËÀº »ö ¾çÃÊ´Â ÀÚ½ÅÀÌ Á¦°øÇØ¾ß ÇÒ °ÍÀÔ´Ï´Ù. ³î¶ø°Ôµµ SCSI´Â OS¿¡¼­ OS¿¡¼­ OS±îÁö ÃæºÐÈ÷ ´Ù¸¦ ¼ö ÀÖ½À´Ï´Ù. ÀÌ ÆÐÅ°Áö´Â OS Á߸³Àû ÀΠ󸮸¦ Á¦°øÇÕ´Ï´Ù. OS °ü·Ã ÄÚµå´Â $ ^ o°¡ ¾ÆÅ°ÅØó¿¡¼­ µ¿ÀÏÇÑ À̸§À» °¡Áø "Device :: SCSI ::"¾Æ·¡ÀÇ ¸ðµâ¿¡ Á¦°øµË´Ï´Ù. Linux µå¶óÀ̹ö´Â Device :: SCSI :: Linux, ¿¹¸¦ µé¾î ÀÏ¹Ý Å¬·¡½º°¡ ½ÇÁ¦·Î OS °ü·Ã Ŭ·¡½ºÀÇ ÇÏÀ§ Ŭ·¡½º·Î ¸¸µé¾îÁ³À¸¸ç ´Ù¸¥ ¹æ¹ýÀ¸·Î ´Ù¸¥ ¹æÇâÀ¸·Î ¿¹»óµÇ´Â °ÍÀ¸·Î ³ªÅ¸³µ½À´Ï´Ù. Áï, ½ÃÀÛÇÑ ÈÄ ºÎ¸ð¸¦ ¼±ÅÃÇÒ ¼öÀÖ´Â ±âȸ°¡ ÇÊ¿äÇÕ´Ï´Ù .MethodsNew $ device = device :: scsi-> new; $ device = device :: scsi-> new ($ unit_name); »õ SCSI °´Ã¼¸¦ ¸¸µì´Ï´Ù. $ unit_nameÀÌ ÁÖ¾îÁö¸é ¿­·Á°í ³ë·ÂÇÒ °ÍÀÔ´Ï´Ù. ½ÇÆÐÇϸé Undef, ±×·¸Áö ¾ÊÀ¸¸é Object.Enumerate @Units = Device :: SCSI-> enumerate; new () ¹× open ()¿¡ ÁÖ¾îÁú ¼öÀÖ´Â ¸ðµç ´ÜÀ§ À̸§ ¸ñ·ÏÀ» ¸®ÅÏÇÕ´Ï´Ù. ÀÌ·¯ÇÑ ¸ðµç ÀåÄ¡°¡ »ç¿ëÇÒ ¼ö ÀÖÀ½À» º¸ÀåÇÏÁö ¾Ê½À´Ï´Ù (½ÇÁ¦·Î ÀÌ°ÍÀº »ç·Ê°¡ ¾Æ´Õ´Ï´Ù). ¿øÇÏ´Â °ÍÀ» ãÀ» ¶§ ±îÁöÀÌ ¸ñ·ÏÀ» ¹Ýº¹ÇؾßÇÕ´Ï´Ù. Open $. ÀåÄ¡ -> ¿­±â ($ device_name); SCSI µð¹ÙÀ̽º¸¦ ¿­°í, ÇÒ ¼ö¾ø´Â °æ¿ì $ ÀåÄ¡¸¦ ¹ÝȯÇϰųª ÇÒ ¼ö¾ø´Â °æ¿ì $ ÀåÄ¡¸¦ ¹ÝȯÇÕ´Ï´Ù. ÀåÄ¡¸¦ ¿­ ¼ö¾ø´Â ÀÌÀ¯´Â ½Ã½ºÅÛ¿¡ ½ÇÁ¦·Î Á¸ÀçÇÏÁö ¾Ê°Å³ª / dev / sg¸¦ »ç¿ëÇÒ ¼öÀÖ´Â ÃæºÐÇÑ ±ÇÇÑÀÌ ¾ø½À´Ï´Ù. ÀåÄ¡. (¸¹Àº ½Ã½ºÅÛÀº À̵éÀ» »ç¿ëÇϱâ À§ÇØ ·çÆ®°¡ ÇÊ¿äÇÕ´Ï´Ù.) $ ÀåÄ¡ -> ´Ý±â¸¦ ´Ý½À´Ï´Ù. »ç¿ë ÈÄ SCSI ÀåÄ¡¸¦ ´Ý½À´Ï´Ù. ÇÚµéÀÌ Scope¿¡¼­ ¹þ¾î³ª´Â °æ¿ì ÀåÄ¡°¡ ´ÝÈü´Ï´Ù. ÀåÄ¡¿¡¼­¸¸ Àд °Í¸¸ ($ °á°ú, $ sense) = $ device-> ½ÇÇà ($ ¸í·É, $ wird); # ($ °á°ú, $ sense) = $ device-> ½ÇÇà ($ command, $ wirding, $ data)ÀÌ ¸Þ¼­µå´Â ¿ø½Ã SCSI ¸í·ÉÀ» ÇØ´ç ÀåÄ¡·Î º¸³À´Ï´Ù. $ ¸í·ÉÀº scsi ¸í·ÉÀÌ Æ÷ÇÔ µÈ 10 ¶Ç´Â 12 ¹®ÀÚ¿­À̾î¾ßÇÕ´Ï´Ù. Á¾Á¾ ÆÑ ()À» »ç¿ëÇÏ¿©À̸¦ ¸¸µì´Ï´Ù. $ wirdingÀº ÀåÄ¡¿¡¼­¹ÞÀ» °ÍÀ¸·Î ±â´ëµÇ´Â µ¥ÀÌÅÍÀÇ ¹ÙÀÌÆ® ¼ö¸¦ ³ªÅ¸³À´Ï´Ù. ÀåÄ¡¿¡ µ¥ÀÌÅ͸¦ º¸³»´Â °æ¿ì, ÀåÄ¡¿¡¼­ ¸®ÅÏ µÈ µ¥ÀÌÅÍ (ÀÖ´Â °æ¿ì)´Â $ DATA¿¡ ÇØ´ç µ¥ÀÌÅ͸¦ Á¦°øÇؾßÇÏ¸ç °¨Áö µ¥ÀÌÅÍ°¡ Array Ref $ Sense¿¡ Ç¥½ÃµË´Ï´Ù. ½É°¢ÇÑ ¿À·ù°¡ÀÖ´Â °æ¿ì, ¿¹¸¦ µé¾î, ÀåÄ¡°¡ Á¢ÃË ÇÒ ¼ö¾ø´Â °æ¿ì (±×¸®°í Ä¿³ÎÀº ±×·¯ÇÑ Çϵå¿þ¾î ¿À·ù·ÎºÎÅÍ ±â±â°¡ ¾Æ´Ñ °æ¿ì) ¿¹¿Ü°¡ ¹ß»ýÇÒ ¼ö ÀÖ½À´Ï´Ù. % inquiry = % {$ device-> inquiry};ÀÌ ¸Þ¼­µå´Â SCSI inquiry ¸í·ÉÀ» ÅëÇØ ÀåÄ¡¸¦ Äõ¸®ÇÏ´Â °£´ÜÇÑ ¹æ¹ýÀ» ½Äº°ÇϽʽÿÀ. Çؽà Ref´Â ´ÙÀ½ Å°¿Í ÇÔ²² ¹ÝȯµË´Ï´Ù : Devicea Number Å×ÀÌÇÁ µå¶óÀ̺êÀÇ °æ¿ì ¿¹¸¦ µé¾î, CD-ROM.VendorTe °ø±Þ ¾÷ü À̸§, "HP"¶Ç´Â "HP"¶Ç´Â "Sony"¿¡ ´ëÇÑ 5 °¡Áö À¯ÇüÀ» ½Äº°ÇÕ´Ï´Ù. Á¦Ç° Á¦Ç° À̸§, ¿¹ : "HP35470A", "CD-ROM CDU-8003A". ÀåÄ¡ÀÇ Æß¿þ¾î °³Á¤ÆÇ, ¿¹¸¦ µé¾î, "1109"¶Ç´Â "1.9A". ¿ä±¸ »çÇ× : ¡¤ Perl.


ÀåÄ¡ :: SCSI. °ü·Ã ¼ÒÇÁÆ®¿þ¾î