Perl¤ÎÀâÌÀ

¡¡¡¡£¸. ÆâÉô¥µ¥Ö¥ë¡¼¥Á¥ó¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£



¡¡ÆâÉô¥µ¥Ö¥ë¡¼¥Á¥ó

¥µ¥Ö¥ë¡¼¥Á¥ó(subroutine)¤Ï¡¢½èÍýñ°Ì¤Ë¹½Â¤²½µÚ¤Ó¶¦Ä̲½¤¹¤ë¤È¤­¤Ë»ÈÍѤ·¤Þ¤¹¡£

µ­½Ò¡¡Îã
&abc($x,$y,...); : sub abc { local($x,$y,...) = @_; : } # ¸Æ¤Ó½Ð¤·ÊýË¡¡¡ do abc($x,$y,...); ¤Ç¤âOK # ¥µ¥Ö¥ë¡¼¥Á¥ó¤ÎÄêµÁ # °ú¿ô¤ò¥í¡¼¥«¥ëÊÑ¿ô¤Ë


¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï do ±é»»»Ò¤« & ±é»»»Ò¤Ç¸Æ¤Ó½Ð¤·¤Þ¤¹¡£ $x ¤ä $y ¤Ï¥µ¥Ö¥ë¡¼¥Á¥ó¤Ë°ú¤­ÅϤ¹ÊÑ¿ô¤ÎÇÛÎó¤Ç¤¹¡£ ¥µ¥Ö¥ë¡¼¥Á¥ó¦¤Ç¤Ï¡¢°ÅÌÛ¤ÎÇÛÎó¤È¤·¤Æ¡¢ @_ ¤¹¤Ê¤ï¤Á ¡Ê$_[0], $_[1], ...) ¤ËÆþ¤ëÌó«¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£ ¥µ¥Ö¥ë¡¼¥Á¥ó¤Î¤Ê¤«¤Ç½èÍý¤¹¤ë¾ì¹ç¤Ë»È¤¦°ì»þŪ¤ÊÊÑ¿ô¤Ï¡¢¿Æ¤ÎÊÑ¿ô¤ÈƱ¤¸ ̾Á°¤Ç¤¢¤Ã¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£local ÊÑ¿ô¤ÎÀë¸À¤ò¤¹¤ì¤Ð¡¢Æ±¤¸ÊÑ¿ô̾¤Ç¤â¤« ¤Þ¤¤¤Þ¤»¤ó¡£¡¡¡¡¡¡local (ÊÑ¿ô̾);


µ­½Ò¡¡Îã
$x = 1; $y = 2; ($X, $Y) = &subA($x,$y); sub subA { local($a, $b) = @_; local($c, $d); $c = $a + $b ; $d = $a - $b ; ($c,$d) ; } # $x, $y ¤òÄêµÁ # ¥µ¥Ö¥ë¡¼¥Á¥ó subA ¤ò¸Æ¤Ö¡£ # ¥µ¥Ö¥ë¡¼¥Á¥ó subA ¤Î»Ï¤Þ¤ê¡£ # local ¤ÊÊÑ¿ô $a $b ¤ËÊÑ¿ô¤ÎÃͤò°ú¤­ÅϤ¹¡£ # local ¤ÊÊÑ¿ô $c $d ¤òÀë¸À¤¹¤ë¡£ # ϤȺ¹¤ò¼è¤ë¡£ # ·ë²Ì¤Î ÇÛÎó¤ÎÃͤòÊÖ¤¹¡£ # ¥µ¥Ö¥ë¡¼¥Á¥ó subA ¤Î½ªÎ»¡£



¡¡¡¡¡¡¡¡ [ Top ]