| 登録NO |
ID/ﾊﾟｽ |
名前/日付 |
メール/URL |
購読拒否 |
EOF
foreach(@NEW){
($personal_data,$click,$access_data) = split(/\<\>/,$_);
($entry_no,$identity,$password,$name,$mail,$url,$mag,$date,$aux1,$aux2,$aux3,$aux4) = split(/\,/,$personal_data);
$i =0;
@click = split(/\,/,$click);
foreach(@kisyu_table){
$click{"$_"} =$click[$i];
unless($click{"$_"}){$click{"$_"} =0;}
$i ++;
}
#=================報酬額の計算============================================
$access_data =~ s/\r\n//g;
$access_data =~ s/\r//g;
$access_data =~ s/\n//g;
@access = split(/\:/,$access_data);
$reward_total =0;
$reward_total_past2 =0;
$reward_total_past3 =0;
$access_detail ='';
foreach(@kisyu_table){
$access_su{"$_"} =0;
$access_get_su{"$_"} =0;
}
foreach $access_one(@access) {
($date_access,$order_access,$total_access,$reward_access,$access_type,$access_kisyu) = split(/\,/,$access_one);
unless($access_kisyu){$access_kisyu =$kisyu_table[0];} #機種のデフォルト
($type_data,$reward_type)= split(/\//,$access_type);
$kakutei ='---';
if($reward_access eq '1'){
if($reward_type){
$kakutei =$type_data;
}else{
$kakutei =int($total_access*$type_data);
}
$reward_total +=$kakutei;
$access_get_su{"$access_kisyu"} ++;
}
if($reward_access eq '2'){
if($reward_type){
$past2 =$type_data;
}else{
$past2 =int($total_access*$type_data);
}
$reward_total_past2 +=$past2;
next;
}
if($reward_access eq '3'){
if($reward_type){
$past3 =$type_data;
}else{
$past3 =int($total_access*$type_data);
}
$reward_total_past3 +=$past3;
next;
}
$access_su{"$access_kisyu"} ++;
}
$reward_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
$reward_total_past2 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
$reward_total_past3 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
#====================================
print <<"EOF";
NO.$entry_no
|
$identity
$password |
$name
$date |
ﾒｰﾙ： $mail |
$mag |
| URL： $url |
| $click{"$kisyu_table[0]"}/$click{"$kisyu_table[1]"}/$click{"$kisyu_table[2]"}/$click{"$kisyu_table[3]"}/$click{"$kisyu_table[4]"} |
$access_su{"$kisyu_table[0]"}/$access_su{"$kisyu_table[1]"}/$access_su{"$kisyu_table[2]"}/$access_su{"$kisyu_table[3]"}/$access_su{"$kisyu_table[4]"} |
$access_get_su{"$kisyu_table[0]"}/$access_get_su{"$kisyu_table[1]"}/$access_get_su{"$kisyu_table[2]"}/$access_get_su{"$kisyu_table[3]"}/$access_get_su{"$kisyu_table[4]"} |
$reward_total円 |
$reward_total_past2円 |
$reward_total_past3円 |
|
EOF
}
#==============
&whole_total();
#==============
print <<"EOF";
| ｸﾘｯｸ数 |
注文数 |
報酬確定数 |
確定報酬額 |
前回報酬額 |
前々報酬額 |
| $kisyu_table[0] | $whole_click{"$kisyu_table[0]"} |
|
$whole_order{"$kisyu_table[0]"} |
$whole_order_get{"$kisyu_table[0]"} |
$whole_get{"$kisyu_table[0]"}円 |
$whole_get_past2{"$kisyu_table[0]"}円 |
$whole_get_past3{"$kisyu_table[0]"}円 |
| $kisyu_table[1] | $whole_click{"$kisyu_table[1]"} |
|
$whole_order{"$kisyu_table[1]"} |
$whole_order_get{"$kisyu_table[1]"} |
$whole_get{"$kisyu_table[1]"}円 |
$whole_get_past2{"$kisyu_table[1]"}円 |
$whole_get_past3{"$kisyu_table[1]"}円 |
| $kisyu_table[2] | $whole_click{"$kisyu_table[2]"} |
|
$whole_order{"$kisyu_table[2]"} |
$whole_order_get{"$kisyu_table[2]"} |
$whole_get{"$kisyu_table[2]"}円 |
$whole_get_past2{"$kisyu_table[2]"}円 |
$whole_get_past3{"$kisyu_table[2]"}円 |
| $kisyu_table[3] | $whole_click{"$kisyu_table[3]"} |
|
$whole_order{"$kisyu_table[3]"} |
$whole_order_get{"$kisyu_table[3]"} |
$whole_get{"$kisyu_table[3]"}円 |
$whole_get_past2{"$kisyu_table[3]"}円 |
$whole_get_past3{"$kisyu_table[3]"}円 |
| $kisyu_table[4] | $whole_click{"$kisyu_table[4]"} |
|
$whole_order{"$kisyu_table[4]"} |
$whole_order_get{"$kisyu_table[4]"} |
$whole_get{"$kisyu_table[4]"}円 |
$whole_get_past2{"$kisyu_table[4]"}円 |
$whole_get_past3{"$kisyu_table[4]"}円 |
|
|
$whole_order |
$whole_order_get |
$whole_get円 |
$whole_get_past2円 |
$whole_get_past3円 |
