ã¯ããã« ãã®ãã¼ã¸ã§ã¯ãperlã¹ã¯ãªãããå©ç¨ãã¦ãperlã¹ã¯ãªããã®ä¸ãããµãã«ã¼ãã³å®è£ ãæ½åºããæ¹æ³ã«ã¤ãã¦èª¬æãã¾ãã å®ç¾æ¹æ³ è«ãã証æ ãã¨ãããã¨ã§ãã¾ãã¯å®è¨¼ãããµã³ãã«ã³ã¼ããã覧ãã ããã my($aTargetFile)=$ARGV[0]; my(%tSubroutine)=(); open(DATA_FILE,'<'.$aTargetFile); flock(DATA_FILE,1); my(@tFileData)=<DATA_FILE>; close(DATA_FILE); my($tContent)=join('',@tFileData); while($tContent=~ /(sub ([a-zA-z0-9_]{1,})\n\{\n(.|\n){1,}?\n\}\n)/g) { $tSubroutine{$2}=$1; } foreach(sort k
{{#tags}}- {{label}}
{{/tags}}