[B! utf8] u1_113ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

u1_113 id:u1_113

utf8ã«é–¢ã™ã‚‹u1_113ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (10)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

ã€perlãƒ¡ãƒ¢ã€‘perl5.8ç³»utf8é–¢é€£ã®è‡ªåˆ†ç”¨ã¾ã¨ã‚
ã¨ã«ã‹ãæ…£ã‚Œã‚‹ã¾ã§ã‚ã‚“ã©ãã•ã„ã€‚æœ€åˆã¯è¨³ãŒã‚ã‹ã‚‰ãªã„ãŒåˆ¤ã£ã¦ã¦ãã‚Œã°ä¾¿åˆ©ã€‚jcode.plã‚„jcode.pmæ™‚ä»£ã‚ˆã‚Šé¢å€’ã§ã¨ã£ã¤ãã«ãã„ã®ã¯ãŸã—ã‹ã€‚ã“ã†ã„ã†äº‹ã‚’æ°—ã«ã—ãªã„ã§ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã‘ã‚‹æ—¥ãŒæ¥ã‚‹ã¨ã„ã„ãªã€‚ åŸºæœ¬çš„ã«ã¯ä¸‹ã®è¨˜äº‹ã‚’æŠ‘ãˆã¦ãŠã‘ã°å¤§ä¸ˆå¤«ãªã¯ãšã€‚ Perl 5.8.x Unicodeé–¢é€£ 404 Blog Not Found:#perl â€“ utf8::decode()ã§ã¯ãªãEncode::decode_utf8()ã‚’ä½¿ã†ã¹ãç†ç”± 404 Blog Not Found:perl â€“ use utf8; æœ€è¿‘ã¯ã‚ˆã»ã©å¤ã„ã‚½ãƒ¼ã‚¹ã®ãƒ¡ãƒ³ãƒ†ã§ã‚‚ãªã‘ã‚Œã°utf8ã§æ›¸ãã¨æ€ã†ã®ã§ã€ä¸‹ã®3è¡Œã¯ãŠæ±ºã¾ã‚Šã€‚
u1_113 2010/11/11
perl

utf8
ãƒªãƒ³ã‚¯
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";
u1_113 2010/03/17
Twitter ã®RSSã‚’èªã‚ã‚‹ã‚ˆã†ã«ã™ã‚‹ãŸã‚ã«ã€‚HTML::Entities ä¾¿åˆ©ã€‚

utf8

æ•°å€¤æ–‡å—å‚ç…§

perl
ãƒªãƒ³ã‚¯
Unicodeã¨UTF-8ã®é•ã„ã¯ï¼Ÿ - Humanity
ã¨ã„ã†2chã®ã‚¹ãƒ¬ãŒã‹ãªã‚Šå‹‰å¼·ã«ãªã£ãŸã®ã§ã¾ã¨ã‚ã€‚ å°‘ã—ã§ã‚‚æœ‰ç”¨ã ã¨æ€ã£ãŸã‚‚ã®ã¯è¼‰ã›ã¦ã‚ã‚‹ã®ã§çµæ§‹é•·ã„ã§ã™ã€‚ Unicodeã®ã‚ˆã†ãªæ–‡å—é›†åˆ(ç¬¦å·åŒ–æ–‡å—é›†åˆï¼Ÿ)ã‚„UTF-8ã®ã‚ˆã†ãªã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°æ–¹å¼ã«é™ã‚‰ãšè‰²ã‚“ãªæ–‡å—ã‚³ãƒ¼ãƒ‰ã«ã¾ã¤ã‚ã‚‹è©±ãŒã‚ã‚Šã¾ã™ã€‚ ãŸã³ãŸã³è©±ãŒç¹°ã‚Šæ›¿ãˆã•ã‚Œã¾ã™ãŒãã‚Œã¯ç¢ºèªã¨ã„ã†ã“ã¨ã§ã€‚ (å…ƒã‚¹ãƒ¬) è¿½è¨˜ï¼šç°¡å˜ã«ã¾ã¨ã‚ã¾ã—ãŸã€‚ 1 ï¼šãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®åç„¡ã—ã•ã‚“ï¼š2007/04/30(æœˆ) 20:02:37 ãƒ“ãƒƒã‚°ã‚¤ãƒ³ãƒ‡ã‚£ã‚¢ãƒ³ã¨ã‹ãªã‚“ã¨ã‹ã‹ã‚“ã¨ã‹ 3 ï¼šãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®åç„¡ã—ã•ã‚“ï¼š2007/04/30(æœˆ) 20:05:48 ã¾ãŸã€é ã®æ‚ªãã†ãªã‚¹ãƒ¬ãŒãƒ»ãƒ»ãƒ» >>1 ãã‚Œã¯éšã¨ãƒžã‚°ãƒã®é•ã„ã‚’è¨Šãã‚‹ã‚ˆã†ãªã‚‚ã‚“ã ã€‚ 4 ï¼šãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®åç„¡ã—ã•ã‚“ï¼š2007/04/30(æœˆ) 20:06:49 éšã¨é®ªã¨ã„ã†ã‚ˆã‚Šã¯ã€éšã¨åˆºèº«ã®é•ã„ã®ã‚ˆã†ãªæ°—ãŒã™ã‚‹ã€‚ 5 ï¼šãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®åç„¡ã—ã•ã‚“ï¼š2007/04/
u1_113 2009/11/30
encoding

