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

snsn9pan id:snsn9pan

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

${{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] my ã¨ local ã¨ our ã®é•ã„ã«ã¤ã„ã¦ - ç«¹è¿«ã®è¿‘æ³å ±å‘Š
404 Blog Not Found:perl - myã¨ourã¨scopeã¨ ã¿ã‚“ãªé›£ã—ãè€ƒãˆã™ãŽã§ã™ã€‚ ï¼ˆä¾‹å¤–ã«ã¤ã„ã¦ã¯å¾Œã§è€ƒãˆã‚‹ã“ã¨ã«ã—ã¦ï¼‰ã¨ã‚Šã‚ãˆãšä»¥ä¸‹ã®åŸºæœ¬ã‚’ãŠã•ãˆã¦ãŠã‘ã°æ··ä¹±ã™ã‚‹ã“ã¨ã¯ãªã„ã¨æ€ã„ã¾ã™ã€‚ â– our å®£è¨€ã«ã¤ã„ã¦ our ã¯ã‚°ãƒãƒ¼ãƒãƒ«å¤‰æ•°ã‚’ã‚¹ãƒžãƒ¼ãƒˆã«ä½¿ç”¨ã™ã‚‹ãŸã‚ã®å®£è¨€ã§ã™ã€‚our ã¯ use vars ã¨ç‰ä¾¡ã¨è€ƒãˆã¦ãã ã•ã„ã€‚ our $var; ã¯ use vars qw($var); ã¨ç‰ä¾¡ã€‚ our $var = 1; ã¯ use vars qw($var); $var = 1; ã¨åŒã˜å‹•ãã‚’ã™ã‚‹ã‚‚ã®ã€ã¨è¦šãˆã¦ãŠã‘ã°OKã§ã™ã€‚ãã‚Œä»¥ä¸Šã®é•ã„ã¯åŸºæœ¬çš„ã«ãªã„ã¨è€ƒãˆã¦æ§‹ã„ã¾ã›ã‚“ã€‚ ã²ã¨ã¤å®Ÿç”¨ä¸Šã®é•ã„ãŒã‚ã‚‹ã¨ã™ã‚Œã°ã€our ã¯ Perl 5.6 ä»¥é™ã® built-in ãªã®ã«å¯¾ã—ã¦ã€use vars ã¯ vars.pm ã® Perlã‚¹ã‚¯ãƒªãƒ—ãƒˆã§å®Ÿè£…ã•ã‚Œã¦ã„ã¾ã™ã€‚ã—
snsn9pan 2011/03/22
perl

tips

programming
ãƒªãƒ³ã‚¯
ã¯ã¦ãªãƒ–ãƒã‚°
ã¯ã¦ãªãƒ–ãƒã‚°ã‚’ã¯ã˜ã‚ã‚ˆã† ã¯ã¦ãªãƒ–ãƒã‚°ã¯ã€ç„¡æ–™ã§ã—ã£ã‹ã‚Šæ›¸ã‘ã‚‹ãƒ–ãƒã‚°ã‚µãƒ¼ãƒ“ã‚¹ã§ã™ã€‚ ã¯ã¦ãªãƒ–ãƒã‚°ã®è‰¯ã„ã¨ã“ã‚ã¯ã€ãªã«ã‚ˆã‚Šæ–‡ç« ãŒæ›¸ãã‚„ã™ã„ã“ã¨ã€‚ã•ã‚‰ã«ã€æ¥½ã—ã„ã‚¤ãƒ©ã‚¹ãƒˆã‚„ç¾Žã—ã„å†™çœŸã‚’è¼‰ã›ãŸã‚Šã€ãƒ„ã‚¤ãƒ¼ãƒˆã‚„å‹•ç”»ã‚’è²¼ã‚Šä»˜ã‘ã‚‹ã®ã‚‚ç°¡å˜ã§ã™ã€‚æ°—ã«ãªã£ãŸãƒ‹ãƒ¥ãƒ¼ã‚¹ã‚’ã‚«ãƒ¼ãƒ‰å½¢å¼ã§ç´¹ä»‹ã—ãŸã‚Šã€ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’è¦‹ã‚„ã™ããƒã‚¤ãƒ©ã‚¤ãƒˆã—ãŸã‚Šã€ã©ã‚“ãªè¨˜äº‹ã§ã‚‚ã—ã£ã‹ã‚Šæ›¸ãã“ã¨ãŒã§ãã¾ã™ã€‚ã¡ã‚‡ã£ã¨ã—ãŸæ—¥å¸¸ã®è¨˜éŒ²ã«ã‚‚ã€èª°ã‹ã«ä¼ãˆãŸã„æƒ³ã„ã‚’ç¶´ã‚‹ã«ã‚‚ã€äººç”Ÿã®ç‰©èªžã‚’æ›¸ãæ®‹ã™ã«ã‚‚ã€ã©ã†ãžã”åˆ©ç”¨ãã ã•ã„ã€‚ ã¯ã¦ãªãƒ–ãƒã‚°ã¨ã¯
snsn9pan 2009/04/22
ã‹ãªã‚Šä¾¿åˆ©

perl

cpan

tips
ãƒªãƒ³ã‚¯
kndb.jp
This domain may be for sale!
snsn9pan 2009/04/22
cpanã®æŽ¥ç¶šå…ˆã®å¤‰æ›´æ–¹æ³•

perl

cpan
ãƒªãƒ³ã‚¯
YappoLogs: String::Diff - è¡Œå†…å·®åˆ†å–å¾—ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«
String::Diff - è¡Œå†…å·®åˆ†å–å¾—ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« æ™®é€šã®diffã¯è¡Œå˜ä½ã§ã®å·®åˆ†ã‚’å–ã‚‹ã‚“ã§ã™ãŒã€ä¸€è¡Œã®ä¸ã§ã®å·®åˆ†ãŒã©ã†ã—ã¦ã‚‚å–ã‚ŠãŸãã¦String::Diff(2008/06/24ãƒªãƒ³ã‚¯åˆ‡ã‚ŒãªãŠã—ãŸtokuhirom++)ã£ã¦ã®ã‚’ä½œã‚Šã¾ã—ãŸã€‚ æ—¢å˜ã®CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã ã¨String::ShowDiffãŒå¾®å¦™ã«è¿‘ã‹ã£ãŸã‚“ã§ã™ãŒã€ç›®çš„ã®äº‹ãŒå‡ºæ¥ãªã„ã®ã§ä½œã‚Šã¾ã—ãŸã€‚ å‡ºæ¥ã‚‹ã“ã¨ã¯ æ–‡å—åˆ—åŒå£«ã®å·®åˆ†ã‚’ä½œã£ã¦å¤‰æ›´ç„¡ã„å ´æ‰€ã€å¤‰æ›´ãŒåˆã£ãŸå ´æ‰€ã§é…åˆ—ã‚’åˆ†ã‘ã¦ä½œæˆã€‚ my $diff = String::Diff::diff_fully('this is Perl', 'this is Ruby'); for my $line (@{ $diff->[0] }) { print "$line->[0]: '$line->[1]'\n"; } # u: 'this is ' # -: 'Perl' fo
snsn9pan 2009/04/22
perl

cpan

tips
ãƒªãƒ³ã‚¯
ç›£è¦–åž‹è‡ªå‹•makeã‚’å®Ÿç¾ã™ã‚‹makeauto.pl - å‹•ç‰©ã¨æš®ã‚‰ãã†
ã ã„ã¶ã‚„ã£ã¤ã‘ä»•äº‹ã€‚ é©å½“ã™ãŽã¦ã€ãªã«ã‹ã‚‰ã¤ã£ã“ã‚ã°ã„ã„ã‹ã‚ã‹ã‚‰ãªã„ã€‚ perlã‚’é¸ã‚“ã ç†ç”±ãŒã‚ã‹ã‚‰ãªã„ã€‚ ã ã‚Œã‹èª¬æ˜Žã—ã¦ãã‚Œã€‚ d:id:lurker:20070227:1172511851ã‚’è¦‹ã¦ã€ç›£è¦–ã—ã¤ã¤è‡ªå‹•ã§makeã—ã¦ãã‚ŒãŸã‚‰æ¥½ã ãªãƒ¼ã¨æ€ã£ã¦ã€ã‚°ã‚°ã£ãŸã‚Šã—ã¦å‡ºã¦ããŸã‚½ãƒ¼ã‚¹ã‚’ãƒ‘ã‚¯ã£ãŸã‚Šã—ã¦ã€ä½œã£ãŸã€‚ http://nais.to/~yto/tools/miharing/ ã“ã‚Œã‚’ã‚‚ã‚ãƒ‘ã‚¯ãƒªã—ã¾ã‚“ãŸï¼žï¼œ makeã˜ã‚ƒãªã„ã‚³ãƒžãƒ³ãƒ‰ã‚‚ç›£è¦–ã—ã¤ã¤è‡ªå‹•ã§ã‚„ã£ã¦ãã‚Œã‚‹ã€‚ $ perl makeauto.pl -d=no -e="perl %f" test.pl ã¨ã‹ã‚„ã£ã¦ä½¿ã†ã€‚ åƒ•ãŒå¸¸ç”¨ã—ã¦ä½¿ã£ã¦ã‚‹ã®ã¯ $ perl makeauto.pl -d=no -e="make" *.php */*.php åˆ¥ã‚³ãƒ³ã‚½ãƒ¼ãƒ«ã§ã“ã‚Œèµ·å‹•ã—ã¤ã¤ã€Makefileæ›¸ãæ›ãˆãªãŒã‚‰phpã®å‹•ä½œãƒã‚§ãƒƒã‚¯ã€‚ ã‚½ãƒ¼ã‚¹æ›¸ããª
snsn9pan 2007/08/11
snsn9pan

perl

lifehacks
ãƒªãƒ³ã‚¯
1