[B! Perl][æ–‡å—ã‚³ãƒ¼ãƒ‰] nsyeeã®ãƒ

nsyee id:nsyee

Perlã¨æ–‡å—ã‚³ãƒ¼ãƒ‰ã«é–¢ã™ã‚‹nsyeeã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (42)

${{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}}

æ–‡å—ã‚³ãƒ¼ãƒ‰å¤‰æ›ãƒŸã‚¹ã«ã‚ˆã‚‹æ–‡å—åŒ–ã‘ãƒ‘ã‚¿ãƒ¼ãƒ³ã¨æƒ³å®šã•ã‚Œã‚‹åŽŸå› - drk7jp
ã¨ã‚ã‚‹ã‚·ã‚¹ãƒ†ãƒ ã§ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã‹ã‚‰å¼•ã„ã¦ããŸãƒ‡ãƒ¼ã‚¿ã®è¡¨ç¤ºãŒæ–‡å—åŒ–ã‘ã™ã‚‹ã¨ã„ã†ä¸å…·åˆãŒã‚ã‚Šã¾ã—ãŸã€‚ ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹å†…ã®ãƒ‡ãƒ¼ã‚¿ã¨ã—ã¦ã¯æ–‡å—åŒ–ã‘ã—ã¦ã„ãªã„çŠ¶æ…‹ã§æ ¼ç´ã•ã‚Œã¦ã„ã‚‹ã“ã¨ã¯ã‚ã‹ã£ã¦ã„ãŸã®ã§ã€ã©ã“ã‹ã—ã‚‰ã®æ–‡å—å¤‰æ›ã§åŒ–ã‘ã¦ã„ã‚‹ã“ã¨ã¯ã‚ã‹ã£ã¦ã„ã¾ã™ã€‚ã¾ãšã¯ã©ã®èª¤å¤‰æ›ã«ã‚ˆã‚Šæ–‡å—åŒ–ã‘ã™ã‚‹ã®ã‹åŽŸå› åˆ‡ã‚Šåˆ†ã‘ã®ãŸã‚ã«ã€decode/encode ã®çµ„ã¿åˆã‚ã›ã«ã‚ˆã‚‹æ–‡å—åŒ–ã‘ãƒ‘ã‚¿ãƒ¼ãƒ³ä¸€è¦§ã‚’ä½œã‚Šã¾ã—ãŸã€‚ãŠã‹ã’ã•ã¾ã§ã©ã®ãƒ‘ã‚¿ãƒ¼ãƒ³ã«é¡žã™ã‚‹ã‚‚ã®ã‹åˆ¤åˆ¥ã™ã‚‹ã“ã¨ãŒã§ãã€ç„¡äº‹ã«æ”¹ä¿®ã™ã‚‹ã“ã¨ãŒã§ãã¾ã—ãŸã€‚ ãã®è©±ã¯ã¾ãŸåˆ¥ã«ã™ã‚‹ã¨ã—ã¦ã€ä»Šã‚‚æ˜”ã‚‚å¤‰ã‚ã‚‰ãšæ–‡å—åŒ–ã‘ã«æ‚©ã‚€äººã¯æ„å¤–ã¨å¤šã„ã¨æ€ã„ã¾ã™ã€‚èª¤å¤‰æ›çµæžœä¸€è¦§ã¯åŽŸå› è§£æžã®å‚è€ƒã«ãªã‚‹ã¨æ€ã„ã€è¨˜äº‹ã¨ã—ã¦ã¾ã¨ã‚ã‚‹ã“ã¨ã«ã—ã¾ã—ãŸã€‚ æ–‡å—ã‚³ãƒ¼ãƒ‰å¤‰æ›ãƒŸã‚¹ã«ã‚ˆã‚‹æ–‡å—åŒ–ã‘ãƒ‘ã‚¿ãƒ¼ãƒ³ã‚’å¯è¦–åŒ–ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ ã¨ä¸€è¦§è¡¨ ã¾ãšã¯èª¤å¤‰æ›ã‚’ç”Ÿæˆã™ã‚‹ perl ã‚¹ã‚¯ãƒªãƒ—ãƒˆã§ã™ã€‚ãƒ—ãƒã‚°ãƒ©ãƒ ã¯ã¨ã£ã¦ã‚‚ç°¡å˜ã§ã€ã€Œæ–‡å—åŒ–ã‘ã§
nsyee 2013/04/07
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
PerlIO::via ã§éŠã¶ - JPerl advent calendar 2010 acme Track
ã“ã‚“ã«ã¡ã¯ã€ã“ã‚“ãªã«ãƒˆãƒŸãƒ¼ãƒ«ã‚’åä¹—ã£ã¦ã„ã‚‹ã®ã«ã„ã¤ã¾ã§ãŸã£ã¦ã‚‚ãƒˆãƒŸãƒ¼ãƒ«ã®æ¤œç´¢çµæžœãŒæŠ—ã‚¦ã‚¤ãƒ«ã‚¹è£½å‰¤ã®ãƒˆãƒŸãƒ¼ãƒ«ã§ã™ã€‚ä»Šå¹´ã‚‚1ä½å¥ªé‚„ã¯å¤±æ•—ã—ã¾ã—ãŸã€‚ ã•ã¦ã€ä»Šæ—¥ã¯ Acme ã˜ã‚ƒãªã„ã‚“ã ã‘ã©é™ã‚Šãªã Acme ã½ã„ PerlIO::via ã‚’ã”ç´¹ä»‹ã—ã¾ã—ã‚‡ã†ã€‚ å½¹ã«ç«‹ã¤ PerlIO åŸºç¤ŽçŸ¥è˜ï¼ˆAcme ã«å…¥ã‚‹å‰ã«ï¼‰ perl ã® IO ãƒ¬ã‚¤ãƒ¤ãƒ¼ã¯ã€å®Ÿã¯ã„ã‚ã„ã‚ã§ãã¦ä¾¿åˆ©ã§ã™ã€‚ä¸€ç•ªä¾¿åˆ©ãªã®ã¯ã€:encoding() ã§ã—ã‚‡ã†ã€‚ ã“ã†ã„ã†ã€ use autodie; use Encode; open(my $fh, '<', 'file.txt'); while (my $line = Encode::decode('cp932', <$fh>)) { print Encode::encode('utf-8', $line); } å…¥åŠ›ã‚’ cp932 ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã§ decode()ã€å‡ºåŠ›ã¯
nsyee 2010/12/24
Perl