utf8
ãƒªãƒ³ã‚¯
#perl - utf8::decode()ã§ã¯ãªãEncode::decode_utf8()ã‚’ä½¿ã†ã¹ãç†ç”± : 404 Blog Not Found
2009å¹´09æœˆ13æ—¥13:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages #perl - utf8::decode()ã§ã¯ãªãEncode::decode_utf8()ã‚’ä½¿ã†ã¹ãç†ç”± é§„ç›®ã§ã™ã€‚ [ã‚’] Perl ã® utf8 ã¾ã‚ã‚Šã®ãŠã¾ã˜ãªã„ æœ€è¿‘è‰¯ãä½¿ã†ãŠã¾ã˜ãªã„ã€ã¨ã„ã†ã‹ã‚¤ãƒ‡ã‚£ã‚ªãƒ ã€‚ utf8::decode($text) unless utf8::is_utf8($text); ã“ã†ã„ã†å ´åˆã¯ã€Encode::decode_utf8()ã§ãªã„ã¨ã€‚ ä»¥ä¸‹ã‚’ã”ã‚‰ã‚“ãã ã•ã„ã€‚ #!/usr/bin/perl use strict; use warnings; use Encode; use Devel::Peek; for my $bytes ( "\x2F", "\xC0\xAF", "\xE0\x80\xAF", "\xF0\x80\x80\xAF" ) { my $u
u1_113 2009/09/14
perl

utf8

ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
æ–‡å—åˆ—ã‚’ print ã™ã‚‹ã¨ã€ŒWide character in print atã€ã¨å‡ºåŠ›ã•ã‚Œã¦å›°ã£ãŸ - BigFatCatã®ãƒ–ãƒã‚°
ä»¥ä¸‹ã®ãƒ—ãƒã‚°ãƒ©ãƒ ï¼ˆå‚è€ƒï¼šä½œã£ã¦å¦ã¶ã€ä»Šã©ãã®Webã‚µãƒ¼ãƒ“ã‚¹: ç¬¬2å›ž RSSãƒ•ã‚£ãƒ¼ãƒ‰ã®æ–™ç†ã¯LWPã¨XML::RSSã«ãŠã¾ã‹ã›ï¼‰ã‚’å®Ÿè¡Œã—ãŸã‚‰ã€ã€ŒWide character in print atã€ã¨ã„ã†ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãŒ print ã‚’å®Ÿè¡Œã™ã‚‹åº¦ã«å‡ºåŠ›ã•ã‚Œã¦ã—ã¾ã£ãŸã€‚ #!/usr/local/bin/perl # http://www.ibm.com/developerworks/jp/webservices/library/itm-ws2-rss/ use strict; use Encode; use LWP::Simple; use XML::RSS; my $url = shift; my $document = LWP::Simple::get($url) or die "cannot get content from $url"; my $rss = XML::RSS->new;
u1_113 2009/07/08
perl

utf8
ãƒªãƒ³ã‚¯
Perl 5.8.x Unicode é–¢é€£
u1_113 2008/11/25
perl

