Unicode ã®16進数ã®å®Ÿä½“å‚照をæ£è¦è¡¨ç¾ãªã©ã§å…ƒã«æˆ»ã™Unicode ã®16進数ã®å®Ÿä½“å‚照をæ£è¦è¡¨ç¾ãªã©ã§å…ƒã«æˆ»ã™ 2008-05-10-3 [Programming] 普段ã¯é©åˆ‡ã«å‡¦ç†ã‚’ã•ã‚Œã¦ã¦å•é¡Œã«ãªã‚‰ãªã„ã‚“ã ã‘ã©ã€ ã¨ãã©ãã²ã‚‡ã‚“ãªå±€é¢ã§å‡ºä¼šã£ã¦ã—ã¾ã†ã®ãŒã€ "�" ã¨ã„ã†å½¢å¼ã®æ–‡å—列ã€16進数ã®å®Ÿä½“å‚ç…§ã§ã™ã€‚ Perl ã§ãƒ‡ã‚³ãƒ¼ãƒ‰ã™ã‚‹æ–¹æ³•ã‚’メモ。 pack 㨠Encode::decode を使ã†ã¨è‰¯ã„ã¿ãŸã„。 #!/usr/bin/perl use strict; use warnings; use Encode; use utf8; binmode STDOUT, ":utf8"; my $a = "情報時代"; $a =~ s/&#x([0-9A-F]{4});/decode('UCS2', pack('H*', $1))/ge; print "$a\n";
{{#tags}}- {{label}}
{{/tags}}