罪と罰++二律背反
罪罰改造板3/53
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
* 国データの配列化にて… [#t3eb53ae]
- ページ: [[罪罰改造板3]]
- 投稿者: [[玉子]]
- 優先順位: 重要
- 状態: 完了
- カテゴリー: 罪罰管理者の雑談
- 投稿日: 2008-02-02 (土) 12:39:54
- バージョン:
** メッセージ [#f7ca9e9c]
国データの配列化をしようとして、配列化が説明している掲示...
表示部分に最新情報が小分けされて表示されるし、ログデータ...
これだけでは分かりにくいと思いますが、何方か教えていただ...
--------
- ベンツさんのとこの説明をご覧になっているものとして書き...
>>各配列内容の区切り文字はスペースです。また、改行文字...
>また、読み込み等で変換される記号文字(「,」とか)は内容...
>>どのように導入されているのかが分からないので抽象的で...
- 三毛猫さんありがとうございます。ログデータについて理解...
- 症状が抽象的過ぎて。。。「何をして、どうなったのか。」...
- 大まか過ぎてすみません。リセットは$cn1=int(rand(40)+1)*...
- systemの国データ書込みか読み込みが上手くいってないので...
- systemの国データ読み込みは
sub cdata_open{
open (IN,"$cdatfile") || &error("国データファイルが開けません...
@cdat = <IN>;
@cn= split(/\s+/, $cdat[1]);#国力
@cg= split(/\s+/, $cdat[2]);#財政
@cf= split(/\s+/, $cdat[3]);#蓄米
@cs= split(/\s+/, $cdat[4]);#予備兵
@ce= split(/\s+/, $cdat[5]);#状態
@c = split(/\s+/, $cdat[6]);#参加人数
@ca= split(/\s+/, $cdat[7]);#定員
%CP = '';
my @prats = split(/,/,$cdat[0]);
foreach $prats (@prats){
my($k,$v) = split(/;/,$prats);
$CP{$k} = $v;
}
(他の国データ)
close(IN) or die "Can't close : $!";
}
書き込みは
sub cdat_write{
$cdat =その他の国データ;
open (OUT,">$cdatfile") || &error("open error:$cdatfile"...
print OUT $cdat;
print OUT "@cn\n";#国力
print OUT "@cg\n";
print OUT "@cf\n";
print OUT "@cs\n";
print OUT "@ce\n";
print OUT "@c\n";
print OUT "@ca\n";
close(OUT) or die "Can't close : $!";
}
となってます。-- [[玉子]] &new{2008-02-04 (月) 17:08:04};
- 問題ないように見えるんですが。。。>>国データファイル...
- 管理画面の国データ編集は正常に書き換えできるようになり...
my @cn = (0,int(rand(40))*100+2500,int(rand(40))*100+250...
my @cg = (0,int(rand(50))*20+200,int(rand(50))*20+200,in...
my @cf = (0,int(rand(60))*100+2500,int(rand(60))*100+250...
my @cs = (0,int(rand(60))*50+2000,int(rand(60))*50+2000,...
後はデータがあるのに表示されていない箇所があるので…状態な...
- ログデータの配列部分に手動で0 0 0 0 0 0と入力して国デー...
- 0以外を入力して(リセットしないで)、表示はしますか? -...
- 状態以外は表示できています。 -- [[玉子]] &new{2008-02-0...
- 固定モードのままで、固定モードの方は弄ってない、、、っ...
- 一応両方変更はしています。リセットは1:ランダム[多様性高...
- 状態も表示されました。一箇所[]に切り替えを忘れてました...
- リセットのmain-resetに普通に$cn[1]=int(rand(40)+1)*100+...
- @cn=($cn[0],$cn[1],$cn[2],$cn[3],$cn[4],$cn[5]);←なので...
- my @cn=〜のmyを外したら書き換えることが出来ました。myが...
- おめです。私も気が付くのが遅くって。。。orz>myはある意...
#comment
終了行:
* 国データの配列化にて… [#t3eb53ae]
- ページ: [[罪罰改造板3]]
- 投稿者: [[玉子]]
- 優先順位: 重要
- 状態: 完了
- カテゴリー: 罪罰管理者の雑談
- 投稿日: 2008-02-02 (土) 12:39:54
- バージョン:
** メッセージ [#f7ca9e9c]
国データの配列化をしようとして、配列化が説明している掲示...
表示部分に最新情報が小分けされて表示されるし、ログデータ...
これだけでは分かりにくいと思いますが、何方か教えていただ...
--------
- ベンツさんのとこの説明をご覧になっているものとして書き...
>>各配列内容の区切り文字はスペースです。また、改行文字...
>また、読み込み等で変換される記号文字(「,」とか)は内容...
>>どのように導入されているのかが分からないので抽象的で...
- 三毛猫さんありがとうございます。ログデータについて理解...
- 症状が抽象的過ぎて。。。「何をして、どうなったのか。」...
- 大まか過ぎてすみません。リセットは$cn1=int(rand(40)+1)*...
- systemの国データ書込みか読み込みが上手くいってないので...
- systemの国データ読み込みは
sub cdata_open{
open (IN,"$cdatfile") || &error("国データファイルが開けません...
@cdat = <IN>;
@cn= split(/\s+/, $cdat[1]);#国力
@cg= split(/\s+/, $cdat[2]);#財政
@cf= split(/\s+/, $cdat[3]);#蓄米
@cs= split(/\s+/, $cdat[4]);#予備兵
@ce= split(/\s+/, $cdat[5]);#状態
@c = split(/\s+/, $cdat[6]);#参加人数
@ca= split(/\s+/, $cdat[7]);#定員
%CP = '';
my @prats = split(/,/,$cdat[0]);
foreach $prats (@prats){
my($k,$v) = split(/;/,$prats);
$CP{$k} = $v;
}
(他の国データ)
close(IN) or die "Can't close : $!";
}
書き込みは
sub cdat_write{
$cdat =その他の国データ;
open (OUT,">$cdatfile") || &error("open error:$cdatfile"...
print OUT $cdat;
print OUT "@cn\n";#国力
print OUT "@cg\n";
print OUT "@cf\n";
print OUT "@cs\n";
print OUT "@ce\n";
print OUT "@c\n";
print OUT "@ca\n";
close(OUT) or die "Can't close : $!";
}
となってます。-- [[玉子]] &new{2008-02-04 (月) 17:08:04};
- 問題ないように見えるんですが。。。>>国データファイル...
- 管理画面の国データ編集は正常に書き換えできるようになり...
my @cn = (0,int(rand(40))*100+2500,int(rand(40))*100+250...
my @cg = (0,int(rand(50))*20+200,int(rand(50))*20+200,in...
my @cf = (0,int(rand(60))*100+2500,int(rand(60))*100+250...
my @cs = (0,int(rand(60))*50+2000,int(rand(60))*50+2000,...
後はデータがあるのに表示されていない箇所があるので…状態な...
- ログデータの配列部分に手動で0 0 0 0 0 0と入力して国デー...
- 0以外を入力して(リセットしないで)、表示はしますか? -...
- 状態以外は表示できています。 -- [[玉子]] &new{2008-02-0...
- 固定モードのままで、固定モードの方は弄ってない、、、っ...
- 一応両方変更はしています。リセットは1:ランダム[多様性高...
- 状態も表示されました。一箇所[]に切り替えを忘れてました...
- リセットのmain-resetに普通に$cn[1]=int(rand(40)+1)*100+...
- @cn=($cn[0],$cn[1],$cn[2],$cn[3],$cn[4],$cn[5]);←なので...
- my @cn=〜のmyを外したら書き換えることが出来ました。myが...
- おめです。私も気が付くのが遅くって。。。orz>myはある意...
#comment
ページ名: