| 90,6 → 90,10 |
|---|
| my $formatter = new Number::Format( |
| -decimal_point => $decimal_point, |
| -thousands_sep => $thousands_sep, |
| -kibi_suffix => ' KiB', |
| -mebi_suffix => ' MiB', |
| -gibi_suffix => ' GiB', |
| |
| # -grouping => $grouping[0] |
| ); |
| |
| 616,8 → 620,8 |
|---|
| ), |
| 76 |
| ); |
| print "\n\n"; |
| printf __"Total articles considered: %s over %d days\n", |
| print "\n"; |
| printf __"Total articles considered: %s over %d days\n", |
| $formatter->format_number($totalposts), |
| $formatter->format_number($numdays); |
| my $time_locale = setlocale(LC_TIME); |
| 632,23 → 636,24 |
|---|
| time_zone => 'UTC', |
| ); |
| my $datetime_format = '%a, %Y-%m-%dT%H:%M:%S %Z'; |
| printf __"Earliest article: %s\n", |
| printf __"Earliest article: %s" . "\n", |
| $earliest_datetime->strftime($datetime_format); |
| printf __"Latest article: %s\n", |
| printf __"Latest article: %s" . "\n", |
| $latest_datetime->strftime($datetime_format); |
| printf __"Original articles: %s; replies: %s\n", |
| printf __"Original articles: %s; replies: %s" . "\n", |
| $formatter->format_number($origposts), |
| $formatter->format_number($replies); |
| printf __"Total size of articles: %s bytes (%s)" . "\n", |
| printf __"Total size of articles: %s bytes (%s)" . "\n", |
| $formatter->format_number($totsize), |
| $formatter->format_bytes( $totsize, ( 'precision' => 1, 'mode' => 'iec' ) ); |
| printf __"Average %s articles per day, %s per day, %s bytes per article\n", |
| printf __"Average %s articles per day, %s per day, %s bytes per article.\n", |
| $formatter->format_number( int( $totalposts / $numdays ) ), |
| $formatter->format_bytes( $totsize / $numdays, ( 'mode' => 'iec' ) ), |
| $formatter->format_number( int( $totsize / $totalposts ) ); |
| |
| my $count = keys %data; |
| printf __"Total headers: %s; bodies: %s\n", |
| print "\n"; |
| printf __"Total headers: %s; bodies: %s\n", |
| $formatter->format_bytes( |
| $totheader, ( 'precision' => 1, 'mode' => 'iec' ) |
| ), |
| 659,14 → 664,16 |
|---|
| $totquoted, ( 'precision' => 1, 'mode' => 'iec' ) |
| ), |
| $formatter->format_bytes( $totorig, ( 'precision' => 1, 'mode' => 'iec' ) ), |
| $formatter->format_number( ( $totorig * 100 ) / ( $totorig + $totquoted ) ), |
| $formatter->format_number( ( $totorig * 100 ) / ( $totorig + $totquoted ) ) |
| , |
| $formatter->format_bytes( $totsig, ( 'precision' => 1, 'mode' => 'iec' ) ); |
| printf __"Total number of posters: %s, average %s per poster\n", |
| print "\n"; |
| printf __"Total number of posters: %s, average %s per poster\n", |
| $formatter->format_number($count), |
| $formatter->format_bytes( $totsize / $count, |
| ( 'precision' => 1, 'mode' => 'iec' ) ); |
| $count = keys %threads; |
| printf __"Total number of threads: %s, average %s per thread\n", |
| printf __"Total number of threads: %s, average %s per thread\n", |
| $formatter->format_number($count), |
| $formatter->format_bytes( $totsize / $count, |
| ( 'precision' => 1, 'mode' => 'iec' ) ); |