Rev 13 | Rev 22 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 13 | Rev 14 | ||
|---|---|---|---|
| Line 6... | Line 6... | ||
| 6 | use Encode; |
6 | use Encode; |
| 7 | 7 | ||
| 8 | ## Print out all text to STDOUT UTF-8 encoded
|
8 | ## Print out all text to STDOUT UTF-8 encoded
|
| 9 | binmode STDOUT, ':encoding(UTF-8)'; |
9 | binmode STDOUT, ':encoding(UTF-8)'; |
| 10 | 10 | ||
| 11 | ############################
|
11 | ##############################
|
| 12 | ## newsstat.pl version 0.4.3
|
12 | ## newsstat.pl version 0.4.3.1
|
| 13 | 13 | ||
| 14 | ###########################################################################
|
14 | ###########################################################################
|
| 15 | ## Collect statistics about a newsgroup (specified by first argument)
|
15 | ## Collect statistics about a newsgroup (specified by first argument)
|
| 16 | ## in the local news spool. Check all articles in the last 30-day period.
|
16 | ## in the local news spool. Check all articles in the last 30-day period.
|
| 17 | ## Rank posters by number of posts and by volume of posts, report on top
|
17 | ## Rank posters by number of posts and by volume of posts, report on top
|
| Line 810... | Line 810... | ||
| 810 | ################################################################
|
810 | ################################################################
|
| 811 | sub clean
|
811 | sub clean
|
| 812 | {
|
812 | {
|
| 813 | my $dirty = shift; |
813 | my $dirty = shift; |
| 814 | my $clean = $dirty; |
814 | my $clean = $dirty; |
| 815 | $clean =~ s/^\s*|\s*$//g; |
815 | $clean =~ s/^\s+|\s+$//g; |
| 816 | 816 | ||
| 817 | return $clean; |
817 | return $clean; |
| 818 | }
|
818 | }
|
| 819 | 819 | ||
| 820 | sub usage
|
820 | sub usage
|