[B! perl] levelã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

level id:level

perlã«é–¢ã™ã‚‹levelã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (8)

${{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ã®è¨˜è¿°æ–¹æ³•ä¸€è¦§ - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º here Perl5.8ä»¥é™ã«ãŠã‘ã‚‹æ¨™æº–çš„ãªPerlã®æ›¸ãæ–¹ã‚’è§£èª¬ã—ã¾ã™ã€‚ ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆã§æ¤œç´¢ã™ã‚‹ã¨Perl4ã®ã“ã‚ã®å¤ã„è¨˜è¿°ãŒãŸãã•ã‚“ã‚ã‚Šã¾ã™ã€‚ã¾ãŸæ›¸ç±ãªã©ã®å¤šãã‚‚Perl4ã®è¨˜æ³•ã§æ›¸ã‹ã‚Œã¦ã„ã¾ã™ã€‚Perl4ã®è¨˜æ³•ã¯è¤‡é›‘ã«ãªã‚Šã‚„ã™ãé–“é•ã„ã‚’ç”Ÿã¿ã‚„ã™ã„ã®ã§ã“ã‚Œã‹ã‚‰Perlã‚’æ›¸ãäººã¯Perl5ã®ç¾ä»£çš„ãªè¨˜æ³•ã§è¨˜è¿°ã™ã‚‹ã“ã¨ã‚’å¼·ããŠå‹§ã‚ã—ã¾ã™ã€‚ strictãƒ—ãƒ©ã‚°ãƒžã¨warningsãƒ—ãƒ©ã‚°ãƒž (å¿…é ˆ) strictãƒ—ãƒ©ã‚°ãƒžã¨warningsãƒ—ãƒ©ã‚°ãƒžã‚’æœ‰åŠ¹ã«ã—ã¾ã™ã€‚ use strict; use warnings; use strict;ã¨use warnings;ã®ï¼’è¡Œã¯ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®æœ€åˆã«å¿…ãšè¨˜è¿°ã—ã¦ãã ã•ã„ã€‚ã“ã‚Œã‚‰ã¯Perlã®æ–‡æ³•ãƒã‚§ãƒƒã‚¯ã‚’åŽ³ã—ãã™ã‚‹ãŸã‚ã®ã‚‚ã®ã§ã™ã€‚é¢å€’ã ã¨ã„ã†è»½ã„æ°—æŒã¡ã§ã“ã‚Œã‚’è¨˜è¿°ã—ãªã„ã¨å¾Œã€…æœ¬å½“ã«é¢å€’ãªã“ã¨ã«ãªã‚Šã¾ã™ã€‚ use strict;ã¨use wa
level 2009/11/07
perl
ãƒªãƒ³ã‚¯
Kazuho@Cybozu Labs: Perl ã®ãƒ†ã‚¹ãƒˆç”¨ã« MySQL ç’°å¢ƒã‚’è‡ªå‹•ã§æ§‹ç¯‰ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« Test::mysqld ã‚’æ›¸ã„ãŸ
ORM ã‚„ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³é–¢é€£ã®ãƒ©ã‚¤ãƒ–ãƒ©ãƒªãªã©ã®ãƒ†ã‚¹ãƒˆã‚±ãƒ¼ã‚¹ã‚’æ›¸ãã«ã‚ãŸã£ã¦ã¯ã€ RDBMS ã¸ã®ã‚¢ã‚¯ã‚»ã‚¹ãŒå¿…è¦ã«ãªã‚Šã¾ã™ã€‚ã—ã‹ã—ã€SQLite ã®ã‚ˆã†ãªã‚¹ã‚¿ãƒ³ãƒ‰ã‚¢ãƒãƒ¼ãƒ³ã®ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã¨æ¯”è¼ƒã™ã‚‹ã¨ã€ã‚µãƒ¼ãƒåž‹ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã§ã‚ã‚‹ MySQL ã«æŽ¥ç¶šã—ã¦ãƒ†ã‚¹ãƒˆã‚’æ›¸ãã®ã¯ã€æ—¢å˜ã® MySQL ã®æ¨©é™è¨å®šã‚„ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹åã‚’æ°—ã«ã™ã‚‹å¿…è¦ãŒã‚ã£ãŸã‚Šã¨ã€ã„ã‚ã„ã‚ä¸ä¾¿ã§ã™ã€‚ãã“ã§ã€MySQL ã®ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ã‚’ãƒ†ãƒ³ãƒãƒ©ãƒªãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã«è‡ªå‹•ç”Ÿæˆã—ã€ãƒ†ã‚¹ãƒˆãŒçµ‚ã‚ã£ãŸã‚‰å‰Šé™¤ã—ã¦ãã‚Œã‚‹ Perl ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« Test::mysqld ã‚’æ›¸ãã¾ã—ãŸã€‚ã“ã‚“ãªæ„Ÿã˜ã§ä½¿ã„ã¾ã™ã€‚ use DBI; use Test::mysqld; use Test::More; my $mysqld = Test::mysqld->new( my_cnf => { 'skip-networking' => '' }, # TCPæŽ¥ç¶šã‚’
level 2009/08/04
perl

mysql
ãƒªãƒ³ã‚¯
Perl 2008å¹´ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚ªãƒ¼ãƒ—ãƒ³ - ã¦ã£ãç…®ãƒ–ãƒã‚°
perlç¬¬1å›žã€€Perlã®æ–‡æ³•ã®åŸºæœ¬ï¼šITpro ã¨ã„ã†è¨˜äº‹ã® ã¯ã¦ãƒ–ã‚³ãƒ¡ãƒ³ãƒˆã‚’è¦‹ã¦ã„ãŸã‚‰ã€Perl ãªã™ã”ã„äººé”ãŒæ–‡å¥è¨€ã£ã¦ãŸã€‚ otsune 2006å¹´ã®hyuki Catalystè¨˜äº‹ã‚’è¼‰ã›ã‚‹ã®ã‚‚ã‚¢ãƒ¬ãªã®ã«2003å¹´ã®è¨˜äº‹ã‚’è¼‰ã›ã‚‹ã®ã¯ç„¡ã—ã ã‚â€¦â€¦open IN, ...ã®ã‚ãŸã‚Šã¯æœ‰å®³æƒ…å ±ãªã®ã§å…¨åŠ›ã§è¦‹é€ƒã› TAKESAKO ã¡ã‚‡ï½—â†’å‡ºå…¸ï¼šæ—¥çµŒLinux 2003å¹´7æœˆå·ã€€125ãƒšãƒ¼ã‚¸ã‚ˆã‚Š miyagawa 2008å¹´ã«ã“ã®è¨˜äº‹ã¯ããƒ¼ã‚ˆã€ã¨æ€ã£ãŸã‚‰2003å¹´ã®è¨˜äº‹ã‚’ã„ã¾ã•ã‚‰å†æŽ²ã‹ã€‚ãªã‚“ã§ã‚ã–ã‚ã–å¤ã„è¨˜äº‹ã‚’æ–°ã—ã„ã‚‚ã®ã‹ã®ã‚ˆã†ã«å‡ºã—ã¦æ··ä¹±ã•ã›ã‚‹ï¼Ÿå•é¡ŒãŒã‚ã‚‹ã¨ã„ã†ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã¯ã“ã‚“ãªã®ã€‚ open IN, '; ãˆãƒ¼ï¼ã€€ã©ã“ãŒå•é¡Œã‚ã‚‹ã®ã‹ã•ã£ã±ã‚Šåˆ†ã‹ã‚‰ã‚“ï¼ï¼ï¼ï¼ï¼ï¼èª¿ã¹ã¦ã¿ãŸ2008å¹´æµã® Perl ãªæ›¸ãæ–¹ã‚’èª¿ã¹ã‚‹ãªã‚‰ perl-users.jpã€‚æ—©é€Ÿè¦‹ã¤ã‘ãŸã€‚oldtype ã¨ mode
level 2008/06/03
perl
ãƒªãƒ³ã‚¯
perl - Encode ä¸ç´š : 404 Blog Not Found
2008å¹´05æœˆ08æ—¥04:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - Encode ä¸ç´š ä»¥å‰æ›¸ã„ãŸ 404 Blog Not Found:perl - Encode å…¥é–€ ã¯å¤§å¥½è©•ã§ã—ãŸãŒã€ ã‚¦ã‚§ãƒ–ã§åˆ©ç”¨ã•ã‚Œã‚‹æ–‡å—ã‚³ãƒ¼ãƒ‰ã€UnicodeãŒASCIIã‚’ä¸Šå›žã‚‹--ã‚°ãƒ¼ã‚°ãƒ«ãŒæ˜Žã‚‰ã‹ã«:ãƒžãƒ¼ã‚±ãƒ†ã‚£ãƒ³ã‚° - CNET Japan UnicodeãŒASCIIã‚’è¿½ã„è¶Šã—ã€World Wide Webä¸Šã§æœ€ã‚‚å¤šãåˆ©ç”¨ã•ã‚Œã¦ã„ã‚‹æ–‡å—ã‚³ãƒ¼ãƒ‰ä½“ç³»ã«ãªã£ãŸã¨Googleã®ã‚·ãƒ‹ã‚¢ã‚¤ãƒ³ã‚¿ãƒ¼ãƒŠã‚·ãƒ§ãƒŠãƒ«ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚¢ãƒ¼ã‚ãƒ†ã‚¯ãƒˆMark Davisæ°ãŒãƒ–ãƒã‚°ã§è¿°ã¹ã¦ã„ã‚‹ã€‚ ã¨ã„ã†æ™‚ä»£ã«å®Œå…¨å¯¾å¿œã™ã‚‹ã«ã¯ã€å…¥é–€ä»¥ä¸Šã®çŸ¥è˜ãŒã¡ã‚‡ã£ã¨å¿…è¦ã«ãªã‚Šã¾ã™ã€‚ ä¾‹ãˆã°ã€æœ¬blogã‚’ãƒ›ã‚¹ãƒˆã—ã¦ãã‚Œã¦ã„ã‚‹livedoor blogã®æ–‡å—ã‚³ãƒ¼ãƒ‰ã¯EUC-JPã€‚ã€Œæ™‚ä»£ã¯Unicodeã€ã ã¨è¨€ã£ã¦ã‚‚ã€ã“ã†ã—ãŸäº‹æƒ…ã‚‚ã¾ã
level 2008/05/08
perl

unicode

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

encode
ãƒªãƒ³ã‚¯
Perlé€†å¼•ãè¾žå…¸ - ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã«ã‚ˆã‚‹ Perl å…¥é–€
Perl â€º here Perlã®é€†å¼•ãè¾žå…¸ã§ã™ã€‚ç™ºå±•çš„ãªè©±é¡Œã‚‚ã“ã¡ã‚‰ã€‚ ç‰¹å¾´ã‚’è§£èª¬ ãƒãƒ¼ã‚¸ãƒ§ãƒ³æƒ…å ± ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ ãƒ—ãƒã‚°ãƒ©ãƒ ã®è‡ªå‹•è©¦é¨“ ã‚½ã‚±ãƒƒãƒˆ ãƒ—ãƒã‚»ã‚¹é–“é€šä¿¡ ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ çµ±è¨ˆãƒ»è§£æž XSå…¥é–€ è¨€èªžå®Ÿè£…ã®ç ”ç©¶ è±†çŸ¥è˜ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åŸºç¤Ž ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘ æ—¥ä»˜ãƒ»æ™‚åˆ» æ–‡å—ã‚³ãƒ¼ãƒ‰ ãƒ“ãƒƒãƒˆæ¼”ç®—å Perl â€º here
level 2008/04/24
perl
ãƒªãƒ³ã‚¯
404 Blog Not Found:perl - Encode å…¥é–€
2008å¹´04æœˆ09æ—¥01:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - Encode å…¥é–€ ã™ã§ã«OSCONã§ã‚‚YAPCã§ã‚‚ã€ã‚ã¡ã“ã¡ãã¡ã“ã¡ã§ã“ã®åŸºæœ¬æ–¹é‡ã«é–¢ã—ã¦ã¯è©±ã—ãŸã®ã§ã™ãŒã€ã“ã“ 404 Blog Not Found ã§ã‚‚æ”¹ã‚ã¦ã€‚ Perl ã§ utf8 åŒ–ã‘ã—ãŸã¨ãã«ã©ã†ã—ãŸã‚‰ã„ã„ã‹ - TokuLog æ”¹ã‚ ã ã¾ã£ã¦ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã‘ã‚ˆãƒã‚² å…¥ã‚Šå£ã§ decode ã—ã¦ã€å†…éƒ¨ã§ã¯ã™ã¹ã¦ flagged utf8 ã§æ‰±ã„ã€å‡ºå£ã§ encode ã™ã‚‹ã€‚ã“ã‚ŒãŒã™ã¹ã¦ã§ã™ï¼ã¨ã«ã‹ãã“ã®åŸºæœ¬æ–¹é‡ã‚’ã¾ã‚‚ã£ã¦ã„ã‚Œã°å¹¸ã›ã«ãªã‚Œã¾ã™ã€‚ã“ã“ã§ã¯ã€EUC-JPã§ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã•ã‚ŒãŸãƒ•ã‚¡ã‚¤ãƒ«ä¸ã®ã€Œå°é£¼å¼¾ã€ã€Œã“ãŒã„ã ã‚“ã€ã€Œã‚³ã‚¬ã‚¤ãƒ€ãƒ³ã€ã€ŒKogai Danã€ã‚’æ£è¦è¡¨ç¾ã§æ›¸ãæ›ãˆã¦æ¨™æº–å‡ºåŠ›ã«EUC-JPã§å‡ºåŠ›ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’ä¾‹ã«ã¨ã£ã¦èª¬æ˜Žã—ã¾ã™ã€‚ decode() then encode(
level 2008/04/09
utf8

perl

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

encode
ãƒªãƒ³ã‚¯
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
level 2008/04/08
perl

utf8
ãƒªãƒ³ã‚¯
Perl5.8 ã® UNICODE å¯¾å¿œ
perl ã¯ 5.8 ã‹ã‚‰ Unicode(utf-8) ãŒã‚µãƒãƒ¼ãƒˆã•ã‚Œã¾ã—ãŸï¼Ž5.6 ã§ã‚‚ Unicode ã«å¯¾å¿œã¯ã—ã¦ã„ã¾ã—ãŸãŒï¼Œãœã‚“ãœã‚“ä½¿ã„ç‰©ã«ãªã‚‰ãšï¼Œã‚ˆã†ã‚„ã 5.8 ã§ã¾ã¨ã‚‚ã«ä½¿ãˆã‚‹ã‚ˆã†ã«ãªã£ãŸã¨ã„ã†ã“ã¨ã§ã™ï¼ŽãŸã ã›ã£ã‹ãä½¿ãˆã‚‹ã«ã‚‚ã‹ã‹ ã‚ã‚‰ãš perldoc ãªã©ã‚’è¦‹ã¦ã‚‚ã‚¤ãƒžã‚¤ãƒä½¿ã„æ–¹ãŒã‚ã‹ã‚‰ãªã„ã®ã§ï¼Œç‹¬è‡ªã«ã¾ã¨ ã‚ã¦ã¿ãŸã®ãŒã“ã®ãƒšãƒ¼ã‚¸ã§ã™ï¼Ž èª¤ã£ãŸæ›¸ãæ–¹ã‚„å‹˜é•ã„ã‚’ã—ã¦ã„ ã‚‹ã“ã¨ã‚‚ã‚ã‚‹ã®ã§ï¼Œå½¢å¼çš„ã§ã™ãŒã“ã®ãƒšãƒ¼ã‚¸ã®å†…å®¹ã¯ç„¡ä¿è¨¼ã§ã™ï¼Ž å†…å®¹ æ–‡å—ã‚³ãƒ¼ãƒ‰å¤‰æ› perlIO jperlã‹ã‚‰ã®ç§»è¡Œ UTF-8ãƒ•ãƒ©ã‚° æ–‡å—ã‚³ãƒ¼ãƒ‰è‡ªå‹•åˆ¤åˆ¥ Unicode Standard Unicode æ£è¦åŒ– ãã®ä»– å‚è€ƒè³‡æ–™ æ–‡å—ã‚³ãƒ¼ãƒ‰å¤‰æ› ã¨ã‚Šã‚ãˆãš perl5.8 ã§æ–°ã—ãçµ„ã¿è¾¼ã¾ã‚ŒãŸæ©Ÿèƒ½ã‚’è¦‹ã‚‹ãŸã‚ã«ï¼Œeuc-jp ã‹ã‚‰ shift_jis ã¸ã®å¤‰æ›ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ã„ãã¤ã‹è¼‰ã›ã¾ã™ï¼Ž openã‚’åˆ©ç”¨ã—
level 2008/02/16
perl

unicode
ãƒªãƒ³ã‚¯
1