X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Fscowl.git;a=blobdiff_plain;f=6%2Fsrc%2Fclean-alan-list;fp=6%2Fsrc%2Fclean-alan-list;h=8dd25c57bd6be51dd871b79a091d379e2bd37371;hp=0000000000000000000000000000000000000000;hb=d5cbd5b855d8157fe44cd0979c2e517b93fb5004;hpb=0ba1587a200ebb44aea6355ee9330a720e3ecde2

diff --git a/6/src/clean-alan-list b/6/src/clean-alan-list
new file mode 100755
index 0000000..8dd25c5
--- /dev/null
+++ b/6/src/clean-alan-list
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+while (<>) 
+{
+  s/\r?\n$// or die;
+  s/[.:]$//;
+  next if /[ .\/-]/;
+  print "$_\n";
+  die unless /^[A-Za-z']+$/;
+}