Commits

Shlomi Fish  committed dc4c87d

Add another script.

  • Participants
  • Parent commits a9b10b4

Comments (0)

Files changed (1)

File bin/extract-spelling-errors.pl

+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use autodie;
+
+use utf8;
+
+binmode STDOUT, ":utf8";
+
+open my $i, '<:utf8', 'foo.txt';
+while (my $l = <$i>)
+{
+    foreach my $m ($l =~ m/«(.*?)»/g)
+    {
+        print "$m\n";
+    }
+}
+close($i);