ピヨピヨ ZeroMemory( ) » Blog Archive » Data::Dumperã§UTF-8フラグã¤ãæ–‡å—列をエスケープã•ã›ãªã„よã†ã«ã™ã‚‹ã«ã¯å¤‰æ•°ã®ä¸èº«ã‚’表示ã—ã¦ãれるperlã®CPANモジュールã€Data::Dumperã¯ã€UTF8フラグã®ã¤ã„ã¦ã„るデータãŒã‚¨ã‚¹ã‚±ãƒ¼ãƒ—ã•ã‚Œã¦æ–‡å—化ã‘状態ã«ãªã£ã¦ã—ã¾ã†ãŸã‚ã€UTF8ã§æ—¥æœ¬èªžã‚’扱ã†æ™‚ã«å›°ã‚‹ã€‚ã§ã‚‚ãã‚‚ãã‚‚UTF8フラグãŒã¤ã„ã¦ã„ãªã‘ã‚Œã°ã‚¨ã‚¹ã‚±ãƒ¼ãƒ—ã•ã‚Œã‚‹ã“ã¨ã‚‚ãªãã¦å›°ã‚‰ãªã„ã®ã¯ãªã‚“ã§ï¼Ÿã¨ã„ã†ã‚ã‘ã§ã‚½ãƒ¼ã‚¹ã‚’èªã‚€ã¨ Data::Dumper::qquote() ã¨ã„ã†ãƒ¡ã‚½ãƒƒãƒ‰ã®ä¸ã§ã€æ–‡å—列をエスケープã™ã‚‹æ¡ä»¶ã« my $bytes; { use bytes; $bytes = length } s/([^\x00-\x7f])/'\x{'.sprintf("%x",ord($1)).'}'/ge if $bytes > length; ã¨ã„ã†ãƒˆãƒªãƒƒã‚ーãªã‚³ãƒ¼ãƒ‰ãŒå…¥ã£ã¦ã„ãŸã€‚UTF-8フラグãŒã¤ã„ã¦ã„ã‚‹ã¨ã€UTF8ã®æ–‡å—列ãŒæ£ã—ãæ–‡å—ã¨ã—ã¦èªè˜ã•ã‚Œã¦lengthãŒãƒã‚¤ãƒˆæ•°ã‚ˆã‚Šã‚‚å°ã•ããªã‚‹ã®ã§
{{#tags}}- {{label}}
{{/tags}}