Slide 1

Slide 1 text

Unicode Programming in Modern Perl Nick Patch @nickpatch Shutterstock

Slide 2

Slide 2 text

No content

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

UTF-8 encoded input

Slide 5

Slide 5 text

UTF-8 encoded input ⇩ decode

Slide 6

Slide 6 text

UTF-8 encoded input ⇩ decode ⇩ character string

Slide 7

Slide 7 text

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

Slide 8

Slide 8 text

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

Slide 9

Slide 9 text

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

Slide 10

Slide 10 text

use utf8;

Slide 11

Slide 11 text

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

Slide 12

Slide 12 text

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

Slide 13

Slide 13 text

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

Slide 14

Slide 14 text

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

Slide 15

Slide 15 text

=encoding UTF-8

Slide 16

Slide 16 text

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

Slide 17

Slide 17 text

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

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 open qw( :encoding(UTF-8) :std );

Slide 21

Slide 21 text

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

Slide 22

Slide 22 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 23

Slide 23 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 24

Slide 24 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 25

Slide 25 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 26

Slide 26 text

use charnames ':full';

Slide 27

Slide 27 text

sub remove_kasra { my ($word) = @_; $word =~ s{ \x{0650} $}{}x; return $word; }

Slide 28

Slide 28 text

sub remove_kasra { my ($word) = @_; $word =~ s{ \x{0650} $}{}x; return $word; }

Slide 29

Slide 29 text

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

Slide 30

Slide 30 text

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

Slide 31

Slide 31 text

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

Slide 32

Slide 32 text

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

Slide 33

Slide 33 text

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

Slide 34

Slide 34 text

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

Slide 35

Slide 35 text

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

Slide 36

Slide 36 text

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

Slide 37

Slide 37 text

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

Slide 38

Slide 38 text

use Unicode::Normalize; NFC('Größe') eq NFC('Gro\x{0308}ße')

Slide 39

Slide 39 text

use v5.16; use Unicode::Normalize; NFC(fc('Größe')) eq NFC(fc('GRO\x{0308}SSE'))

Slide 40

Slide 40 text

No content

Slide 41

Slide 41 text

No content

Slide 42

Slide 42 text

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

Slide 43

Slide 43 text

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

Slide 44

Slide 44 text

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

Slide 45

Slide 45 text

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

Slide 46

Slide 46 text

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

Slide 47

Slide 47 text

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

Slide 48

Slide 48 text

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

Slide 49

Slide 49 text

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

Slide 50

Slide 50 text

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

Slide 51

Slide 51 text

[0-9] 123…

Slide 52

Slide 52 text

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

Slide 53

Slide 53 text

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

Slide 54

Slide 54 text

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

Slide 55

Slide 55 text

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

Slide 56

Slide 56 text

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

Slide 57

Slide 57 text

/\w/a abc… 123… _

Slide 58

Slide 58 text

\s

Slide 59

Slide 59 text

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

Slide 60

Slide 60 text

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

Slide 61

Slide 61 text

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

Slide 62

Slide 62 text

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

Slide 63

Slide 63 text

.

Slide 64

Slide 64 text

\X Spınal Tap ̈ n\N{COMBINING DIAERESIS} 각 กำำ நி िष CRLF (\r\n)

Slide 65

Slide 65 text

\X Spın̈al Tap n\N{COMBINING DIAERESIS} 각 กำำ நி िष CRLF (\r\n)

Slide 66

Slide 66 text

\X Spınal Tap ̈ n\N{COMBINING DIAERESIS} 각 กำำ நி िष CRLF (\r\n)

Slide 67

Slide 67 text

\X Spınal Tap ̈ n\N{COMBINING DIAERESIS} 각 กำำ நி िष CRLF (\r\n)

Slide 68

Slide 68 text

\X Spınal Tap ̈ n\N{COMBINING DIAERESIS} 각 กำำ நி िष CRLF (\r\n)

Slide 69

Slide 69 text

\X Spınal Tap ̈ n\N{COMBINING DIAERESIS} 각 กำำ நி िष CRLF (\r\n)

Slide 70

Slide 70 text

\p{…}

Slide 71

Slide 71 text

\p{General_Category=Letter}

Slide 72

Slide 72 text

\p{Letter}

Slide 73

Slide 73 text

\p{L}

Slide 74

Slide 74 text

\pL

Slide 75

Slide 75 text

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

Slide 76

Slide 76 text

S Symbol Sm Math_Symbol Sc Currency_Symbol Sk Modifier_Symbol So Other_Symbol

Slide 77

Slide 77 text

\p{Script=Latin}

Slide 78

Slide 78 text

\p{Latin}

Slide 79

Slide 79 text

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

Slide 80

Slide 80 text

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

Slide 81

Slide 81 text

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

Slide 82

Slide 82 text

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

Slide 83

Slide 83 text

\p{ASCII}

Slide 84

Slide 84 text

\P{ASCII}

Slide 85

Slide 85 text

use v5.18;

Slide 86

Slide 86 text

(?[…])

Slide 87

Slide 87 text

(?[ \d - \p{ASCII} ])

Slide 88

Slide 88 text

(?[ \d & \p{Thai} ])

Slide 89

Slide 89 text

no warnings 'experimental::regex_sets'; (?[ \d & \p{Thai} ])

Slide 90

Slide 90 text

perlunicode — Unicode features perluniprops — Unicode properties perlre — regex syntax perlreref — regex reference perlrebackslash — regex escape sequences perlrecharclass — regex character classes Unicode::UCD — Unicode Character DB Lingua::Stem::UniNE — code examples

Slide 91

Slide 91 text

Questions? Nick Patch @nickpatch Shutterstock