16進数ã®ãƒ†ãƒ¼ãƒ–ルを表示ã™ã‚‹ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’考ãˆã‚‹ - ã™ãŽã‚ƒãƒ¼ã‚“メモ
以下ã®ã‚ˆã†ãª256個ã®16進2æ¡ã®æ•°å€¤ã‚’一覧表示ã—ãŸã„ã€ã¨ã™ã‚‹ã€‚ 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 2F 30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D 5E 5F 60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7
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 -le '$~++for 0..515937;print lc$~'ã¨ã„ã†ã®ã‚’一行自己紹介ã¨ã—ã¦ä½¿ã£ã¦ã¿ã‚‹ã¨ã„ã†ã®ã¯ã©ã†ã ã‚ã†ã€‚ '$~'ã‚’STDOUTã¨ã—ã¦ä½¿ã†ã®ã¯å則ã‹ãªã€‚ 追記 ã“ã‚“ãªã®ã¨ã‹ï¼Ÿ perl -le '($_||="\163"x6)++while$a++<706623;print' 変ãªã¨ã“ã‚ã‹ã‚‰æ–‡å—列をæŒã£ã¦ãã¦ã¿ã‚‹ã¨ã‹ $ perl -le 'eval"{";($_||=(split(/ /,$@))[4])++while$a++<1597631;print'ãªã‚“ã«ã›ã‚ˆæ•°å—ãŒå¤§ãã„ãªã。もã£ã¨ã‚¹ãƒžãƒ¼ãƒˆã«ã§ããªã„ã‹ãª
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}