TAKESAKO @ Yet another Cybozu Labs: Pure Perl 㧠Acme::x86::CPUID を作りã¾ã—ãŸPerlã§ã‚¢ã‚»ãƒ³ãƒ–リプãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã—ã¦ã„ã‚‹ã¨ãã€å®Ÿè¡Œãƒžã‚·ãƒ³ã®CPUを判別ã—ã¦ãƒ—ãƒã‚°ãƒ©ãƒ ã®å‡¦ç†ã‚’分å²ã—ãŸã„ã¨ããŒã§ã¦ãã‚‹ã¨æ€ã„ã¾ã™ã€‚ ãã†ã„ã†ã¨ãã«å›°ã£ã¦ã—ã¾ã‚ãªã„よã†ã« Acme::x86::CPUID を作ã£ã¦ã¿ã¾ã—ãŸã€‚ package Acme::x86::CPUID; use DynaLoader; sub ProcessorBrandString { my $cpu = "\0" x 48; my $x86 = "" . "S\xbf" . pack("P", $cpu) . "\xb8\x02\x00\x00\x80" . ("P\x0f\xa2\x89\x07\x89_\x04\x89O\x08\x89W\x0c\x8d\x7f\x10X\x8d\@\x01" x 3) . "[\xc3" ; DynaLoader::dl_install_xsub("X",unpack"L",
関数をラップã™ã‚‹
Perl 㧠8ビット CPU を作る - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
機械語ã§ã¯ãƒžã‚·ãƒ³ã®æŒ™å‹•ã¯ç†è§£ã§ããªã„ - 未æ¥ã®ã„ã¤ã‹/hyoshiokã®æ—¥è¨˜
浮動å°æ•°ç‚¹æ¼”ç®—ã§ã¯ã¾ã£ãŸè©± - bkブãƒã‚°
{{#tags}}- {{label}}
{{/tags}}