simple case, unicode and soundex examples

Author: stmuk

categories/cookbook/01strings/01-05namedunicode.pl

@@ -0,0 +1,15 @@
+use v6;
+
+=begin pod
+
+=TITLE Using Named Unicode Chars
+
+=AUTHOR stmuk
+
+=end pod
+
+say "\c[REGISTERED SIGN]";
+
+say uniname("\x1f63E"); # POUTING CAT FACE
+
+# vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/01strings/01-13upper-lower-case.pl

@@ -0,0 +1,21 @@
+use v6;
+
+=begin pod
+
+=TITLE Upper/Lower Case
+
+=AUTHOR stmuk
+
+You have a string and what to upper/lower case it
+
+=end pod
+
+my $string = "the cat sat on the mat";
+
+say $string=$string.uc; # THE CAT SAT ON THE MAT 
+
+say $string.=lc; # the cat sat on the mat 
+
+say $string.wordcase; # The Cat Sat On The Mat 
+
+# vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/01strings/01-22soundex-matching.pl

@@ -0,0 +1,21 @@
+use v6;
+
+=begin pod
+
+=TITLE Soundex Matching
+
+=AUTHOR stmuk
+
+You have two surnames and want to know if they sound similar
+
+=end pod
+
+use Algorithm::Soundex;
+
+my Algorithm::Soundex $s .= new();
+
+say  $s.soundex("Smith");
+say  $s.soundex("Smythe");
+say  $s.soundex("Bloggs");
+
+# vim: expandtab shiftwidth=4 ft=perl6