Slide 1

Slide 1 text

Unicode Best Practices Nick Patch @nickpatch Shutterstock

Slide 2

Slide 2 text

Perl

Slide 3

Slide 3 text

Perl has some of the best Unicode support today, especially with respect to regular expressions. Benjamin Peterson The Guts of Unicode in Python PyCon 2013

Slide 4

Slide 4 text

use v5.8;

Slide 5

Slide 5 text

use v5.12;

Slide 6

Slide 6 text

use v5.14;

Slide 7

Slide 7 text

UTF-8 encoded input

Slide 8

Slide 8 text

UTF-8 encoded input ⇩ decode

Slide 9

Slide 9 text

UTF-8 encoded input ⇩ decode ⇩ character string

Slide 10

Slide 10 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ hack… hack… hack…

Slide 11

Slide 11 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ hack… hack… hack… ⇩ encode

Slide 12

Slide 12 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ hack… hack… hack… ⇩ encode ⇩ UTF-8 encoded output

Slide 13

Slide 13 text

use utf8;

Slide 14

Slide 14 text

s/ / /g

Slide 15

Slide 15 text

use utf8; $word =~ s{ (?: دابآ | هراب | یدنب | يدنب | نیرت | یزیر | يزیر | یزاس | يزاس | ییاه ) $}{}x;

Slide 16

Slide 16 text

