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

nantan id:nantan

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

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

ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ - SMART é–‹ç™ºè€…ã®ãŸã‚ã®ã‚¦ã‚§ãƒ–ãƒžã‚¬ã‚¸ãƒ³
ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®åˆ©ç”¨æ–¹æ³• Perlã«ã¯ã‚¹ã‚«ãƒ©ã‚„é…åˆ—ã€ãƒãƒƒã‚·ãƒ¥ã®ã»ã‹ã«ã€ã€Žãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€ã¨ã„ã†ä¸€é¢¨å¤‰ã‚ã£ãŸå¤‰æ•°ãŒã‚ã‚Šã¾ã™ã€‚ã‚¹ã‚«ãƒ©ã«ä»£è¡¨ã•ã‚Œã‚‹ä¸€èˆ¬çš„ãªå¤‰æ•°ã¯ã€ãã®åã®ã¨ãŠã‚Šãƒ‡ãƒ¼ã‚¿ï¼ˆå€¤ï¼‰ã‚’è¨˜éŒ²ã™ã‚‹ãŸã‚ã®ã‚‚ã®ã§ã™ãŒã€ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã¯é•ã„ã¾ã™ã€‚ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã¯å€¤ã‚’è¨˜éŒ²ã™ã‚‹ä»£ã‚ã‚Šã«ã€å€¤ã‚’æ ¼ç´ã—ã¦ã„ã‚‹ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’è¨˜éŒ²ã—ã¾ã™ã€‚ ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®æ¦‚è¦ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹æ¼”ç®—åï¼ˆ\ï¼‰ã‚’ä½¿ã£ãŸãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®ä½œæˆãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®å‚ç…§å‚ç…§å…ˆã®ãƒ‡ãƒ¼ã‚¿ã‚¿ã‚¤ãƒ—ã‚’èª¿ã¹ã‚‹ã‚½ãƒ•ãƒˆãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®æ¦‚è¦ ã“ã“ã§ã¡ã‚‡ã£ã¨å¤‰æ•°ã«ã¤ã„ã¦ãŠã•ã‚‰ã„ã—ã¦ã¿ã¾ã—ã‚‡ã†ã€‚å¤‰æ•°ã¯ã€ãƒ¦ãƒ¼ã‚¶ãŒæŒ‡å®šã—ãŸå€¤ã‚’è¨˜éŒ²ã—ã€ã‚ã¨ã‹ã‚‰å¤‰æ•°åã‚’ä½¿ã£ã¦ãã®å€¤ã‚’å‘¼ã³å‡ºã™ãŸã‚ã®ã‚‚ã®ã§ã™ã€‚ã“ã®ã¨ãã€å¤‰æ•°ãŒä½•ã‚’ã‚„ã£ã¦ã„ã‚‹ã‹ã¨ã„ã†ã¨ã€æŒ‡å®šã•ã‚ŒãŸå€¤ã‚’ã‚³ãƒ³ãƒ”ãƒ¥ãƒ¼ã‚¿ã®ãƒ¡ãƒ¢ãƒªã«è¨˜éŒ²ã—ã¦ã€ã‚¢ãƒ‰ãƒ¬ã‚¹ã¨å¤‰æ•°åã‚’ãƒªãƒ³ã‚¯ã•ã›ã¦ã„ã¾ã™ã€‚ ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã¯ã€å€¤ã®ä»£ã‚ã‚Šã«ã€å¤‰æ•°åã«ãƒªãƒ³ã‚¯ã•ã‚ŒãŸã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’è¨˜éŒ²ã™ã‚‹ã‚¹ã‚«
nantan 2012/06/26
perl

æ¼”ç®—å

ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹
ãƒªãƒ³ã‚¯
Site Cooler NZ | Points to Note When Shopping for a Washing Machine
Blog Post Featured post Sprinkle delicious dishes as a cook with gourmet cookware Continue reading Points to Note When Shopping for a Washing Machine There are different washing machines brands in New Zealand. When shopping, therefore, you need to ensure that first, you get a quality machine; a machine that will last through many years without breaking down. You check product warranties and review
nantan 2012/06/26
perl

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°

é…åˆ—

