| Index: trunk/wikistats/pediapress/WikiCountsPediaPress.pl |
| — | — | @@ -14,21 +14,29 @@ |
| 15 | 15 | use WikiCountsLog ;
|
| 16 | 16 |
|
| 17 | 17 | $dir_in = "W:/\# In PediaPress" ;
|
| 18 | | - $dir_out = "W:/\# Out Test/csv_wp" ;
|
| | 18 | + $dir_out = "W:/\@ Report Card/PediaPress" ;
|
| 19 | 19 |
|
| 20 | 20 | $file_csv_country_codes = "CountryCodes.csv" ;
|
| 21 | 21 | $file_csv_country_meta_info = "SquidReportCountryMetaInfo.csv" ;
|
| 22 | 22 |
|
| 23 | 23 | &ReadInputCountriesNames ;
|
| 24 | 24 |
|
| 25 | | - &ReadMonthlySales ("$dir_in/wmf-report-2010-08.csv") ;
|
| 26 | | - &ReadMonthlySales ("$dir_in/wmf-report-2010-09.csv") ;
|
| | 25 | + &ReadMonthlySales ("$dir_in/wmf_report_2010-08.csv") ;
|
| | 26 | + &ReadMonthlySales ("$dir_in/wmf_report_2010-09.csv") ;
|
| | 27 | + &ReadMonthlySales ("$dir_in/wmf_report_2010-10.csv") ;
|
| | 28 | + &ReadMonthlySales ("$dir_in/wmf_report_2010-11.csv") ;
|
| | 29 | + &ReadMonthlySales ("$dir_in/wmf_report_2010-12.csv") ;
|
| | 30 | + &ReadMonthlySales ("$dir_in/wmf_report_2011-01.csv") ;
|
| | 31 | + &ReadMonthlySales ("$dir_in/wmf_report_2011-02.csv") ;
|
| | 32 | + &ReadMonthlySales ("$dir_in/wmf_report_2011-03.csv") ;
|
| | 33 | + &ReadMonthlySales ("$dir_in/wmf_report_2011-04.csv") ;
|
| | 34 | + &ReadMonthlySales ("$dir_in/wmf_report_2011-05.csv") ;
|
| 27 | 35 |
|
| 28 | 36 | &ProcessMonthlySales ;
|
| 29 | 37 |
|
| 30 | | - &WriteMonthlySales ("$dir_out/PediaPressSalesMonthlyCountriesHorizontal.csv",
|
| 31 | | - "$dir_out/PediaPressSalesMonthlyCountriesVertical.csv",
|
| 32 | | - "$dir_out/PediaPressSalesMonthlyCountriesPlotBooks.csv") ;
|
| | 38 | + &WriteMonthlySales ("$dir_out/BookToolSalesMonthlyDetailedOneRowPerMonth.csv",
|
| | 39 | + "$dir_out/BookToolSalesMonthlyDetailedBreakdownPerCountry.csv",
|
| | 40 | + "$dir_out/BookToolSalesMonthlyConciseBooksShippedOnly.csv") ;
|
| 33 | 41 |
|
| 34 | 42 | print "\n\Ready\n\n" ;
|
| 35 | 43 | exit ;
|
| — | — | @@ -177,7 +185,7 @@ |
| 178 | 186 | print "$line_csv2\n" ;
|
| 179 | 187 | print CSV_OUT "$line_csv2\n" ;
|
| 180 | 188 |
|
| 181 | | - foreach $month (sort {$b cmp $a} keys %months)
|
| | 189 | + foreach $month (sort {$a cmp $b} keys %months)
|
| 182 | 190 | {
|
| 183 | 191 | $line_csv = "$month" ;
|
| 184 | 192 | foreach $country (sort {$sales_per_country {$b} <=> $sales_per_country {$a}} keys %sales_per_country)
|
| — | — | @@ -207,7 +215,7 @@ |
| 208 | 216 | print $line_csv ;
|
| 209 | 217 | print CSV_OUT $line_csv ;
|
| 210 | 218 |
|
| 211 | | - foreach $month (sort {$b cmp $a} keys %months)
|
| | 219 | + foreach $month (sort {$a cmp $b} keys %months)
|
| 212 | 220 | {
|
| 213 | 221 | $line_csv = "$month," . $metrics_monthly {"$month,$country_code"} . "\n";
|
| 214 | 222 | print $line_csv ;
|
| — | — | @@ -233,7 +241,7 @@ |
| 234 | 242 | print "$line_csv\n" ;
|
| 235 | 243 | print CSV_OUT "$line_csv\n" ;
|
| 236 | 244 |
|
| 237 | | - foreach $month (sort {$b cmp $a} keys %months)
|
| | 245 | + foreach $month (sort {$a cmp $b} keys %months)
|
| 238 | 246 | {
|
| 239 | 247 | $line_csv = "$month" ;
|
| 240 | 248 | foreach $country_code (sort {$sales_per_country {$b} <=> $sales_per_country {$a}} keys %sales_per_country)
|