From: Richard Kojedzinszky <krichy@cflinux.hu>
Date: Thu, 25 Sep 2014 20:53:35 +0000 (+0200)
Subject: uwc: perl version
X-Git-Url: http://git.neszt.hu/?a=commitdiff_plain;h=d5b2b99e3dd65cb43d9ba27b93aac9360016868f;p=uwc.git

uwc: perl version
---

diff --git a/uwc.pl b/uwc.pl
new file mode 100644
index 0000000..e6b4176
--- /dev/null
+++ b/uwc.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use common::sense;
+my %counts;
+
+while (<STDIN>) {
+	for (/([a-z']+)/goi) {
+		$counts{$1}++;
+	}
+}
+
+print join("\n", sort { $counts{$a} <=> $counts{$b} } keys %counts) . "\n";