Perl - wordcount

Räknar ordförekomst i en textfil. Varken mer eller mindre.

OBS. Inget CGI-script.

#!/usr/bin/perl -wn

use strict;
use vars '%c';
use locale;

while (/\G.*?([\w\-]+)/gi) {
  $c{lc($1)}++;
}

END {
  foreach (sort keys %c) {
    print "$_: $c{$_}\n";
  }
}

=pod

=head1 NAME

wordcount - simple word counter.

=head1 SYNOPSIS

B<wordcount> filename

=head1 AUTHOR

Robert Hallgren E<lt>robert@lipogram.comE<gt>

=cut

------------------
Robban < robban@lipogram.com >