Perlã§æ¨æ§é ãæ±ã - ãªãã¡ã¬ã³ã¹ã使ã£ã¦ ç®æ¬¡ ã¨ãããããã¼ã¿ãããã£ã½ã並ã¹ã¦ã¿ãã æ·±ãåªå ã§ãã©ãã¼ã¹ãã¦ã¿ãã å®è¡çµæ ããããï¼ ãã£ããããã ä¿®æ£ç ï¼2003-02-20: å°ãæ±ç¨åï¼ å®è¡çµæ åç § ãªãã¡ã¬ã³ã¹ã使ã£ã¦ Perlã®é åã¯ãã©ãããªã®ã§ããã¹ããããã¼ã¿æ§é ãæ±ãã®ã«è¦å´ãã¦ã¾ãã ã¨ãããããã¼ã¿ãããã£ã½ã並ã¹ã¦ã¿ãã $creatures = ["çç©", ["åºä¹³é¡",["鯨",["éé·é¡",["人","ç¿"]],"ç¬"]], ["éé¡",["é¯","é¯","ç§åé"]], ["両çé¡",["è"]] ]; æ·±ãåªå ã§ãã©ãã¼ã¹ãã¦ã¿ãã sub depth_first($$) { my $depth = shift; my $raList = shift; foreach (@{$raList}) { if (ref($_) eq
{{#tags}}- {{label}}
{{/tags}}