IO

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
Encode::UTF8Mac - ãƒˆãƒŸãƒ¼ãƒ«ã®æŠ€è¡“ç³»æ—¥è¨˜
æŽ¢ã—ãŸã®ã ã‘ã©ä½œã£ã¦ã„ã‚‹äººãŒã„ãªã‹ã£ãŸã®ã§ã€ã„ã‚ã‚†ã‚‹utf-8-macã¨å‘¼ã°ã‚Œã‚‹ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã‚’è¿½åŠ ã™ã‚‹Encode::Encodingã‚’ã¤ãã‚Šã¾ã—ãŸã€‚ https://github.com/tomi-ru/Encode-UTF8Mac use Encode; use Encode::UTF8Mac; print Encode::encode('utf-8-mac', 'è˜„è—ã¥ã‘'); use Path::Class; for my $entry (dir(".")->children) { my $filename = Encode::decode('utf-8-mac', $entry); } åå¿œã¿ã¦PODã¡ã‚ƒã‚“ã¨æ›¸ã„ãŸã‚‰UPã—ã‚ˆã†ã¨æ€ã£ã¦ã„ã‚‹ â†’PODæ›¸ã„ãŸ. PODã®æ–¹ãŒå°‘ã—æ•´ç†ã•ã‚Œã¦ã„ã‚‹ã®ã§ã‚ã‹ã‚Šã‚„ã™ã„ã‹ã‚‚ã—ã‚Œãªã„ã€‚ https://github.com/tomi-ru/En
nsyee 2010/12/21
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰

