separate perl operators with whitespace

[unicode-sampler.git] / unicode.txt

diff --git a/unicode.txt b/unicode.txt
index a24dc5b34c6e37958184e2963df6e1e3b3e4a00d..b4f40c85bd961d2b515c6b8e048a2413d3015266 100644 (file)
--- a/unicode.txt
+++ b/unicode.txt
@@ -11,7 +11,9 @@ Code:
 
   Hash[ :nbsp => 0O2_40 ].each {|name, cp| puts "#{name} is '#{cp.chr}'" }
 
-  perl -pe's/\w/$^=~$&>chop($^=$&.$^)?"@-":$&/ge'
+  while ((c = *l++) != '\0') { m->stat[2] = IO | (~OK & X_8); }
+
+  perl -pe's/\w/$^ =~ $& > chop($^ = $& . $^) ? "@-" : $&/ge'
 
   ↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life
 
@@ -59,10 +61,11 @@ English panphone (traditional, IPA, Shavian, Braille):
 
 Proper typography:
 
-  • Lookalikes: 1lI|, 0OD, 8B
-  • “It’s ‘quoted’”, „deutsche ‚Gänsefüßchen‘“
+  • Lookalikes: 1lI|, 0OD, 8B, 2Z, 5S$
+  • “It’s ‘quoted’”, „deutsche ‚Gänsefüßchen‘“, « guillemets ‹comme ci› »
   • u + ¨ + ´ = ǘ, o + ~ + ¯ = ȭ, e + ^ + ` = ề
-  • †, ‡, ‰, •, 3–4, —, −5/+5, ™, €1, …
+  • ‰, •, 3–4, —, −5/+5, ™, €1, …
+  • ⒈ ♙e4 ♟e5 ⒉ f4 e×f4 ⒊ ♗c4 ♛h4† ⒋ ♔f1 b5⁈ ⒌ ♗×b5 ♞f6 ⒍ ♘f3 ♛h6 … 2⒊ ♗e7‡
 
 Precomposed and combining diacritics: