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

mactkg id:mactkg

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

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

mod_perlæ¸©æ•…çŸ¥æ–° ã€œPerl CGIã®é«˜é€ŸåŒ–ã‹ã‚‰ãƒ¡ãƒ¼ãƒ«ã‚µãƒ¼ãƒã¾ã§ã€œ
ÐšÐ°Ð¶Ð´Ñ‹Ð¹ Ñ€Ð°Ð·Ñ€Ð°Ð±Ð¾Ñ‚Ñ‡Ð¸Ðº Ñ€Ð°Ð½Ð¾ Ð¸Ð»Ð¸ Ð¿Ð¾Ð·Ð´Ð½Ð¾ ÑÑ‚Ð°Ð»ÐºÐ¸Ð²Ð°ÐµÑ‚ÑÑ Ñ Ð¿Ñ€ÐµÐ´Ð¼ÐµÑ‚Ð½Ð¾-Ð¾Ñ€Ð¸ÐµÐ½Ñ‚Ð¸Ñ€Ð¾Ð²Ð°Ð½Ð½Ñ‹Ð¼Ð¸ ÑÐ·Ñ‹ÐºÐ°Ð¼Ð¸ (DSL). ÐœÑ‹ Ñ€Ð°Ð·Ð±ÐµÑ€ÐµÐ¼ÑÑ, Ð·Ð°Ñ‡ÐµÐ¼ Ð¶Ðµ Ð½Ð°Ð¼ Ð½ÑƒÐ¶Ð½Ñ‹ DSL, Ð¸ ÐºÐ°ÐºÐ¸Ðµ Ð¿Ñ€Ð¾Ð±Ð»ÐµÐ¼Ñ‹ Ð¾Ð½Ð¸ Ð½Ð°Ð¼ Ð¿Ð¾Ð¼Ð¾Ð³Ð°ÑŽÑ‚ Ñ€ÐµÑˆÐ°Ñ‚ÑŒ. ÐŸÐ¾Ð¹Ð¼ÐµÐ¼, Ð² ÐºÐ°ÐºÐ¸Ñ… ÑÐ»ÑƒÑ‡Ð°ÑÑ… Ð½Ð°Ð¼ ÑÑ‚Ð¾Ð¸Ñ‚ Ñ€Ð°Ð·Ñ€Ð°Ð±Ð°Ñ‚Ñ‹Ð²Ð°Ñ‚ÑŒ ÑÐ²Ð¾Ð¹ ÑÐ·Ñ‹Ðº, Ð° Ð² ÐºÐ°ÐºÐ¸Ñ… â€” Ð¸ÑÐ¿Ð¾Ð»ÑŒÐ·Ð¾Ð²Ð°Ñ‚ÑŒ ÑƒÐ¶Ðµ ÑÑƒÑ‰ÐµÑÑ‚Ð²ÑƒÑŽÑ‰Ð¸Ð¹. ÐŸÐ¾Ð¿Ñ€Ð¾Ð±ÑƒÐµÐ¼ Ð¿Ñ€Ð¾Ð²ÐµÑÑ‚Ð¸ Ð³Ñ€Ð°Ð½ÑŒ Ð¸ Ñ€ÐµÑˆÐ¸Ñ‚ÑŒ, Ð³Ð´Ðµ Ñƒ Ð½Ð°Ñ Ð¿Ñ€Ð¾ÑÑ‚Ð¾ Ð±Ð¸Ð±Ð»Ð¸Ð¾Ñ‚ÐµÐºÐ°, Ð° Ð³Ð´Ðµ â€” Ð¿Ñ€ÐµÐ´Ð¼ÐµÑ‚Ð½Ð¾ Ð¾Ñ€Ð¸ÐµÐ½Ñ‚Ð¸Ñ€Ð¾Ð²Ð°Ð½Ð½Ñ‹Ð¹ ÑÐ·Ñ‹Ðº. ÐŸÑ€Ð¸Ð´ÑƒÐ¼Ð°ÐµÐ¼ ÑÐ²Ð¾Ð¹ DSL Ð¸
mactkg 2015/02/07
perl
ãƒªãƒ³ã‚¯
[Perl] é…åˆ—ãƒ»ãƒãƒƒã‚·ãƒ¥ãŒç©ºã‹ã‚’èª¿ã¹ã‚‹
é…åˆ—ãƒ»ãƒãƒƒã‚·ãƒ¥ãŒç©ºã‹ã‚’èª¿ã¹ã‚‹ã€‚ æ™®é€šã« if ã§ã€‚defined ã§ã¯ãƒ€ãƒ¡ã§ã™ã€‚ â€»defined ã¯ã‚¹ã‚«ãƒ©ãƒ¼ã«ã®ã¿æœ‰åŠ¹ã€‚ my @array = (); my %hash = (); if (@array) { # not empty } if (%hash) { # not empty } [å‚è€ƒ] http://perldoc.jp/docs/perl/5.8.8/perldiag.pod
mactkg 2014/08/03
ã“ã‚Œã§ã„ã„ã®ã‹ã‚

perl
ãƒªãƒ³ã‚¯
ãªãœ Perl ã§é…åˆ—ã«å¯¾ã—ã¦ defined ã‚’ä½¿ã£ã¦ã¯ã„ã‘ãªã„ã®ã‹?
defined ã®æŒ™å‹•ã§ç›¸è«‡ã•ã‚ŒãŸã®ã§ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚’è¦‹ã¦ã¿ãŸã‚‰ã€é…åˆ—ã«å¯¾ã—ã¦ defined ã‚’å‘¼ã‚“ã§ã„ãŸã€‚ æœ€è¿‘ã® Perl ã§ã¯é…åˆ—ã«å¯¾ã—ã¦ defined ã‚’ä½¿ã†ã®ã¯éžæŽ¨å¥¨ã§ã‚ã‚‹(perldata ã‚„ perlfunc å‚ç…§)ã€‚ ã»ã¨ã‚“ã©ã®äººãŒæœ›ã‚€ã‚ˆã†ãªåˆ¤å®šçµæžœã¯è¿”ã£ã¦ã“ãªã„*1ã€‚ perl -e '@a = (); print defined @a ? 1 : 0; push @a, 1; print defined @a ? 1 : 0; shift @a; print defined @a ? 1 : 0' é…åˆ—ãŒç©ºã‹ã©ã†ã‹ãªã‚‰ã‚¹ã‚«ãƒ©ãƒ¼ã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã§è©•ä¾¡ã™ã‚‹ã ã‘ã§ OK ãªã®ã ãŒã€Perl ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°çµŒé¨“ä¸Šã€1åº¦ã¯ defined ã‚’ä½¿ç”¨ã—ã¦ã—ã¾ã†ã ã‚ã†ã€‚ ãŸã é€šå¸¸ã¯è¦å‘ŠãŒå‡ºã‚‹ã®ã§ã™ãæ°—ãŒã¤ãã€‚ ã“ã®è¦å‘Šã¯ Perl 5.6.0 ä»¥é™ã§å‡ºã‚‹ã€‚ #!/usr/bin/perl
mactkg 2014/08/03
perl
ãƒªãƒ³ã‚¯
Perl åˆå¿ƒè€…ãŒã¨ã‚ã‚‹ JavaScript ã‚³ãƒ¼ãƒ‰ã‚’èªã‚€ãŸã‚ã®åŸºç¤ŽçŸ¥è˜ - ã‚ã‚‰ã³ãæ—¥è¨˜
ã“ã®è¨˜äº‹ã¯ abicky.net ã® Perl åˆå¿ƒè€…ãŒã¨ã‚ã‚‹ JavaScript ã‚³ãƒ¼ãƒ‰ã‚’èªã‚€ãŸã‚ã®åŸºç¤ŽçŸ¥è˜ ã«ç§»è¡Œã—ã¾ã—ãŸ
mactkg 2014/07/27
ã¯ã¦ãªã‚¤ãƒ³ã‚¿ãƒ¼ãƒ³

perl

js
ãƒªãƒ³ã‚¯
1