Mac
ãƒªãƒ³ã‚¯
ã¯ã¦ãªãƒ–ãƒã‚° | ç„¡æ–™ãƒ–ãƒã‚°ã‚’ä½œæˆã—ã‚ˆã†
æ£®ç¾…ä¸‡è±¡2024ãƒ™ã‚¹ãƒˆ æ¯Žæ—¥æ›´æ–°ã§ãã¾ã›ã‚“ã§ã—ãŸãã‡â€¦â€¦ ãœã‚“ã¶å¤ãŒæ‚ªã„ 10æœˆãã‚‰ã„ã‹ã‚‰2024å¹´ãƒ™ã‚¹ãƒˆã‚’ä½œã‚ã†ã¨ãƒ¡ãƒ¢ã£ã¦ãŸã®ã‚’ã‚ˆã†ã‚„ãè§£æ”¾ã§ããã†ã€‚ ãƒ™ã‚¹ãƒˆã‚³ã‚¹ãƒ¡ã€è²·ã£ã¦ã‚ˆã‹ã£ãŸã‚‚ã®ãƒ™ã‚¹ãƒˆã€ã¨ã‹åˆ†ã‘ã‚ˆã£ã‹ãªã¨ã‚‚æ€ã£ãŸã‘ã©ã—ã‚ƒã‚‰ãã›ãˆã®ã§ã‚‚ã†ã™ã¹ã¦ã‚’è§£æ”¾ã—ã¾ã™ã€‚ æœ¬ ã“ã“ã¯ã™ã¹ã¦ã®å¤œâ€¦
nsyee 2010/02/25
Perl

catalyst

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
nsyee 2008/10/21
Perl

