Anonymous avatar Anonymous committed 9c87f18

Fix a typo in the filename.

Comments (0)

Files changed (2)

bin/convert-wml-to-unicode-apostrophes.pl

+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use IO::All;
+
+use utf8;
+
+use open IO => ":encoding(utf8)";
+
+binmode STDIN, ":utf8";
+binmode STDOUT, ":utf8";
+
+my $content = io('-')->binmode(":utf8")->slurp();
+
+sub to_unicode
+{
+    my ($s) = @_;
+
+    $s =~ tr/'/’/;
+
+    return $s;
+}
+
+my @matches =
+(
+    "anyone's",
+    "aren't",
+    "can't",
+    "couldn't",
+    "didn't",
+    "doesn't",
+    "don't",
+    "everyone's",
+    "hadn't",
+    "hasn't",
+    "haven't",
+    "he'd",
+    "he'll",
+    "Here's",
+    "he's",
+    "he'syou'd",
+    "how's",
+    "I'd",
+    "i'll",
+    "I'll",
+    "I'm",
+    "isn't",
+    "it's",
+    "I've",
+    "let's",
+    "she'll",
+    "she's",
+    "shouldn't",
+    "that's",
+    "there's",
+    "they'll",
+    "they're",
+    "they've",
+    "wasn't",
+    "we'd",
+    "we'll",
+    "we're",
+    "weren't",
+    "we've",
+    "what's",
+    "where's",
+    "who's",
+    "why's",
+    "won't",
+    "wouldn't",
+    "you'd",
+    "you'll",
+    "you're",
+    "you've",
+);
+
+my $re_s = join("|", map { '(?:' . quotemeta($_) . ')' } @matches);
+my $re = qr/\b$re_s\b/i;
+
+$content =~ s{($re)}{to_unicode($1)}egi;
+
+print $content;

bin/convert-wml-to-unicode-apostrophies.pl

-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use IO::All;
-
-use utf8;
-
-use open IO => ":encoding(utf8)";
-
-binmode STDIN, ":utf8";
-binmode STDOUT, ":utf8";
-
-my $content = io('-')->binmode(":utf8")->slurp();
-
-sub to_unicode
-{
-    my ($s) = @_;
-
-    $s =~ tr/'/’/;
-
-    return $s;
-}
-
-my @matches =
-(
-    "anyone's",
-    "aren't",
-    "can't",
-    "couldn't",
-    "didn't",
-    "doesn't",
-    "don't",
-    "everyone's",
-    "hadn't",
-    "hasn't",
-    "haven't",
-    "he'd",
-    "he'll",
-    "Here's",
-    "he's",
-    "he'syou'd",
-    "how's",
-    "I'd",
-    "i'll",
-    "I'll",
-    "I'm",
-    "isn't",
-    "it's",
-    "I've",
-    "let's",
-    "she'll",
-    "she's",
-    "shouldn't",
-    "that's",
-    "there's",
-    "they'll",
-    "they're",
-    "they've",
-    "wasn't",
-    "we'd",
-    "we'll",
-    "we're",
-    "weren't",
-    "we've",
-    "what's",
-    "where's",
-    "who's",
-    "why's",
-    "won't",
-    "wouldn't",
-    "you'd",
-    "you'll",
-    "you're",
-    "you've",
-);
-
-my $re_s = join("|", map { '(?:' . quotemeta($_) . ')' } @matches);
-my $re = qr/\b$re_s\b/i;
-
-$content =~ s{($re)}{to_unicode($1)}egi;
-
-print $content;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.