ãƒãƒƒã‚·ãƒ¥
ãƒªãƒ³ã‚¯
SQLiteã§å¦ã¶ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹æ“ä½œã®åŸºç¤Ž - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ â€º here Perlã‚’ä½¿ã£ã¦ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã¯åˆç´šè€…ãŒå¦ã¶ã«ã¯ä»Šã¾ã§ã¯å°‘ã—æ•·å±…ã®é«˜ã„ã‚‚ã®ã§ã—ãŸã€‚ã¾ãšSQLã®å®Ÿè¡Œç’°å¢ƒã‚’æ§‹ç¯‰ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã™ãã«å‹‰å¼·ã—ãŸã„ã¨ã„ã†éœ€è¦ã‚’æº€ãŸã™ã“ã¨ã¯ã§ãã¦ã„ã¾ã›ã‚“ã§ã—ãŸã€‚ ã§ã™ãŒç¾åœ¨ã¯ã“ã®çŠ¶æ³ã¯å¤‰ã‚ã‚Šã¾ã—ãŸã€‚ç¾åœ¨ã§ã¯ActivePerlã‚’ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã™ã‚‹ã¨DBD::SQLiteã¨å‘¼ã°ã‚Œã‚‹SQLiteã‚’åˆ©ç”¨ã™ã‚‹ãŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒãƒ‘ãƒƒã‚±ãƒ¼ã‚¸ãƒ³ã‚°ã•ã‚Œã¦ã„ã¾ã™ã€‚ ã¾ãŸãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã«æŽ¥ç¶šã™ã‚‹ãŸã‚ã®ãƒ¦ãƒ¼ã‚¶ã‹ã‚‰è¦‹ãŸã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ã‚¤ã‚¹éƒ¨åˆ†ã«ã‚ãŸã‚‹DBIã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚‚ãƒ‘ãƒƒã‚±ãƒ¼ã‚¸ãƒ³ã‚°ã•ã‚Œã¦ã„ã¾ã™ã€‚ ã§ã™ã®ã§ActivePerlã®æœ€æ–°ç‰ˆã‚’ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã™ã‚‹ã ã‘ã§ä½•ã®ç’°å¢ƒæ§‹ç¯‰ã‚‚è¡Œã‚ãªã„ã§ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã‚’å¦ç¿’ã—å§‹ã‚ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ DBD::SQLiteã¨DBIãŒã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¦ã„ã‚‹ã“ã¨ã‚’ç¢ºèªã™ã‚‹ ã¾ãšDBD::SQLiteã¨DBIãŒã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¦ã„ã‚‹ã‹ã©
nantan 2012/06/26
perl

SQL

ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹
ãƒªãƒ³ã‚¯
ã‚½ãƒ¼ãƒˆæ™‚ã«å¤§æ–‡å—å°æ–‡å—ã‚’åŒä¸€è¦–
Landscape ãƒˆãƒƒãƒ—ãƒšãƒ¼ã‚¸ | < å‰ã®æ—¥ 2004-04-01 2004-04-03 æ¬¡ã®æ—¥ 2004-04-04 > Landscape - ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã®ãƒ¡ãƒ¢Â 2004-04-03 ã‚½ãƒ¼ãƒˆæ™‚ã«å¤§æ–‡å—å°æ–‡å—ã‚’åŒä¸€è¦– å½“ã‚µã‚¤ãƒˆå†…ã‚’ Google æ¤œç´¢ã§ãã¾ã™ * ã‚½ãƒ¼ãƒˆæ™‚ã«å¤§æ–‡å—å°æ–‡å—ã‚’åŒä¸€è¦–ã“ã®è¨˜äº‹ã®ç›´ãƒªãƒ³ã‚¯URL: Permlink | ã“ã®è¨˜äº‹ãŒå±žã™ã‚‹ã‚«ãƒ†ã‚´ãƒª: [Perl] [chalow] ã“ã®ãƒšãƒ¼ã‚¸ã«ã‚«ãƒ†ã‚´ãƒªä¸€è¦§ã‚’è¡¨ç¤ºã™ã‚‹ã‚ˆã†ã«ã—ãŸãŒã€å¤§æ–‡å—ã¨å°æ–‡å—ã‚’åŒä¸€è¦–ã—ã¦ãã‚Œãªã„ã€‚ä¸€æ–‡å—ç›®ãŒ A ã‹ã‚‰ Z ã®ã‚«ãƒ†ã‚´ãƒªãŒä¸¦ã‚“ã å¾Œã«ã€ä¸€æ–‡å—ç›®ãŒ a ã‹ã‚‰ z ã§å§‹ã¾ã‚‹ã‚«ãƒ†ã‚´ãƒªãŒä¸¦ã¶ã€ã¨ã„ã†çŠ¶æ…‹ã«ãªã£ã¦ã‚‹ã€‚ã“ã‚Œã§ã‚‚è‰¯ã„ã‹ãªã¨ã‚‚æ€ã£ãŸã®ã ãŒã€chalow ã®ã‚«ãƒ†ã‚´ãƒªã¨ ChangeLog ãƒ¡ãƒ¢ ã®ã‚«ãƒ†ã‚´ãƒªãŒé›¢ã‚Œã¦ã—ã¾ã†ã®ãŒç—›ã„ã€‚ãã‚Œã«ã‚„ã£ã±ã‚Šå¤§æ–‡å—å°æ–‡å—é–¢ä¿‚ãªã—ã§ã‚¢ãƒ«ãƒ•ã‚¡ãƒ™ãƒƒãƒˆé †ã«ä¸¦ã‚“ã æ–¹
nantan 2012/06/15
Perl

