| ■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かも。
|
