perl code snippet for additional programming symbols

[unicode-sampler.git] / unicode.txt

diff --git a/unicode.txt b/unicode.txt
index 4e4a360daab923240c910f77c6599897d1699d55..88dd0c189f95d813f3d680565139057642d5ed2d 100644 (file)
--- a/unicode.txt
+++ b/unicode.txt
@@ -11,6 +11,8 @@ Code:
 
   Hash[ :nbsp => 0O2_40 ].each {|name, cp| puts "#{name} is '#{cp.chr}'" }
 
+  perl -pe's/\w/$^=~$&>chop($^=$&.$^)?"@-":$&/ge'
+
 Mathematics and sciences:
 
   ∮ E⋅da = Q,  n → ∞, ∑ f(i) = ∏ g(i),      ⎧⎡⎛┌─────┐⎞⎤⎫