ã‚½ãƒ¼ãƒˆ
ãƒªãƒ³ã‚¯
ãƒãƒƒã‚·ãƒ¥ã®å€¤ã«é…åˆ—ã‚’æ ¼ç´ã™ã‚‹ - TagoSuckã®ç‹¬ç¿’ãƒ—ãƒã‚°ãƒ©ãƒ æ—¥è¨˜ã€€ãŸã”ã‚ã
Perlã§ã‚‚å¤šæ¬¡å…ƒé…åˆ—ãŒä½¿ã„ãŸã„å ´åˆãªã©ã¯ã€å¤šã€…ã‚ã‚Šã¾ã™ã€‚ ã§ãã‚Œã°é€£æƒ³é…åˆ—(ãƒãƒƒã‚·ãƒ¥)ã®å€¤ã«é…åˆ—ã‚’æ ¼ç´ã§ãã‚‹ã¨ã€ æ›´ã«ä¾¿åˆ©ã«ä½¿ãˆã‚‹ã¨æ€ã„ã¾ã™ã€‚ CSVãƒ•ã‚¡ã‚¤ãƒ«ã®ãƒ‡ãƒ¼ã‚¿ã‚’ã€ç‰¹å®šã®ã‚ãƒ¼ã”ã¨ã«ã¾ã¨ã‚ã‚‹éš›ãªã©ã«ã¯ å½¹ã«ç«‹ã¤ã®ã§ã¯ãªã„ã§ã—ã‚‡ã†ã‹ã€‚
nantan 2012/06/15
Perl

ãƒãƒƒã‚·ãƒ¥
ãƒªãƒ³ã‚¯
SMART! ã‚¦ã‚§ãƒ–è¬›åº§ã€€sql
1.ãƒãƒƒã‚·ãƒ¥ã¸å€¤ã‚’ä»£å…¥ ãƒãƒƒã‚·ãƒ¥å¤‰æ•°ã¯ã€é…åˆ—ã®ã‚¤ãƒ³ãƒ‡ãƒƒã‚¯ã‚¹ãŒæ–‡å—åˆ—ã¨ãªã£ãŸã‚‚ã®ã§ã€ã“ã®ã‚¤ãƒ³ãƒ‡ãƒƒã‚¯ã‚¹ã‚’ã€Žã‚ãƒ¼ã€ã¨å‘¼ã³ã¾ã™ã€‚ãƒãƒƒã‚·ãƒ¥ã®å ´åˆã¯è¦ç´ ã®å€¤ãŒã‚ãƒ¼ã«ã‚ˆã£ã¦ç®¡ç†ã•ã‚Œã¾ã™ã€‚ ãƒãƒƒã‚·ãƒ¥ã®å®£è¨€ ãƒãƒƒã‚·ãƒ¥ã¸å€¤ã‚’ä»£å…¥ ãƒãƒƒã‚·ãƒ¥ã®å®£è¨€ ãƒãƒƒã‚·ãƒ¥ã‚’å®£è¨€ã™ã‚‹ã¨ãã¯å¤‰æ•°åã®å‰ã«ãƒ‘ãƒ¼ã‚»ãƒ³ãƒˆï¼ˆ % ï¼‰ã‚’ä»˜ã‘ã¾ã™ã€‚ %hash; ãƒãƒƒã‚·ãƒ¥ã¸å€¤ã‚’ä»£å…¥ é…åˆ—ã§ã¯ã€[ ] ã§ã‚¤ãƒ³ãƒ‡ãƒƒã‚¯ã‚¹ã‚’å›²ã¿ã¾ã—ãŸãŒã€ãƒãƒƒã‚·ãƒ¥ã¯ã€ { }ã§ã‚ãƒ¼ã‚’å›²ã¿ã¾ã™ã€‚ä¾‹ãˆã°ç¤¾å“¡ã®åå‰ã¨ãƒ¡ãƒ¼ãƒ«ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’ç®¡ç†ã™ã‚‹å ´åˆã€æ¬¡ã®ã‚ˆã†ãªæ–¹æ³•ã§ãƒãƒƒã‚·ãƒ¥ã‚’ä½¿ã£ãŸç®¡ç†ãŒã§ãã¾ã™ã€‚ $hash{'Akai'} = 'akai@domain.com'; $hash{'Ishikawa'} = 'ishi@domain.com'; $hash{'Ueda'} = 'ueda@domain.com'; è¤‡æ•°ã®å€¤ã‚’ä¸€åº¦ã«ãƒãƒƒã‚·ãƒ¥ã¸ä»£å…¥ã™ã‚‹ã«ã¯ã€ã‚ãƒ¼ã€å€¤ã®é †ç•ªã§è¨˜è¿°ã—ã¾ã™ã€‚
nantan 2012/06/15
Perl