use utf8; $word =~ s{ (?: ия # definite articles for nouns: | ът # ∙ masculine | та # ∙ feminine | то # ∙ neutral | те # ∙ plural ) $}{}x;

Slide 17

Slide 17 text

=encoding UTF-8

Slide 18

Slide 18 text

=encoding UTF-8 =head1 NAME Lingua::Stem::UniNE - University of Neuchâtel stemmers

Slide 19

Slide 19 text

use open qw( :encoding(UTF-8) :std );

Slide 20

Slide 20 text

use utf8; use open qw( :encoding(UTF-8) :std ); use Test::More tests => 66; use Lingua::Stem::UniNE::CS qw( stem ); is stem('zvířatech'), 'zvíř', 'rm -atech'; is stem('zvířatům'), 'zvíř', 'rm -atům'; is stem('zvířata'), 'zvíř', 'rm -ata'; is stem('zvířaty'), 'zvíř', 'rm -aty';

Slide 21

Slide 21 text

decode_json($json)

Slide 22

Slide 22 text

$res->decoded_content

Slide 23

Slide 23 text

decode('UTF-8', $arg)

Slide 24

Slide 24 text

use charnames ':full';

Slide 25

Slide 25 text

use charnames ':full'; sub remove_kasra { my ($word) = @_; $word =~ s{ \N{ARABIC KASRA} $}{}x; return $word; }

Slide 26

Slide 26 text

use v5.16; sub remove_kasra { my ($word) = @_; $word =~ s{ \N{ARABIC KASRA} $}{}x; return $word; }

Slide 27

Slide 27 text

\d

Slide 28

Slide 28 text

\d 123…

Slide 29

Slide 29 text

\d 123… … ১২৩

Slide 30

Slide 30 text

\d 123… … ১২৩ … ໑໒໓

Slide 31

Slide 31 text

[0-9] 123…

Slide 32

Slide 32 text

\w

Slide 33

Slide 33 text

\w abc… 123… _

Slide 34

Slide 34 text

\w abc… 123… _ αβγ… … ㄅㄆㄇ

Slide 35

Slide 35 text

\w abc… 123… _ αβγ… … ㄅㄆㄇ … ج ب أ

Slide 36

Slide 36 text

\b abc… 123… _ αβγ… … ㄅㄆㄇ … ج ب أ

Slide 37

Slide 37 text

[A-Za-z0-9_] abc… 123… _

Slide 38

Slide 38 text

\p{PerlWord} abc… 123… _

Slide 39

Slide 39 text

\s

Slide 40

Slide 40 text

\R

Slide 41

Slide 41 text

\R LF (\n) CR (\r) FF (\f)

Slide 42

Slide 42 text

\R LF (\n) CR (\r) FF (\f) CRLF (\r\n)

Slide 43

Slide 43 text

\R LF (\n) CR (\r) FF (\f) CRLF (\r\n) NEL VT LS PS

Slide 44

Slide 44 text

.

Slide 45

Slide 45 text

\X

Slide 46

Slide 46 text

\X n ̈

Slide 47

Slide 47 text

\X Spınal Tap ̈

Slide 48

Slide 48 text

\X Spınal Tap ̈ n\N{COMBINING DIAERESIS}

Slide 49

Slide 49 text

\X Spınal Tap ̈ n\N{COMBINING DIAERESIS} \r\n

Slide 50

Slide 50 text

\p

Slide 51

Slide 51 text

\p{ASCII}

Slide 52

Slide 52 text

\P{ASCII}

Slide 53

Slide 53 text

\p{General_Category=Letter}

Slide 54

Slide 54 text

\p{Letter}

Slide 55

Slide 55 text

\p{L}

Slide 56

Slide 56 text

\pL

Slide 57

Slide 57 text

L Letter M Mark N Number P Punctuation S Symbol Z Separator C Other

Slide 58

Slide 58 text

S Symbol Sm Math_Symbol Sc Currency_Symbol Sk Modifier_Symbol So Other_Symbol

Slide 59

Slide 59 text

\p{Script=Latin}

Slide 60

Slide 60 text

\p{Latin}

Slide 61

Slide 61 text

[\p{Hiragana} \p{Katakana} \p{Han} \p{Latin} \p{Common}]

Slide 62

Slide 62 text

[\p{Hira} \p{Kana} \p{Hani} \p{Latn} \p{Common}]

Slide 63

Slide 63 text

Arab Arabic Beng Bengali Deva Devanagari Egyp Egyptian hieroglyphs Ethi Ethiopic Grek Greek Hang Hangul …

Slide 64

Slide 64 text

return $word if $word =~ s{ зи $}{г}x || $word =~ s{ е ( \p{Cyrl} ) и $}{я$1}x || $word =~ s{ ци $}{к}x || $word =~ s{ (?: та | ища ) $}{}x;

Slide 65

Slide 65 text

lc('Größe') eq 'größe'

Slide 66

Slide 66 text

lc('Größe') eq 'größe' uc('Größe') eq 'GRÖSSE'

Slide 67

Slide 67 text

lc('Größe') eq 'größe' uc('Größe') eq 'GRÖSSE' lc('Größe') ne lc(uc('Größe'))

Slide 68

Slide 68 text

use Unicode::CaseFold; fc('Größe') eq fc(GRÖSSE)

Slide 69

Slide 69 text

use v5.16; fc('Größe') eq fc(GRÖSSE)

Slide 70

Slide 70 text

use Unicode::Normalize; NFC('Größe') eq NFC('Gro◌̈ße')

Slide 71

Slide 71 text

use v5.16; use Unicode::Normalize; NFC(fc('Größe')) eq NFC(fc('GRO◌̈SSE'))

Slide 72

Slide 72 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ NFD hack ⇨ … hack… hack… NFC ⇨ ⇩ encode ⇩ UTF-8 encoded output

Slide 73

Slide 73 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ NFD hack ⇨ … hack… hack… NFC ⇨ ⇩ encode ⇩ UTF-8 encoded output

Slide 74

Slide 74 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ NFD hack ⇨ … hack… hack… NFC ⇨ ⇩ encode ⇩ UTF-8 encoded output

Slide 75

Slide 75 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ NFD hack ⇨ … hack… hack… NFC ⇨ ⇩ encode ⇩ UTF-8 encoded output

Slide 76

Slide 76 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ NFD hack ⇨ … hack… hack… NFC ⇨ ⇩ encode ⇩ UTF-8 encoded output

Slide 77

Slide 77 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ NFD hack ⇨ … hack… hack… NFC ⇨ ⇩ encode ⇩ UTF-8 encoded output

Slide 78

Slide 78 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ NFD hack ⇨ … hack… hack… NFC ⇨ ⇩ encode ⇩ UTF-8 encoded output

Slide 79

Slide 79 text

UTF-8 encoded input ⇩ decode ⇩ character string ⇩ NFD hack ⇨ … hack… hack… NFC ⇨ ⇩ encode ⇩ UTF-8 encoded output

Slide 80

Slide 80 text

No content

Slide 81

Slide 81 text

No content

Slide 82

Slide 82 text

use Unicode::Collate; my $c = Unicode::Collate->new; @countries = $c->sort(@countries);

Slide 83

Slide 83 text

use Unicode::Collate; my $c = Unicode::Collate->new( level => 2 # ignore case ); $c->eq('Größe', 'GRO◌̈SSE')

Slide 84

Slide 84 text

use Unicode::Collate::Locale; my $c = Unicode::Collate::Locale->new( locale => 'de' ); @words_de = $c->sort(@words_de);

Slide 85

Slide 85 text

use Test::More; new_ok 'Text::CSV::Hashify' => [ file => $file, max_rows => '٤٠', ];

Slide 86

Slide 86 text

@nickpatch