| ■No10444に返信(Karasumaさんの記事) > 無い物を新たに書き出すのは未経験で、記述の仕方で躓いて先に進めないと言った状態です。 > > 初歩的かもしれない質問かと存じ上げますが、
そうですね例えば、読み込むルーチンは sub rank_read { my $Name=$_[0]; my $Rank_lv; open(IN,"$RLOG") || &er_("$RLOG","1"); while (<IN>) { my(@Rank)=split(/<>/,$_); if($Rank[0] eq $Name){$Rank_Lv=$Rank[1]; last;} } close(IN); if(@RLv){ foreach(0..$#RLv){ $SPL=$RSPL*($_+1); if($_!=$#RLv){if($RCo < $SPL){$Rank_lv="$RLv[$_]($RCo回)"; last;}} else{$Rank_lv="$RLv[$_]($RCo回)"; last;} } }else{$Rank_lv="$RCo回";} return($Rank_lv); } というのを追加して、で、今ランクサブルーチンを呼び出しているところ if($M_Rank){&rank;}→if($M_Rank){$R=&rank_read($name);} とします。 で、あとは if($M_Rank){&rank;} を後ろに持っていけばOKかも。
|