ãƒãƒƒã‚·ãƒ¥
ãƒªãƒ³ã‚¯
Perl ã§ãƒãƒƒã‚·ãƒ¥ã®é…åˆ—ã€é…åˆ—ã®ãƒãƒƒã‚·ãƒ¥
Landscape ãƒˆãƒƒãƒ—ãƒšãƒ¼ã‚¸ | < å‰ã®æ—¥ 2003-10-10 2003-10-11 æ¬¡ã®æ—¥ 2003-10-14 > Landscape - ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã®ãƒ¡ãƒ¢Â 2003-10-11 Perl ã§ãƒãƒƒã‚·ãƒ¥ã®é…åˆ—ã€é…åˆ—ã®ãƒãƒƒã‚·ãƒ¥ å½“ã‚µã‚¤ãƒˆå†…ã‚’ Google æ¤œç´¢ã§ãã¾ã™ * Perl ã§ãƒãƒƒã‚·ãƒ¥ã®é…åˆ—ã€é…åˆ—ã®ãƒãƒƒã‚·ãƒ¥ã“ã®è¨˜äº‹ã®ç›´ãƒªãƒ³ã‚¯URL: Permlink | ã“ã®è¨˜äº‹ãŒå±žã™ã‚‹ã‚«ãƒ†ã‚´ãƒª: [Perl] ãŠã•ã‚‰ã„ã€‚ - ãƒãƒƒã‚·ãƒ¥ã®é…åˆ—ãƒãƒƒã‚·ãƒ¥ã‚³ãƒ³ã‚¹ãƒˆãƒ©ã‚¯ã‚¿ {} ã‚’ä½¿ã£ã¦ç„¡åãƒãƒƒã‚·ãƒ¥ã‚’ä½œæˆã—ã€ ä½œæˆã—ãŸãƒãƒƒã‚·ãƒ¥ã¸ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’é…åˆ—ã«å…¥ã‚Œã¦ã‚ã’ã‚‹ã¨ã€ãƒãƒƒã‚·ãƒ¥ã®é…åˆ—ã‚’ä½œã‚Œã‚‹ã€‚ my @list_of_hash = (); foreach my $i (1..5) { my $hash = { name => 'hiroaki' . $i, count => $i }; push(@l
nantan 2012/06/15
perl

ãƒãƒƒã‚·ãƒ¥

é…åˆ—
ãƒªãƒ³ã‚¯
ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®ä½¿ã„æ–¹ã‚’ãƒžã‚¹ã‚¿ãƒ¼ã—ã‚ˆã† - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º here ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã¨ã¯ãƒ‡ãƒ¼ã‚¿ã‚’æŒ‡ã—ç¤ºã™ã‚‚ã®ã‚’è¡¨ç¾ã—ã¾ã™ã€‚Cè¨€èªžã®ãƒã‚¤ãƒ³ã‚¿ã®ã‚ˆã†ãªã‚‚ã®ã ã¨è€ƒãˆã‚‹ã¨ç†è§£ã—ã‚„ã™ã„ã§ã™ã€‚ é…åˆ—ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ é…åˆ—ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã«ã¤ã„ã¦è§£èª¬ã—ã¦ã„ãã¾ã™ã€‚ é…åˆ— é…åˆ—ã®ä½œæˆã§ã™ã€‚ my @nums = (1, 2, 3); é…åˆ—ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®ä½œæˆ é…åˆ—ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®ä½œæˆã§ã™ã€‚ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã¯ã€Œ\ã€è¨˜å·ã‚’ä½¿ã£ã¦ä½œæˆã—ã¾ã™ã€‚ my @nums = (1, 2, 3); my $nums = \@nums; ã€Œãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€ã¨ã¯ã€ŒæŒ‡ã™ã‚‚ã®ã€ã‚’æ„å‘³ã—ã¾ã™ã€‚$numsã¯@numsã‚’æŒ‡ã—ã¦ã„ã¾ã™ã€‚ $nums ---> @nums ç„¡åé…åˆ—ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®ä½œæˆ ç„¡åé…åˆ—ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®ä½œæˆã§ã™ã€‚ã€Œ[]ã€ã¯ç„¡åé…åˆ—ç”Ÿæˆåã¨å‘¼ã°ã‚Œã¾ã™ã€‚ my $nums = [1, 2, 3]; $numsã¯ã€åå‰ã‚’æŒãŸãªã„ã€Œ(1, 2, 3)ã€ã¨ã„ã†é…åˆ—ã‚’æŒ‡ã—ç¤ºã—ã¦ã„ã¾ã™ã€‚
nantan 2012/06/15
Perl

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°

ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹

é…åˆ—

ãƒãƒƒã‚·ãƒ¥
ãƒªãƒ³ã‚¯
ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°åˆå¿ƒè€…ã«ã‚ªã‚¹ã‚¹ãƒ¡ã®Perlæœ¬ - Islands in the byte stream (legacy)
ã“ã®æ™‚æœŸã€Perlã‚’å¦ã³å§‹ã‚ã‚‹æ–¹ã‚‚å¤šã„ã¨æ€ã„ã¾ã™ã€‚ãã“ã§ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°åˆå¿ƒè€…ãŒPerlã‚’å¦ã¶ã®ã«é©ã—ãŸæœ¬ã‚’ã€ç§ãŒå®Ÿéš›ã«èªã‚“ã ã“ã¨ã®ã‚ã‚‹ã‚‚ã®ã®ä¸ã‹ã‚‰é¸ã‚“ã§ã¿ã¾ã—ãŸã€‚ 1å†Šç›® 1å†Šç›®ã¯ãªã‚“ã§ã‚‚ã„ã„ã¨æ€ã†ã®ã§ã¨ã‚Šã‚ãˆãšå®šç•ªã¨ã—ã¦ãƒªãƒ£ãƒžæœ¬ã‚’æŒ™ã’ã¦ãŠãã¾ã™ã€‚ åˆã‚ã¦ã®Perl ç¬¬5ç‰ˆ ä½œè€…: Randal L. Schwartz,Tom Phoenix,brian d foy,è¿‘è—¤å˜‰é›ªå‡ºç‰ˆç¤¾/ãƒ¡ãƒ¼ã‚«ãƒ¼: ã‚ªãƒ©ã‚¤ãƒªãƒ¼ã‚¸ãƒ£ãƒ‘ãƒ³ç™ºå£²æ—¥: 2009/10/26ãƒ¡ãƒ‡ã‚£ã‚¢: å¤§åž‹æœ¬è³¼å…¥: 22äºº ã‚¯ãƒªãƒƒã‚¯: 293å›žã“ã®å•†å“ã‚’å«ã‚€ãƒ–ãƒã‚° (41ä»¶) ã‚’è¦‹ã‚‹ã“ã‚Œã§åŸºæœ¬çš„ãªPerlã®æ–‡æ³•ãŒå¦ã¹ã‚‹ã¯ãšã§ã™ã€‚ã“ã®æ‰‹ã®å…¥é–€æ›¸ã¯ã€Œèª²é¡Œã€ãŒã¤ãã‚‚ã®ã§ã™ãŒã€ã™ã¹ã¦è§£ãå¿…è¦ã¯ãªã„ã¨æ€ã„ã¾ã™ã€‚å¹¾ã¤ã‹æ°—ã«ãªã‚‹ã‚‚ã®ãƒ»é¢ç™½ãã†ãªã‚‚ã®ã ã‘è©¦ã—ã¦ã¿ã‚Œã°ã„ã„ã§ã—ã‚‡ã†ã€‚ 1å†Šç›®èªäº†ã®è¾žå…¸ã§ã¯ã€ä»¥ä¸‹ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã®ç°¡æ˜“ãƒãƒ¼ã‚¸ãƒ§ãƒ³*1ã‚’å®Ÿè£…ã§ãã‚‹ã‚ˆã†
nantan 2011/05/06
perl

cpan

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°

æœ¬
ãƒªãƒ³ã‚¯
Unavailable
The page is unavailable. Please visit the main one.
nantan 2011/04/08
ruby

php

perl

mysql

ã‚µãƒ³ãƒ—ãƒ«
ãƒªãƒ³ã‚¯
Encodeãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã®MIME Encode - [ã´](2006-12-15)
_ [Perl] Encodeãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã®MIME Encode Encodeãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§æ–‡å—ã‚³ãƒ¼ãƒ‰ã®å¤‰æ›ãŒã§ãã‚‹ãŒã€MIMEã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã‚’ã™ã‚‹ã«ã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ã™ã‚Œã°ã‚ˆã„ã€‚ use Encode; encode('MIME-Header-ISO_2022_JP', $subject) [Encodeãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã®MIME Encodeã‚ˆã‚Šå¼•ç”¨] ãã†ã ã£ãŸãƒŽã‚«ãƒ¼ C:\> perl -MEncode -e "print encode('MIME-Header-ISO_2022_JP', decode('cp932', 'ãƒ†ã‚¹ãƒˆ'))" =?ISO-2022-JP?B?GyRCJUYlOSVIGyhC?= ã†ã‚“ã€‚ C:\> perl -MEncode -e "print encode('MIME-Header-ISO_2022_JP', decode('cp932', 'ä¸»äººãŒã‚ªã‚ªã‚¢ãƒªã‚¯ã‚¤ã«
nantan 2011/04/01
Perl

ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰

encode
ãƒªãƒ³ã‚¯
æ£è¦è¡¨ç¾ - SMART é–‹ç™ºè€…ã®ãŸã‚ã®ã‚¦ã‚§ãƒ–ãƒžã‚¬ã‚¸ãƒ³
æ£è¦è¡¨ç¾ã®æ¦‚è¦ æ£è¦è¡¨ç¾ã¯ã€Perlã®ä¸ã§æœ€ã‚‚é‡å®ã™ã‚‹æ©Ÿèƒ½ã®ã²ã¨ã¤ã§ã™ã€‚æ£è¦è¡¨ç¾ã«ã¯ãƒ†ã‚ã‚¹ãƒˆå‡¦ç†ã®ãŸã‚ã®æ§˜ã€…ãªæ©Ÿèƒ½ãŒã‚ã‚Šã€æ–‡å—åˆ—ã®ä¸ã‹ã‚‰ç‰¹å®šã®ãƒ‘ã‚¿ãƒ¼ãƒ³ã‚’è¦‹ã¤ã‘å‡ºã—ãŸã‚Šã€ç½®æ›ã—ãŸã‚Šã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ æ£è¦è¡¨ç¾ã®åŸºæœ¬çš„ãªä½¿ç”¨æ–¹æ³• ãŸã¨ãˆã°ã€$strã¨ã„ã†å¤‰æ•°ã«æ ¼ç´ã—ãŸãƒ‡ãƒ¼ã‚¿ã®ä¸ã‹ã‚‰ã€ã€ŒAã€ã§å§‹ã¾ã£ã¦é€”ä¸ã¯ä½•ãŒã‚ã‚‹ã‹ã‚ã‹ã‚‰ãªã„ãŒæœ€å¾ŒãŒã€ŒEã€ã¨ã„ã†æ–‡å—åˆ—ã‚’æŽ¢ã—ãŸã„å ´åˆï½¤æ¬¡ã®ã‚ˆã†ã«è¨˜è¿°ã™ã‚‹ã“ã¨ã§ã€æ¡ä»¶ã«ãƒžãƒƒãƒã™ã‚‹æ–‡å—åˆ—ã‚’è¦‹ã¤ã‘ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ $str =~ /A.*E/; ä¸Šè¨˜ã§ã¯ã€ãƒ‰ãƒƒãƒˆ( . )ãŒæ”¹è¡Œä»¥å¤–ã®1æ–‡å—ã‚’è¡¨ã—ã€ã‚¢ã‚¹ã‚¿ãƒªã‚¹ã‚¯( * )ãŒãã®ä»»æ„ã®æ–‡å—ã®0å›žä»¥ä¸Šã®ç¹°ã‚Šè¿”ã—ã‚’æ„å‘³ã—ã¾ã™ã€‚ã“ã®ã‚ˆã†ã«ã€æ£è¦è¡¨ç¾ã«ãŠã„ã¦ç‰¹æ®Šãªåƒãã‚’æŒã£ãŸæ–‡å—ã‚’æ£è¦è¡¨ç¾æ¼”ç®—åã€ã¾ãŸã¯ãƒ¡ã‚¿æ–‡å—ã¨å‘¼ã³ã¾ã™ã€‚ã¾ãŸã€=~ ã¯ãƒ‘ã‚¿ãƒ¼ãƒ³çµåˆæ¼”ç®—åã¨å‘¼ã°ã‚Œã€ã€Œå·¦è¾ºã®å€¤ã‹ã‚‰å³è¾ºã®å€¤ã‚’æ¤œç´¢ã™ã‚‹ã€ã¨ã„ã†æ„å‘³ãŒã‚ã‚Šã¾ã™ã€‚ æ£è¦è¡¨ç¾
nantan 2011/03/28
perl

æ£è¦è¡¨ç¾

tips

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
ãƒªãƒ³ã‚¯
Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«
Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ« [ã‚µãƒ¼ãƒã®å®Ÿé¨“å®¤ Slackware] ä½œæˆ : 2002/09/26 "ã‚µãƒ¼ãƒã®å®Ÿé¨“å®¤"ã®æ¤œç´¢ ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«æ¸ˆã¿Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®è¡¨ç¤º Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã‚‹ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã¯ã€@INCã¨ã„ã†é…åˆ—å¤‰æ•°ã«æ ¼ç´ã•ã‚Œã¦ã„ã‚‹ã€‚ @INCãŒæŒ‡ã—ç¤ºã™ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã¯ã€æ¬¡ã®ã¨ãŠã‚Šã€‚ # perl -e 'print "@INC"' /usr/lib/perl5/5.6.1/i386-linux /usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i386-linux /usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/si
nantan 2011/03/14
make

perl

cpan
ãƒªãƒ³ã‚¯
localtimeé–¢æ•° - ç¾åœ¨ã®æ—¥ä»˜ãƒ»æ™‚åˆ»ã‚’å–å¾—ã™ã‚‹ - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º é–¢æ•° â€º here localtimeé–¢æ•°ã‚’ä½¿ç”¨ã™ã‚‹ã¨ã€ç¾åœ¨ã®æ—¥ä»˜ã¨æ™‚åˆ»ã‚’å–å¾—ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚å„åœ°åŸŸã«ã‚ã‚ã›ãŸãƒãƒ¼ã‚«ãƒ«æ™‚é–“ã‚’å–å¾—ã§ãã¾ã™ã€‚ # ç§’ åˆ† æ™‚ æ—¥ æœˆ å¹´ æ›œæ—¥ å¹´åˆã‹ å¤æ™‚é–“ã‚’ # ã‚‰ã® é©ç”¨ã—ã¦ # çµŒéŽæ—¥ ã„ã‚‹ã‹ my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime; # æ™‚åˆ»æ–‡å—åˆ— my $localtime = localtime; ãƒªã‚¹ãƒˆã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã§ä½¿ç”¨ã—ãŸå ´åˆã¯æ—¥ä»˜ãƒ»æ™‚åˆ»ã®è¦ç´ æƒ…å ±ã€ã‚¹ã‚«ãƒ©ã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã§ä½¿ç”¨ã—ãŸå ´åˆã¯ã€æ—¥ä»˜ãƒ»æ™‚åˆ»ã‚’è¡¨ã™æ–‡å—åˆ—ã‚’å–å¾—ã§ãã¾ã™ã€‚ å”å®šä¸–ç•Œæ™‚ã‚’å–å¾—ã—ãŸã„å ´åˆã¯ã€gmtimeé–¢æ•°ã‚’ä½¿ç”¨ã—ã¦ãã ã•ã„ã€‚ ã‚¨ãƒãƒƒã‚¯ã‹ã‚‰ã®çµŒéŽæ™‚é–“ã ã‘ã‚’çŸ¥ã‚‹ã ã‘ã§ã‚ˆã„å ´åˆã¯timeé–¢æ•°ã‚’ä½¿ç”¨ã—ã¦ãã ã•ã„ã€‚ ã‚ˆã‚Šä¾¿åˆ©ã«æ—¥ä»˜ãƒ»æ™‚åˆ»ã‚’æ‰±ã„ãŸã„å ´åˆã¯Tim
nantan 2011/01/05
ã‚¨ãƒãƒƒã‚¯ã‚¿ã‚¤ãƒ

perl

æ™‚åˆ»
ãƒªãƒ³ã‚¯
Perl/CGIã«å¿…ãšç™»å ´ã™ã‚‹use strictã®è§£èª¬ï¼ˆåˆå¿ƒè€…å‘ã‘ï¼‰ Â· DQNEOæ—¥è¨˜
use strictã¨ã¯ä¸€ä½“ä½•ï¼Ÿ Perlã‚’æ›¸ãã¨ãã«ã€å¿…ãšæœ€åˆã«æ›¸ããŠã¾ã˜ãªã„ã ã¨æ€ã£ã¦ãã ã•ã„ã€‚ Perlã§ã¯ã€ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®å†’é ã«"use strict;"ã¨æ›¸ãã®ãŒæŽ¨å¥¨ã•ã‚Œã¦ã„ã¾ã™ã€‚ æ›¸ãæ–¹ #!/usr/local/bin/perl use strict; use strictã‚’ä½¿ã†ãƒ¡ãƒªãƒƒãƒˆ ç«¯çš„ã«è¨€ã†ã¨ã€ ãƒã‚°ãŒæ¸›ã‚‹ã€‚ use strictã‚’ä½¿ã†ã¨ã€å¤‰æ•°ã‚’å®£è¨€ã™ã‚‹ã¨ãï¼ˆï¼ã‚ã‚‹å¤‰æ•°ã‚’æœ€åˆã«ä½¿ã†ã¨ãï¼‰ã«myã‚’ä»˜ã‘ã‚‹ã®ãŒå¿…é ˆã«ãªã‚Šã¾ã™ã€‚ use strict; my $name = "ã‚ªãƒ©æ‚Ÿç©º"; print $name; ä»¥ä¸‹ã®ï¼’ã¤ã®ã‚³ãƒ¼ãƒ‰ã¯ã‚¨ãƒ©ãƒ¼ã«ãªã‚Šã¾ã™ã€‚ use strict; print $name; # $nameã¯myã§å®£è¨€ã•ã‚Œã¦ãªã„ã®ã§ã‚¨ãƒ©ãƒ¼ use strict; my $name = "ã‚ªãƒ©æ‚Ÿç©º"; print $namae; # $namaeã¯myå®£è¨€ã•ã‚Œã¦ã„ãªã„
nantan 2011/01/05
perl
ãƒªãƒ³ã‚¯
Perl Lesson 7
[ â†‘ INDEX ] [ â† PREV ] [ NEXT â†’ ] Lesson 7ã€€é…åˆ—ã®ä¸¦ã¹æ›¿ãˆ, foreach â– 0. æº–å‚™ script/kwic3.pl ã‚’å®Ÿè¡Œã—ï¼Œã‚½ãƒ¼ãƒˆã‚ãƒ¼ã¨ã—ã¦ 1, 2, 3 ã‚’æŒ‡å®šã™ã‚‹ã¨ï¼Œã‚³ãƒ³ã‚³ãƒ¼ãƒ€ãƒ³ã‚¹ãƒ©ã‚¤ãƒ³ãŒï¼Œãã‚Œãžã‚Œï¼Œå·¦ã®æ–‡è„ˆ (1)ï¼Œã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ (2)ï¼Œå³ã®æ–‡è„ˆ (3) ã§ã‚½ãƒ¼ãƒˆã•ã‚Œã‚‹ã“ã¨ã‚’ç¢ºèªã™ã‚‹ã€‚ ---------------------------------------- % perl script/kwic3.pl dll.txt SEARCH STRING: \bjust\b SORT KEY (1-3): 3 ---------------------------------------- â– 1. é…åˆ—ã®è¦ç´ ã®ä¸¦ã¹æ›¿ãˆ(1)ï¼š reverse reverse ã¯ãƒªã‚¹ãƒˆã®è¦ç´ ã‚’é€†é †ã«ä¸¦ã³æ›¿ãˆãŸãƒªã‚¹ãƒˆã‚’è¿”ã™é–¢æ•°ã€‚å¼•æ•°ã®ãƒªã‚¹ãƒˆãã®ã‚‚ã®
nantan 2011/01/05
perl
ãƒªãƒ³ã‚¯
Perlã€€ãƒ–ãƒãƒƒã‚¯ã‚³ãƒ¡ãƒ³ãƒˆ | Webãƒ—ãƒã‚°ãƒ©ãƒžãªæ—¥ã€…
nantan 2010/08/06
ãƒ–ãƒãƒƒã‚¯ã‚³ãƒ¡ãƒ³ãƒˆ

perl

tips
ãƒªãƒ³ã‚¯
ãƒ—ãƒã‚»ã‚¹ã«ã‚·ã‚°ãƒŠãƒ«ã‚’é€ã‚‹ ã€Perl CGIãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°å…¥é–€ã€‘
ä¸Šè¡¨ã®ã€Œå‹•ä½œã€æ¬„ã¯ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®å‹•ä½œã‚’è¡¨ã—ã¦ã„ã¾ã™ã€‚ Term ãƒ—ãƒã‚»ã‚¹ã‚’çµ‚äº†ã—ã¾ã™ã€‚ Ign ã“ã®ã‚·ã‚°ãƒŠãƒ«ã‚’ç„¡è¦–ã—ã¾ã™ã€‚ Core ãƒ—ãƒã‚»ã‚¹ã‚’çµ‚äº†ã—ã€ã‚³ã‚¢ãƒ€ãƒ³ãƒ—ã‚’å‡ºåŠ›ã—ã¾ã™ã€‚ Stop ãƒ—ãƒã‚»ã‚¹ã‚’ä¸€æ™‚åœæ¢ã—ã¾ã™ã€‚ Cont ãƒ—ãƒã‚»ã‚¹ãŒåœæ¢ä¸ã®å ´åˆã¯ã€å®Ÿè¡Œã‚’å†é–‹ã—ã¾ã™ã€‚ #!/usr/bin/perl require "signal.ph"; print "çµ‚äº†ã‚·ã‚°ãƒŠãƒ«ã‚’é€ã‚‹ãƒ—ãƒã‚»ã‚¹ã‚’æŒ‡å®šã—ã¦ãã ã•ã„ --> "; $pid = <>; chomp($pid); # æŒ‡å®šã•ã‚ŒãŸãƒ—ãƒã‚»ã‚¹ã«SIGKILLã‚’é€ã‚‹ $rtn = kill(&SIGKILL, $pid); if ($rtn == 1) { print "ãƒ—ãƒã‚»ã‚¹$pidã«SIGKILLã‚’é€ã‚Šã¾ã—ãŸ\n"; } else { print "ã‚·ã‚°ãƒŠãƒ«ã‚’é€ã‚Œã¾ã›ã‚“ã§ã—ãŸ\n"; } ä¾‹ã®å®Ÿè¡Œçµæžœ $ ps PID TTY TIME CMD
nantan 2010/07/29
kill

perl

signal
ãƒªãƒ³ã‚¯
ç°¡å˜ï¼ãŸã£ãŸï¼‘ï¼“è¡Œã®ã‚³ãƒ¼ãƒ‰ã§HTMLå–å¾—ï¼†è§£æžã‚’ã™ã‚‹Perlã‚¹ã‚¯ãƒªãƒ—ãƒˆ - DQNEOèµ·æ¥æ—¥è¨˜
ï¼‘ï¼“è¡Œã®ã‚³ãƒ¼ãƒ‰ã§ã€Yahoo!Japanã®ãƒˆãƒ”ãƒƒã‚¯ã‚¹ä¸€è¦§ã‚’å–å¾—ã™ã‚‹ï¼ Perlã§HTMLå–å¾—ãƒ»è§£æžã—ãŸã„ã¨ãã¯LWP::UserAgentã¨HTML::TreeBuilderã¨ã„ã†ã®ã‚’ä½¿ã†ã¨ç°¡å˜ã«ã§ãã¾ã™ã€‚ LWP::UserAgentã‚’ä½¿ã†ã¨ã€Webãƒšãƒ¼ã‚¸ã®å–å¾—ãŒã§ãã¾ã™ã€‚ HTML::TreeBuilderã‚’ä½¿ã†ã¨ã€HTMLã®DOMè§£æžãŒã§ãã¾ã™ã€‚ ã“ã®ï¼’ã¤ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã£ã¦ã€Yahoo!Japanã®ãƒˆãƒ”ãƒƒã‚¯ã‚¹ä¸€è¦§ã‚’å–å¾—ã—ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ ã‚³ãƒ¡ãƒ³ãƒˆè¡Œã¨ç©ºè¡Œã‚’é™¤ãã¨ãŸã£ãŸã®ï¼‘ï¼“è¡Œã§ã™ã€‚ use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; # urlã‚’æŒ‡å®šã™ã‚‹ my $url = 'http://www.yahoo.co.jp'; # IE8ã®ãƒ•ãƒªã‚’ã™ã‚‹ my $user_agent = "Mozilla
nantan 2010/06/07
DOMã€TreeBuilderã€UserAgent

perl

html

tips
ãƒªãƒ³ã‚¯
Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«/LWP - Walrus, Digit.
nantan 2010/05/31
LWPã€ãƒªã‚¯ã‚¨ã‚¹ãƒˆã€ãƒ—ãƒã‚ã‚·

perl

http
ãƒªãƒ³ã‚¯
1 2 3 æ¬¡ã®ãƒšãƒ¼ã‚¸