utf8
ãƒªãƒ³ã‚¯
Unicode::RecursiveDowngrade - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
UTF-8 ãƒ•ãƒ©ã‚°ãŒã©ã†ã‚‚ã‚¦ã‚¶ã„ã¨ã„ã†äººå‘ã‘ã«ã“ã‚“ãª CPAN ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚‹ãã†ãªã€‚ ã€Œã‚ã‚‹ãã†ãªã€ã¨ã„ã†ã‹ä½œã£ãŸã®ã‚ãªãŸã§ã—ã‚‡ã¨è»½ããƒ„ãƒƒã‚³ãƒŸã¤ã¤ã€ã“ã‚Œã¯ã„ã„ã‚‚ã®ã§ã™ã€‚Perl 5.8 ã«ãŠã‘ã‚‹æ‚©ã¾ã—ã„å•é¡Œã§ã‚ã‚‹ã¨ã“ã‚ã® UTF-8 ãƒ•ãƒ©ã‚°ã‚’ã€ãƒ‡ãƒ¼ã‚¿æ§‹é€ ã‚’å†å¸°çš„ã«ä¸‹ã£ã¦å…¨éƒ¨ off ã«ã—ã¦ãã‚Œã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ http://search.cpan.org/dist/Unicode-RecursiveDowngrade/ ãªã«ã’ã«ãƒ•ãƒ©ã‚°ã‚’è½ã¨ã™å‡¦ç†ã‚’ pack('C0A*', shift)ã¨ pack ãªé”æ³•ã§ã‚„ã£ã¦ã‚‹ã¨ã“ã‚ã‚‚ç´ æ•µã€‚Encode ã‚„ unicode ã‚’å¿…è¦ã¨ã—ãªã„ã®ã§ Perl 5.6 ã¨ã‹ã§ã‚‚ä½¿ãˆã¾ã™ã€‚pack ãªæ–¹æ³•ã¯ãŠãã‚‰ãç«¹è¿«ã•ã‚“ã®ãƒ‘ãƒ¯ãƒã‹ã‚‰å¾—ãŸãƒ’ãƒ³ãƒˆã‹ãªã€‚ ã“ã‚Œã¾ã§ã€TT ã§ utf8off ãªã‚“ã¦ãƒ•ã‚£ãƒ«ã‚¿ã‚’æ›¸ã„ã¦ [% it em.title | utf8of
u1_113 2008/11/25
module

perl

utf8
ãƒªãƒ³ã‚¯
UTF-8 ãƒ•ãƒ©ã‚°ã¨æˆ¦ã†äººã¸ : ã«ã½ãŸã‚“ç ”ç©¶æ‰€
ã²ã•ã³ã•ã« Blog ã‚’æ›¸ã„ã¦ã¿ã‚‹ã€‚ UTF-8 ãƒ•ãƒ©ã‚°ãŒã©ã†ã‚‚ã‚¦ã‚¶ã„ã¨ã„ã†äººå‘ã‘ã«ã“ã‚“ãª CPAN ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚‹ãã†ãªã€‚ Unicode::RecursiveDowngrade hashref ã¨ã‹ã€arrayref ã¨ã‹è¤‡é›‘ãªæ§‹é€ ã«ãªã£ãŸå¤‰æ•° (ãŸã¨ãˆã° XML ã‚„ RSS ã‚’ XML::Simple ã‚„ XML::RSS ç‰ã§ parse ã—ãŸæ§‹é€ ) ã‚’ã€æ§‹é€ ã‚’å¤‰ãˆã‚‹ã“ã¨ãªãã€å€¤å…¨ã¦ã® UTF-8 ãƒ•ãƒ©ã‚°ã‚’ä¸€æ‹¬ã§è½ã¨ã—ãŸã„å ´åˆã«ï¾ï¾žï¾ï½°ï¾˜ã€‚ ã“ã‚“ãªã‚“ã—ã¦ä½¿ãˆã‚‹æ¨¡æ§˜ã€‚ use strict; use XML::Simple; use Unicode::RecursiveDowngrade; use Data::Dumper; my $ref = XMLin('hoge.xml'); # includes flagged UTF-8 my $rd = Unicode::Recursi
u1_113 2008/11/25
module