CPAN

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ - ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
nsyee 2008/08/13
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
å›³è§£: Perl ã¨ Unicode æ–‡å—åˆ— - daily dayflower
id:tomi-ru ã•ã‚“ãŒ [http://e8y.net/mag/015-encode/:title] ã¨ã„ã†ã¨ã¦ã‚‚ãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚«ãƒ«ãª [http://search.cpan.org/perldoc?Encode:title=Encode] å…¥é–€ã‚’ãŠæ›¸ãã«ãªã£ãŸã®ã§ï¼Œã‚ãŸã—ã‚‚é•ã†åˆ‡ã‚Šå£ã§æ›¸ã„ã¦ã¿ãŸããªã‚Šã¾ã—ãŸã€‚ ã„ã¡ãŠã†ã®åŸºç¤Žï¼ˆèªã¿é£›ã°ã—å¯ï¼‰ æ–‡å—ã‚»ãƒƒãƒˆ, ã‚ãƒ£ãƒ©ã‚¯ã‚¿ã‚»ãƒƒãƒˆ, æ–‡å—é›†åˆ, æ–‡å—é›†åˆ - Wikipedia ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°, ç¬¦å·åŒ–æ–¹å¼, æ–‡å—ç¬¦å·åŒ–æ–¹å¼ - Wikipedia ã“ã®2ã¤ã¯ç•°ãªã‚Šã¾ã™ã€‚ã¨ãã«çŸ¥ã‚‰ãªãã¦ã‚‚ä¸‹è¨˜ã®æ–‡æ›¸ã‚’èªã‚€ã“ã¨ã¯ã§ãã¾ã™ãŒï¼Œç†è§£ã—ã¦ã„ã‚‹ã¨ãŸã‚ã«ãªã‚Šã¾ã™ã€‚ãã‚ã—ãçŸ¥ã‚ŠãŸã„äººã¯è‡ªç¿’ã—ã¦ãã ã•ã„ã€‚ æ–‡å—ã‚»ãƒƒãƒˆã®ä¾‹ Unicode JIS X 0208 ã²ã‚‰ãŒãªã¨ã‹ã‚«ã‚¿ã‚«ãƒŠã¨ã‹æ¼¢å—ã¨ã‹ ASCII æ–‡å— ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã®ä¾‹ UTF-8 ISO-202
nsyee 2008/08/13
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
Template-Toolkit - ãƒ¢ãƒ€ãƒ³ãªPerlå…¥é–€ - ãƒ¢ãƒ€ãƒ³ãªPerlå…¥é–€
Template-Toolkit Template-Toolkit ã¯ perl ã®ä¸–ç•Œã§ã‚‚ã£ã¨ã‚‚ã‚ˆãä½¿ã‚ã‚Œã¦ã„ã‚‹ãƒ†ãƒ³ãƒ—ãƒ¬ãƒ¼ãƒˆã‚¨ãƒ³ã‚¸ãƒ³ã®ä¸€ã¤ã§ã™ã€‚ ã¤ã‹ã„ã‹ãŸ # hoge.pl use strict; use warnings; use utf8; use Encode (); use Template; my $tt = Template->new( ENCODING => 'utf-8', # utf-8ã§ä¿å˜ã•ã‚ŒãŸãƒ†ãƒ³ãƒ—ãƒ¬ãƒ¼ãƒˆãƒ•ã‚¡ã‚¤ãƒ«ã‚’ utf8 flag ã¤ãã§ãƒãƒ¼ãƒ‰ã™ã‚‹ ); $tt->process('hoge.tt', { author => "ã‚¢ãƒ³ãƒ‡ã‚£" }, \my $out) or die $tt->error; print Encode::encode('utf-8', $out); # hoge.tt ã‚ãŸã—ã®ãªã¾ãˆã¯ [% author %] ã§ã™ã€‚ ãã€‚ã‹ã‚“ãŸ
nsyee 2008/08/13
Perl

TT

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ - ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
nsyee 2008/08/13
Perl

TT

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
use Encode::JP::Mobile; Â» SlideShare
Yokohama.pm #1 Em ail::Address::Loose / Em ail::Address::JP::Mobile
nsyee 2008/06/15
Perl

CPAN

Mobile

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
Unicodeã«ã¾ã¤ã‚ã‚‹å…¥å‡ºåŠ›ã®ãƒ•ãƒãƒ¼ã«ã¤ã„ã¦ - ãƒ¢ãƒ€ãƒ³ãªPerlå…¥é–€ - ãƒ¢ãƒ€ãƒ³ãªPerlå…¥é–€
Unicode ã«ã¾ã¤ã‚ã‚‹å…¥å‡ºåŠ›ã®ãƒ•ãƒãƒ¼ã«ã¤ã„ã¦ Perl ãƒ—ãƒã‚°ãƒ©ãƒ ã®å‡¦ç†ãƒ•ãƒãƒ¼ã¯ä¸‹è¨˜ã®ã‚ˆã†ã«ãªã‚‹ã€‚ å…¥åŠ›ã—ã¦ decode å‡¦ç† encode ã—ã¦å‡ºåŠ› ã‚‚ã—å…¥åŠ›ãŒãƒã‚¤ãƒŠãƒªã§ã‚ã£ã¦ã€ãã‚Œã‚’ãƒã‚¤ãƒŠãƒªã¨ã—ã¦æ“ä½œã™ã‚‹ã®ãªã‚‰ã° decode ã™ã‚‹ã¹ãã§ã¯ãªã„ã§ã™ãŒã€‚ ãã†ã§ã¯ãªã„ã™ã¹ã¦ã®ã‚±ãƒ¼ã‚¹ã§ decode ã™ã‚‹ã¹ãã§ã™ã€‚ ãƒ‡ãƒ¼ã‚¿ãŒã©ã®ã‚ˆã†ã«ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã•ã‚Œãˆã„ã‚‹ã‹ã‚’çŸ¥ã‚‰ãªãã¦ã¯ãã¡ã‚“ã¨ãƒ‡ãƒ¼ã‚¿ã‚’ decode ã™ã‚‹ã“ã¨ã¯ã§ãã¾ã›ã‚“ã€‚ ã‚‚ã—ã€ã‚ãªãŸãŒã©ã®ã‚ˆã†ãªã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã‚’ã¤ã‹ã†ã‹ã‚’é¸æŠžã§ãã‚‹ãªã‚‰ã° UTF-8 ã‚’é¸ã¶ã®ãŒã‚ˆã„ã§ã—ã‚‡ã†ã€‚ my $foo = decode('UTF-8', get 'http://example.com/'); my $bar = decode('ISO-8859-1', readline STDIN); my $xyzzy = decode('Windows
nsyee 2008/06/13
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
nsyee 2008/06/03
Perl

CPAN

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
Perl ã§ utf8 åŒ–ã‘ã—ãŸã¨ãã«ã©ã†ã—ãŸã‚‰ã„ã„ã‹ - TokuLog æ”¹ãƒ¡ tokuhiromâ€™s blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
nsyee 2008/04/10
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ - ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
nsyee 2008/04/05
Perl

catalyst

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
UTF-8 ã®ç¯„å›²å¤–ã®æ–‡å—ã‹ã©ã†ã‹èª¿ã¹ã‚‹ - spiritlooseã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
UTF-8 ã®ç¯„å›²å¤–ã®æ–‡å—ã‹ã©ã†ã‹ã€ã©ã†ã‚„ã£ã¦åˆ¤åˆ¥ã—ãŸã‚‰ã„ã„ã®ã ã‚ã† - @kyanny's blog ã“ã‚“ãªã‚“ã§ã©ã†ã§ã—ã‚‡ã†ã‹ã€‚ check_utf8.pl #!/usr/local/bin/perl use strict; use warnings; use Encode; while (<>) { eval { decode_utf8($_, Encode::FB_CROAK); }; if ($@) { warn "line $.: invalid utf-8 string"; } } ã¨ã„ã†ã‹ã€decode_utf8ã§ãã‚‹ã‹ã£ã¦ã“ã¨ã ã‘ã©ã€‚ é©å½“ã« $ cat utf8.txt euc-jp.txt sjis.txt utf8.txt > mixed.txt $ ./check_utf8.pl < mixed.txt ã¨ã‹ã§ã€‚ è¿½è¨˜ ãªã‚“ã¨ãªãUTF-8ã˜ã‚ƒãªã„éƒ¨åˆ†ã®ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£
nsyee 2008/04/01
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
utf8::is_utf8 considered harmful - Bulknews::Subtech - subtech
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
nsyee 2008/03/23
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
UTF8 ãƒ•ãƒ©ã‚°ã‚ã‚Œã“ã‚Œ - daily dayflower
UTF8 ãƒ•ãƒ©ã‚°ã«ã¤ã„ã¦ã‚ã‹ã£ã¦ã‚‹ã¤ã‚‚ã‚Šã ã£ãŸã‚“ã§ã™ãŒï¼Œutf8::is_utf8 considered harmful - Bulknews::Subtech - subtech ã‚’èªã‚“ã§æ··ä¹±ã—ãŸã®ã§ï¼Œè‡ªåˆ†ãªã‚Šã«ã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸã€‚é–“é•ã„ãŒã‚ã‚Šã¾ã—ãŸã‚‰ã”æŒ‡æ‘˜ã‚ˆã‚ã—ãã€‚ ã¾ã¨ã‚ ã‚¹ã‚«ãƒ©ãƒ¼å¤‰æ•°ã®å†…éƒ¨è¡¨è±¡ã®çŠ¶æ…‹ã‚’ç¤ºã™ã‚‚ã®ã¨ã—ã¦ UTF8 ãƒ•ãƒ©ã‚°ã¨ã„ã†ã‚‚ã®ãŒã‚ã‚‹ ã‚¹ã‚«ãƒ©ãƒ¼å¤‰æ•°ã¯ï¼ˆãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ç‰ã¯åˆ¥ã¨ã—ã¦ï¼‰ä¸‹è¨˜ã®ã‚‚ã®ã‚’æ ¼ç´ã§ãã‚‹ (A) æ–‡å—åˆ—ï¼ˆå†…éƒ¨è¡¨è±¡: UTF-8ï¼‰ (B) æ–‡å—åˆ—ï¼ˆå†…éƒ¨è¡¨è±¡: ISO-8859-1ï¼‰ (C) ãƒã‚¤ãƒŠãƒªåˆ— ç´”ç²‹ãªãƒã‚¤ãƒŠãƒªã‚¹ãƒˆãƒªãƒ¼ãƒ ï¼ˆç”»åƒãƒ•ã‚¡ã‚¤ãƒ«ç‰ï¼‰ã‹ã‚‚ã—ã‚Œãªã„ã—ï¼Œ UTF-8 octet stream ã‹ã‚‚ã—ã‚Œãªã„ã—ï¼Œ CP932 octet stream ã‹ã‚‚ã—ã‚Œãªã„ã—ï¼Œetc, etc ... Perl ã¯ï¼ˆå¾Œæ–¹äº’æ›æ€§ç¢ºä¿ãªã©ã®ç†ç”±ã‹ã‚‰ï¼‰ISO-8859-1
nsyee 2008/03/23
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
nsyee 2008/02/06
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
Perl 5.8.x Unicodeé–¢é€£
-> è¶£æ—¨ã¨æ³¨æ„æ›¸ã -> UTF8ãƒ•ãƒ©ã‚°ï¼Ÿ -> UTF8ãƒ•ãƒ©ã‚°ã¨PerlIOãƒ¬ã‚¤ãƒ¤ -> UTF8ãƒ•ãƒ©ã‚°ã®ã¤ã„ãŸæ–‡å—åˆ—ã‚’è¨˜è¿°ã™ã‚‹ -> Wide character in print ... -> Encode -> utf8::* -> use utf8; -> use encoding; -> use UTF8 ã¨ use encoding -> Jcodeã‹ã‚‰Encodeã¸ -> æƒ…å ±æº <- ãƒ¢ãƒ‰ãƒ« è¶£æ—¨ã¨æ³¨æ„æ›¸ã Perl 5.8.x ã®Unicode é–¢é€£ã§ã™ã€‚ æ£ç›´ã€5.8.x ã¯ã€ãƒã‚¿ã§ã—ã‹ä½¿ã£ã¦ãªã‹ã£ãŸã®ã§(ã‰ã€ã¡ã‚ƒã‚“ã¨ã„ã˜ã£ãŸã“ã¨ãŒã‚ã‚Šã¾ã›ã‚“ã§ã—ãŸã€‚ ä½¿ã£ã¦ã¿ã‚‹ã¨ã€ã‚ˆãã‚ã‹ã‚“ãªããªã£ãŸã®ã§ã€ã¡ã‚‡ã£ã¨ã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸã€‚ ä»Šã§ã‚‚ã‚ã‚“ã¾ã‚Šã‚ã‹ã£ã¦ãªã„ã‹ã‚‚ã—ã‚Œãªã„ã®ã§ã€å†…å®¹ã¯ç„¡ä¿è¨¼ã§ã™ã€‚ çªã£è¾¼ã¿æ“è¿Žã€‚ Jcodeã€Encodeã®ãƒ¡ãƒ³ãƒ†ãƒŠã®å¼¾ã•ã‚“ã‹ã‚‰ã€ã”æŒ‡æ‘˜ã„ãŸã ã„ãŸã®ã§ã€
nsyee 2008/02/06
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
use encoding 'utf-8' & encoding::warnings: blog.bulknews.net
use encoding 'utf-8' & encoding::warnings Perl ãƒã‚¿ã€‚ XML ã¾ã‚ã‚Šãªã‚“ã‹ã‚’æ‰±ã†ã¨ãã«ã¤ã„ã¦å›žã‚‹ UTF-8 ãƒ•ãƒ©ã‚° (Unicode ãƒ•ãƒ©ã‚°ï¼‰ã‚’ã©ã†è½ã¨ã™ã‹çš„ãƒã‚¿ãŒã‚‚ã‚Šã‚ãŒã£ã¦ã„ã¾ã™ãã‡ã€‚ã“ã®ãƒã‚¿ã¯æ‹™æ›¸ã® Blog Hacks ã§ã‚‚ 1 Hack ã•ã„ã¦è§£èª¬ã—ã¦ã‚ã‚Šã¾ã™ã€‚ Blog Hacks â€•ãƒ—ãƒãŒæ•™ãˆã‚‹ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯&ãƒ„ãƒ¼ãƒ«100é¸posted with amazlet on 05.09.30å®®å· é”å½¦ ä¼Šè—¤ ç›´ä¹Ÿ ã‚ªãƒ©ã‚¤ãƒªãƒ¼ãƒ»ã‚¸ãƒ£ãƒ‘ãƒ³ (2004/08/07) å£²ã‚Šä¸Šã’ãƒ©ãƒ³ã‚ãƒ³ã‚°: 20,714 Amazon.co.jp ã§è©³ç´°ã‚’è¦‹ã‚‹ ãŸã—ã‹ã«å†…éƒ¨çš„ã« UTF-8 ãƒ•ãƒ©ã‚°ã‚’è½ã¨ã—ã¦ãƒãƒªãƒãƒªã¤ãªã’ã¡ã‚ƒãˆã°ã€å ´å½“ãŸã‚Šçš„ã«æ¥½ã¯æ¥½ãªã‚“ã ã‘ã©ã€å†…éƒ¨çš„ã« Unicode ãƒ•ãƒ©ã‚°ã‚’ã‚‚ã£ãŸã¾ã¾å‡¦ç†ã—ã¦ã€æœ€å¾Œã«å‡ºåŠ›ã™ã‚‹ã¨ãã«è½ã¨ã™ï¼ˆencode ã™ã‚‹ï¼‰ã¨
nsyee 2008/02/06
Perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
1 2 3 æ¬¡ã®ãƒšãƒ¼ã‚¸