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

krogue id:krogue

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

${{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 6å®Ÿè£…ã€ŒRakudo Starã€ãƒªãƒªãƒ¼ã‚¹ | OSDN Magazine
Rakudo.orgã¨Perl 6é–‹ç™ºãƒãƒ¼ãƒ ã¯7æœˆ29æ—¥ã€Perl 6ãƒ‡ã‚£ã‚¹ãƒˆãƒªãƒ“ãƒ¥ãƒ¼ã‚·ãƒ§ãƒ³ã€ŒRakudo Star July 2010 Releaseã€ã‚’å…¬é–‹ã—ãŸã€‚ã‚¢ãƒ¼ãƒªãƒ¼ã‚¢ãƒ€ãƒ—ã‚¿ãƒ¼å‘ã‘ã®ã€Œä½¿ãˆã‚‹ã€ãƒ‡ã‚£ã‚¹ãƒˆãƒªãƒ“ãƒ¥ãƒ¼ã‚·ãƒ§ãƒ³ã¨ä½ç½®ã¥ã‘ã¦ãŠã‚Šã€Perl 6ã¸ã®é–¢å¿ƒã‚’åºƒã’ã‚‹ç‹™ã„ã ã€‚ Rakudo Starã¯Perl 6ã®å®Ÿè£…ã§ã€ä»®æƒ³ãƒžã‚·ãƒ³ã€ŒParrot Virtual Machine 2.6ã€ã‚„Rakudo Perl 6ã‚³ãƒ³ãƒ‘ã‚¤ãƒ©ã€Perl 6ã®å„ç¨®ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã‚’å«ã‚€ã€‚Perl 6ã®æ–‡æ³•ã‚„æ£è¦è¡¨ç¾ã€ã‚¤ãƒ³ãƒˆãƒã‚¹ãƒšã‚¯ã‚·ãƒ§ãƒ³ã€ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆãƒ¢ãƒ‡ãƒ«ã€ã‚¸ãƒ£ãƒ³ã‚¯ã‚·ãƒ§ãƒ³ã¨ã‚ªãƒ¼ãƒˆã‚¹ãƒ¬ãƒƒãƒ‰ãªã©å¤šãã®æ©Ÿèƒ½ãŒå®Ÿè£…ã•ã‚Œã¦ã„ã‚‹ã€‚ Rakudoã§ã¯Rakudo Starã‚’ã‚¢ãƒ¼ãƒªãƒ¼ã‚¢ãƒ€ãƒ—ã‚¿ãƒ¼å‘ã‘ã¨ä½ç½®ã¥ã‘ã¦ãŠã‚Šã€Perl 6ã®é€Ÿåº¦ãŒãã‚Œã»ã©é«˜é€Ÿã§ã¯ãªã„ä¸Šã€ãƒã‚°ã‚‚ã‚ã‚Šã€ã¾ã å®Ÿè£…ã•ã‚Œã¦ã„ãªã„è¨€èªžä»•æ§˜ã‚‚ã‚ã‚‹ã“ã¨ã‚’èªã‚ãªãŒã‚‰ã€Raku
krogue 2010/08/01
perl
ãƒªãƒ³ã‚¯
Perl6ã€ã¾ã‚‚ãªãç™»å ´ | ã‚¨ãƒ³ã‚¿ãƒ¼ãƒ—ãƒ©ã‚¤ã‚º | ãƒžã‚¤ã‚³ãƒŸã‚¸ãƒ£ãƒ¼ãƒŠãƒ«
When you need perl, think perl.org Perlã®æ¬¡æœŸãƒ¡ã‚¸ãƒ£ãƒ¼ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã¨ãªã‚‹Perl 6ã®ãƒªãƒªãƒ¼ã‚¹ãŒã©ã†ã‚„ã‚‰29æ—¥ã«ãªã‚‹ã‚ˆã†ã ã¨è¤‡æ•°ã®ãƒ¡ãƒ‡ã‚£ã‚¢ãŒä¼ãˆã¦ã„ã‚‹ã€‚ãƒ™ãƒ¼ã‚¹ã«ãªã£ã¦ã„ã‚‹å ±é“ã¯PCWorld Business Centerã«æŽ²è¼‰ã•ã‚ŒãŸPerl Creator Hints at Imminent Perl 6 Releaseã¨ã„ã†è¨˜äº‹ã€‚OSCONã‚«ãƒ³ãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®"State of the Onion"è¬›æ¼”ã§Perlã®é–‹ç™ºè€…ã§ã‚ã‚‹Larry WallãŒãã†ã—ãŸå†…å®¹ã‚’ç¤ºå”†ã—ãŸã¨ã„ã†ã€‚ 2009å¹´8æœˆã®æ™‚ç‚¹ã§ã¯2010å¹´4æœˆã§ã®Perl6ç™»å ´ãŒç™ºè¡¨ã•ã‚Œã¦ã„ãŸã€‚2010å¹´4æœˆã«å…¬é–‹ãŒäºˆå®šã•ã‚Œã¦ã„ã‚‹ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã¯ã€Perl 6ä»•æ§˜ã®ã†ã¡ã„ãã¤ã‹ã‚’å®Ÿè£…ã—ãŸã‚‚ã®ã«ãªã‚‹ã¨ã•ã‚Œã¦ãŠã‚Šã€å®Ÿè£…ãŒå®Œæˆã—ãŸãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§ã¯ãªã„ã¨ã„ã†ç‚¹ã‚’ã¯ã£ãã‚Šã•ã›ã‚‹ãŸã‚ã€Perl 6ã¨ã„ã†åç§°ã§ã®ãƒªãƒª
krogue 2010/07/31
perl
ãƒªãƒ³ã‚¯
cpan ã®èªã¿æ–¹
cpan ã¯ã€Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’RPMãƒ‘ãƒƒã‚±ãƒ¼ã‚¸ã§ç®¡ç†ã§ãã‚‹ã‚ˆã†ã«ã™ã‚‹ã‚‚ã®ã€‚ ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã€è§£å‡ã€mcpanã‚³ãƒžãƒ³ãƒ‰ã¨ã„ã†æ‰‹é–“ãŒã„ã‚‰ãªã„ã®ã§ã€ã¨ã¦ã‚‚æ¥½ãƒãƒ³ã€‚ cpan ã¯ Comprehensive Perl Archive Network ã®ç•¥ã€‚ â– cpan ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ wget ftp://arix.com/cpan2rpm-2.027-1.noarch.rpm rpm -Uvh cpan2rpm-2.027-1.noarch.rpm ã¡ãªã¿ã«ã€èªã¿æ–¹ãŒã€Œã—ãƒ¼ã±ã‚“ã€ã¨ã€Œãã±ã‚“ã€ã®2æ´¾ã«åˆ†ã‹ã‚Œã€è¡€ã§è¡€ã‚’æ´—ã†æˆ¦ã„ãŒãƒãƒƒãƒˆä¸Šã§ç¹°ã‚Šåºƒã’ã‚‰å¾—ã¦ã„ã‚‹ã€‚è¿‘ã„å°†æ¥ã€æ˜Ÿé–“æˆ¦äº‰ã«çªå…¥ã™ã‚‹ã‹ã‚‚ã—ã‚Œãªã„ãƒ»ãƒ»ãƒ»ã€‚ ãƒ»ãƒ»ãƒ»ã¯ãšã ã£ãŸãŒã€æœ€è¿‘ã€Œã—ãƒ¼ã±ã‚“ã€ã«çµ±ä¸€ã•ã‚Œã¤ã¤ã‚ã‚Šã€ã€Œãã±ã‚“ã€æ´¾ãŒã¨ã¦ã‚‚æ¥ãšã‹ã—ã„æ€ã„ã‚’ã—ã¦ã„ã‚‹ã€‚ â– ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ç”¨èªžè¾žå…¸ã€€/ã€€æ—¥ç«‹ã‚·ã‚¹ãƒ†ãƒ â– ITç”¨èªžè¾žå…¸ã€€/ã€€IT media â– ã€Œã—ãƒ¼ã±
krogue 2009/01/09
CPANã®èªã¿æ–¹

perl
ãƒªãƒ³ã‚¯
ä¸€è¡Œé‡ŽéƒŽ(one-liner)ã¯perlã«ãŠã¾ã‹ã›
åºæ–‡ ã‚‚ã—ã‚‚ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžãŒå®—æ•™ã ã£ãŸã‚‰â€¦â€¦ï¼ˆå…¨è¨³ç‰ˆï¼‰ï¼»çµµæ–‡éŒ²ã“ã¨ã®ã¯ï¼½2008/12/21 ã«ã‚ˆã‚‹ã¨ã€ãƒ–ãƒ¼ãƒ‰ã‚¥ãƒ¼æ•™å¾’ã‚‰ã—ã„ dankogai ã§ã™ã€‚ ãƒ–ãƒ¼ãƒ‰ã‚¥ãƒ¼æ•™å¾’ã‚‰ã—ãã€ã€Œä¸Šå¸ãŒã‚ãªãŸã«é‡‘æ›œå¤œ21æ™‚ã«ç·Šæ€¥ã®ä»•äº‹ã‚’å‘½ãšã‚‹ã¨ãã«ã—ã°ã—ã°ä½¿ã‚ã‚Œã‚‹ã€å‘ªæ–‡ã‚’ã“ã“ã§ã¾ã¨ã‚ã¦ãŠãã“ã¨ã«ã—ã¾ã™ã€‚ åŸºæœ¬ä¸ã®åŸºæœ¬ ã‚³ãƒžãƒ³ãƒ‰ã¨ã—ã¦ã®perlã¯ã€ã‚¹ã‚¤ãƒƒãƒãŒãªã„å ´åˆã€å¼•æ•°ã¯ã‚¹ã‚¯ãƒªãƒ—ãƒˆåã¨ã—ã¦æ‰±ã‚ã‚Œã¾ã™ã€‚ % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ä¸ã®æ–‡å—åˆ—ã‚’ã‚¹ã‚¯ãƒªãƒ—ãƒˆã¨ã—ã¦è§£é‡ˆã•ã›ã‚‹ã«ã¯ã€-eã‚’ä½¿ã„ã¾ã™ã€‚ % perl -e'print "Hello, World!\n"' Hello, world! % ã¡ãªã¿ã«ã€perlã¨ã‚³ãƒžãƒ³ãƒ‰åã ã‘ã§èµ·å‹•ã™ã‚‹ã¨ã€æ¨™æº–å…¥åŠ›ã‚’ã‚¹ã‚¯ãƒªãƒ—ãƒˆã¨ã—ã¦è¿”ã—ã¾ã™ã€‚ %
krogue 2008/12/22
perl

programming

tips

good
ãƒªãƒ³ã‚¯
perl - å‹æ‰‹ã«æ·»å‰Š - ãƒ‹ã‚³ãƒ‹ã‚³å‹•ç”»ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ€ãƒ¼ : 404 Blog Not Found
2007å¹´08æœˆ04æ—¥04:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - å‹æ‰‹ã«æ·»å‰Š - ãƒ‹ã‚³ãƒ‹ã‚³å‹•ç”»ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ€ãƒ¼ ã‚¹ãƒ©ã‚¤ãƒ‰ã‚‚ãªã‚“ã¨ã‹ä¸ŠãŒã£ãŸã®ã§ã€ãƒªãƒãƒ“ãƒªã‚‚ã‹ãã¦ä¹…ã€…ã®æ·»å‰Šã€‚ Perlã§ãƒ‹ã‚³ãƒ‹ã‚³å‹•ç”»ã®flvã¨ã‚³ãƒ¡ãƒ³ãƒˆxmlã‚’ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã™ã‚‹ (Yusukebe::Tech) ã•ã‚“ã–ã‚“æ—¢å‡ºã‹ã‚‚ã—ã‚Œãªã„ã‘ã©Perlã§ãƒ‹ã‚³ãƒ‹ã‚³å‹•ç”»ã®flvãƒ•ã‚¡ã‚¤ãƒ«ã¨ã‚³ãƒ¡ãƒ³ãƒˆã®xmlãƒ•ã‚¡ã‚¤ãƒ«ã‚’ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆã€‚ã¾ãšã¯çµæžœã‹ã‚‰ã€‚ #!/usr/bin/env perl # # $Id: nicoget.pl,v 0.1 2007/08/03 19:26:19 dankogai Exp dankogai $ # original: http://yusukebe.com/tech/archives/20070803/124356.html # use strict; use wa
krogue 2008/12/21
perl

nicovideo
ãƒªãƒ³ã‚¯
Perl.com: Catalyst ã®ç¿»è¨³
Jesse Sheidlowerã•ã‚“ã®è¨±å¯ã‚’å¾—ã¦ã€ç¿»è¨³ã‚’å…¬é–‹ã—ã¦ãŠã‚Šã¾ã™ã€‚ãªãŠã€ã“ã®ç¿»è¨³ã¯ã€under same terms of Perl itselfã§ã€é…å¸ƒå¯èƒ½ã§ã™ã€‚ åŽŸæ–‡ã¯ã“ã¡ã‚‰: Catalyst ç›®æ¬¡ Jesse Sheidlower June 02, 2005 Web frameworks are an area of significant interest at the moment. Now that we've all learned the basics of web programming, we're ready to get the common stuff out of the way to concentrate on the task at hand; no one wants to spend time rewriting the same bits
krogue 2008/12/21
catalyst

perl
ãƒªãƒ³ã‚¯
perl - å‹æ‰‹ã«æ·»å‰Š - SvTRUEã‚’PurePerlã§ : 404 Blog Not Found
2007å¹´12æœˆ07æ—¥19:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - å‹æ‰‹ã«æ·»å‰Š - SvTRUEã‚’PurePerlã§ ã¡ã‚‡ã£ã¨é¢¨é‚ªæ°—å‘³ãªã®ã§ä»Šæ—¥ã¯å®¶ã§ãŠã¨ãªã—ãã€‚ SvTRUEã€PurePerlç‰ˆ - D-6 [ç›¸å¤‰ã‚ã‚‰ãšæ ¹ç„¡ã—] sub SvTRUE{ my $x = shift; if (! defined $x) { return (); } if (!ref $x && $x =~ /\D/) { return length($x) > 1 || substr($x, 0, 1) ne '0'; } else { return $x; } } é•·éŽãŽã‚‹ã‚ˆã†ã«è¦‹ãˆã‚‹ã®ã¯ä½“èª¿ã®ã›ã„ã˜ã‚ƒãªã„ã‚ˆãã€‚ ã ã£ã¦ã€ä¸€è¡Œã§ã“ã†æ›¸ã‘ã‚‹ã‚“ã ã‚‚ã‚“ã€‚ sub SvTRUE{ !! $_[0] } ã§ã€ä»¥ä¸‹è¨¼æ‹ ã€‚ #!/usr/local/bin/perl use stric
krogue 2008/12/21
perl
ãƒªãƒ³ã‚¯
ä¸€è¶³æ—©ãã€ŒPlaggerã€ã®ä¾¿åˆ©ã•ã‚’å®Ÿæ„Ÿã—ã¦ã¿ã‚ˆã† âˆ’ ï¼ IT
2006å¹´åˆé ã‹ã‚‰ã€ŒPlaggerã€ã¨ã„ã†æŠ€è¡“ãŒã€ä¸€éƒ¨ã§è©±é¡Œã«ãªã‚Šã¾ã—ãŸã€‚ã¾ã ã¾ã çŸ¥ååº¦ãŒä½Žã„ã€ŒPlaggerã€ã§ã™ãŒã€ä¾¿åˆ©ã§ã‚«ã‚¹ã‚¿ãƒžã‚¤ã‚ºæ€§ãŒé«˜ã„ã‚‚ã®ãªã®ã§ã€2007å¹´ã§ã¯çˆ†ç™ºçš„ã«æµè¡Œã™ã‚‹ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ã€‚è±Šå¯Œãªãƒ—ãƒ©ã‚°ã‚¤ãƒ³ã‚’è‡ªåœ¨ã«çµ„ã¿åˆã‚ã›ã€æ¬²ã—ã„æƒ…å ±ã‚’åŽé›†ã—ã€åŠ å·¥ã—ã¦å‡ºåŠ›ã™ã‚‹Plaggerã®ä»•çµ„ã¿ã‚„ä½¿ã„æ–¹ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ 1. ä½•ã§ã‚‚ã§ãã‚‹ï¼Ÿ Plaggerã®æ£ä½“ã«è¿«ã‚‹ ä»Šå›žã¯è©±é¡Œã®Plaggerï¼ˆãƒ—ãƒ©ã‚¬ãƒ¼ï¼‰ã‚’å–ã‚Šä¸Šã’ã¾ã™ã€‚ ã“ã®é€£è¼‰ã‚’èªã‚“ã§ã„ã‚‹èªè€…ã®çš†ã•ã‚“ã¯ã€ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯æŠ€è¡“ã‚„çŸ¥è˜ã«èˆˆå‘³ã‚’æŒã£ã¦ã„ã‚‹äººãŒå¤šã„ã§ã—ã‚‡ã†ã‹ã‚‰ã€ã€ŒPlaggerã€ã¨ã„ã†å˜èªžã¯ä¸€åº¦ã¯è€³ã«ã—ãŸã“ã¨ãŒã‚ã‚‹ã§ã—ã‚‡ã†ã€‚ã—ã‹ã—ã€Plaggerã¨ã„ã†è¨€è‘‰ã‚’èžã„ãŸã“ã¨ã¯ã‚ã£ã¦ã‚‚ã€ã„ã£ãŸã„ã©ã‚“ãªã‚‚ã®ã‹ãƒ”ãƒ³ã¨æ¥ãªã„äººã‚‚ã„ã‚‹ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ã€‚ä»Šå›žã¯PlaggerãŒã©ã†ã„ã£ãŸåƒãã‚’ã™ã‚‹ã‹ï¼Ÿ ãã®å‹•ãã®ä»•çµ„ã¿ãªã©ã‚’ä¸å¿ƒã«ç´¹ä»‹ã—ã¦ã„ãã¾ã™ã€‚ â—
krogue 2008/12/21
perl

plagger
ãƒªãƒ³ã‚¯
404 Blog Not Found:perl - ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã®æ›¸ãæ–¹å…¥é–€
2008å¹´03æœˆ30æ—¥19:45 ã‚«ãƒ†ã‚´ãƒªLightweight Languagesä¸€æ—¥ä¸€è¡Œé‡ŽéƒŽ perl - ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã®æ›¸ãæ–¹å…¥é–€ ã¾ã‚ã€ruby ã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã£ã¦ã€Perlç”±æ¥ã§ã™ã‹ã‚‰ã€‚ Rubyã§ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’æ›¸ãæ–¹æ³•ã®ã¾ã¨ã‚ ã¾ãã€Perlã‚‚ã‚ã‚‹ã—ã‚ã‚“ã¾ã‚Šéœ€è¦ãŒç„¡ã„ã®ã‹ã‚‚çŸ¥ã‚Œã¾ã›ã‚“ãŒã€‚ ã¨ã„ã†ã‚ã‘ã§ã€Rubyistã«ã‚‚å½¹ç«‹ã¤Perlã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼å…¥é–€ã§ã™ã€‚ åŸºæœ¬ä¸ã®åŸºæœ¬ ã‚³ãƒžãƒ³ãƒ‰ã¨ã—ã¦ã®perlã¯ã€ã‚¹ã‚¤ãƒƒãƒãŒãªã„å ´åˆã€å¼•æ•°ã¯ã‚¹ã‚¯ãƒªãƒ—ãƒˆåã¨ã—ã¦æ‰±ã‚ã‚Œã¾ã™ã€‚ % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ä¸ã®æ–‡å—åˆ—ã‚’ã‚¹ã‚¯ãƒªãƒ—ãƒˆã¨ã—ã¦è§£é‡ˆã•ã›ã‚‹ã«ã¯ã€-eã‚’ä½¿ã„ã¾ã™ã€‚ % perl -e 'print "Hello, World!\n"' Hello, worl
krogue 2008/12/21
perl

programming

ruby

atode
ãƒªãƒ³ã‚¯
TokuLog æ”¹ã‚ ã ã¾ã£ã¦ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã‘ã‚ˆãƒã‚² - ãƒ‰ã‚³ãƒ¢ã§ã‚‚ CSS ã‚’å¤–éƒ¨å‚ç…§ã‚’ä½¿ãˆã‚‹ HTML::DoCoMoCSS ã‚’ãƒªãƒªãƒ¼ã‚¹
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
krogue 2008/12/21
css

mobile

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

oop
ãƒªãƒ³ã‚¯
Win32::GuiTest ã§ Windows ã® GUI ã‚¢ãƒ—ãƒªã‚’ãƒãƒƒã‚¯ã—ã‚ˆã†
åŸºæœ¬çš„ãªæ›¸ãæ–¹ use strict; use warnings; use utf8; # â†‘ Perl ãƒãƒƒã‚«ãƒ¼ã« DIS ã‚‰ã‚Œãªããªã‚‹ãŠã¾ã˜ãªã„ # Win32::GuiTest ã‚’ä½¿ã†ãŠã¾ã˜ãªã„ use Win32::GuiTest qw(:ALL); # æ—¥æœ¬èªžã‚’ä½¿ãˆã‚‹ã‚ˆã†ã«ã™ã‚‹ãŠã¾ã˜ãªã„ UnicodeSemantics(1); # ã“ã“ã§ Win32::GuiTest ã‚’ä½¿ã† ãƒžã‚¦ã‚¹ã‚’å‹•ã‹ã™ use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # å°æ•°ç‚¹ã‚‚ã„ã‘ã¡ã‚ƒã† sleep é–¢æ•° use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms å¾…ã¤ sleep(0.01); # ãƒžã‚¦
krogue 2008/12/12
perl

windows

programming
ãƒªãƒ³ã‚¯
1