From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 8 Sep 2019 14:11:17 +0000 (+0200)
Subject: read utf-8 input in letter frequency example
X-Git-Tag: v1.05~24
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/febdea55777f22731974392d45f5af7aa18b0934

read utf-8 input in letter frequency example
---

diff --git a/barcat b/barcat
index 9c4741a..a5ea9f3 100755
--- a/barcat
+++ b/barcat
@@ -334,7 +334,7 @@ Commonly used after counting, for example users on the current server:
 Letter frequencies in text files:
 
     cat /usr/share/games/fortunes/*.u8 |
-    perl -CO -nE 'say for grep length, split /\PL*/, uc' |
+    perl -CS -nE 'say for grep length, split /\PL*/, uc' |
     sort | uniq -c | barcat
 
 Number of HTTP requests per day: