---
title: "Perl - wordcount"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/38248-perl-wordcount"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "Robban"
published: "2000-08-10T02:14:00.000Z"
updated: "2000-08-10T02:14:00.000Z"
replies: 0
views: 1209
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/38248-perl-wordcount"
---

# Perl - wordcount

## #1 — Robban, 2000-08-10T02:14Z

Räknar ordförekomst i en textfil. Varken mer eller mindre. ![](http://script.webforum.nu/wf/smile.gif)

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
```

Permalänk: https://www.webforum.nu/p/38248

---

Tråden på webben: https://www.webforum.nu/amne/programmering/38248-perl-wordcount