perl

utf8
ãƒªãƒ³ã‚¯
perl 5.8ã«ãŠã‘ã‚‹æ—¥æœ¬èªžã‚³ãƒ¼ãƒ‰å¤‰æ›ã®ãƒ¡ãƒ¢
perl 5.8ã§ã¯Encode.pmãŒæ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ãªã‚Šã€å¤šãƒã‚¤ãƒˆæ–‡å—ã‚’æ¨™æº–ã§ç°¡å˜ã«æ‰±ãˆã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã—ãŸã€‚ãŒã€jcode.plã‚„Jcode.pmã‚’ç”¨ã„ãŸã‚³ãƒ¼ãƒ‰å¤‰æ›ã®çµŒé¨“ãŒã‚ã‚‹ã¨ã€é€†ã«ã“ã‚ŒãŒä»‡ã¨ãªã£ã¦æ–‡å—åŒ–ã‘ã®åµã«éã„ã¾ã™ã€‚ï¼ˆç§ã®å ´åˆãã†ã ã£ãŸã¨ã„ã†ã ã‘ã§ã€æ™®é€šã¯ãã‚“ãªã“ã¨ç„¡ã„ã®ã‹ã‚‚ã—ã‚Œãªã„ã®ã§ã™ãŒã€‚ï¼‰æ¼¸ãæœ€è¿‘ã«ãªã£ã¦åŸºæœ¬çš„ãªè€ƒãˆæ–¹ãŒé£²ã¿è¾¼ã‚ã‚‹ã‚ˆã†ã«ãªã£ã¦æ¥ãŸã®ã§ã€ã“ã®è¾ºã‚’ã¾ã¨ã‚ã¦ãŠã“ã†ã¨æ€ã„ã¾ã™ã€‚ãªãŠã€æœ¬ãƒ¡ãƒ¢ã¯æ–°ãŸã«perl 5.8.xçš„ãªperlã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ãéš›ã«æ°—ã‚’ã¤ã‘ã‚‹ã“ã¨ã‚’ã¾ã¨ã‚ãŸã‚‚ã®ã§ã‚ã‚Šã€åŸºæœ¬çš„ã«ã¯æ—¢å˜ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã«perl 5.8 + Encode.pmã‚’é©ç”¨ã™ã‚‹ãŸã‚ã®ã‚‚ã®ã§ã¯ã‚ã‚Šã¾ã›ã‚“ã€‚ã¾ãŸã€utf8ã§ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ãã“ã¨ã‚’å‰æã«ã—ã¦ã„ã¾ã™ã€‚ãŒã€ã©ã¡ã‚‰ã«ã›ã‚ˆã€ã“ã®çŸ¥è˜ã¯å‚è€ƒã«ãªã‚‹ã¨æ€ã„ã¾ã™ã€‚ï¼ˆãŸã¶ã‚“ã€‚ï¼‰ æœ¬æ–‡å†’é ã§ã™ãŒã€ã¾ãšå‚ç…§å…ˆã‚’ç¤ºã—ã¦ãŠãã¾ã™ã€‚ä»¥ä¸‹ã®ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆ
u1_113 2008/11/25
module

perl

utf8

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
é«ã€‚ã‚µã‚¤ãƒˆ
é«åŠ› é«ã®å¿ƒã€çˆ¶å¿ƒã€‚å‰ƒã‚Šæ®‹ã™ã¨ã€ŒãŠçˆ¶ã¡ã‚ƒã‚“ã€ãƒã‚¯ãƒã‚¯ã—ã¦ã‚¤ãƒ¤ï¼ã€ ãŠã—ãªãŒã ã‚ã„ã‚“ã‚ã«ã‚…ãƒ¼ é«ã€ã¯ãˆåˆã‚ã—é ƒã€‚ (ãƒ¡ã‚¤ãƒ³) ã—ã‚‡ãƒ¼ã¨ã‹ã£ã¨ ã‚¿ãƒ–èœç½®ãå ´ Haro is Another 'Riverside Oneroad' site.
u1_113 2008/11/25
Cannot decode string with wide charactersã¨å‡ºã‚‹ã¨ã

perl

tips

utf8
ãƒªãƒ³ã‚¯
1