Perl Localization with the Unicode CLDR

Slide 1

Slide 1 text

Unicode Beyond Just Characters Localization with the CLDR Nick Patch @nickpatch Shutterstock

Slide 2

Slide 2 text

森

Slide 3

Slide 3 text

⪷

Slide 4

Slide 4 text

얜

Slide 5

Slide 5 text

ﲵ

Slide 6

Slide 6 text

No content

Slide 7

Slide 7 text

ぷ Ꮨ ⇱ K ㋻

Slide 8

Slide 8 text

Ꙃ २ ௲

Slide 9

Slide 9 text

⇱ ⤳ ⪷ ௲ २ ൪ G K ж Ꙃ ﲵ Ꮨ 얜 ぷ㋻森

Slide 10

Slide 10 text

→ g ﲵ ← حض ㋻ →ワ

Slide 11

Slide 11 text

Perl ♥ Unicode

Slide 12

Slide 12 text

Unicode CLDR

Slide 13

Slide 13 text

i18n vs. L10n

Slide 14

Slide 14 text

No content

Slide 15

Slide 15 text

Locales

Slide 16

Slide 16 text

$locale = Locales->new('fr'); say $locale->get_language_from_code('en'); anglais

Slide 17

Slide 17 text

$locale = Locales->new('fr'); say $locale->get_territory_from_code('US'); États-Unis

Slide 18

Slide 18 text

No content

Slide 19

Slide 19 text

No content

Slide 20

Slide 20 text

No content

Slide 21

Slide 21 text

No content

Slide 22

Slide 22 text

CLDR::Number

Slide 23

Slide 23 text

$cldr = CLDR::Number->new(locale => 'es');

Slide 24

Slide 24 text

$cldr = CLDR::Number->new(locale => 'es'); $decf = $cldr->decimal_formatter;

Slide 25

Slide 25 text

$cldr = CLDR::Number->new(locale => 'es'); $decf = $cldr->decimal_formatter; say $decf->format(1234.5);

Slide 26

Slide 26 text

$cldr = CLDR::Number->new(locale => 'es'); $decf = $cldr->decimal_formatter; say $decf->format(1234.5); 1 234,5

Slide 27

Slide 27 text

$decf->locale('es-MX'); say $decf->format(1234.5); 1,234.5

Slide 28

Slide 28 text

$decf->locale('ar'); say $decf->format(1234.5); ١٬٢٣٤٫٥

Slide 29

Slide 29 text

$decf->locale('bn'); say $decf->format(123_000); ১,২৩,০০০

Slide 30

Slide 30 text

$decf->locale('bn'); say $decf->format(12_300_000); ১,২৩,০০,০০০

Slide 31

Slide 31 text

$perf = $cldr->percent_formatter( locale => 'tr' );

Slide 32

Slide 32 text

$perf = $cldr->percent_formatter( locale => 'tr' );

Slide 33

Slide 33 text

$perf = $cldr->percent_formatter( locale => 'tr' ); say $perf->format(0.05);

Slide 34

Slide 34 text

$perf = $cldr->percent_formatter( locale => 'tr' ); say $perf->format(0.05); %5

Slide 35

Slide 35 text

$perf->locale('ar'); say $perf->format(0.05); ٥٪

Slide 36

Slide 36 text

$perf->locale('fr'); say $perf->format(0.05); 5 %

Slide 37

Slide 37 text

$perf->permil(1); say $perf->format(0.05); 50 ‰

Slide 38

Slide 38 text

$curf = $cldr->currency_formatter( locale => 'en', currency_code => 'USD', );

Slide 39

Slide 39 text

$curf = $cldr->currency_formatter( locale => 'en', currency_code => 'USD', );

Slide 40

Slide 40 text

$curf = $cldr->currency_formatter( locale => 'en', currency_code => 'USD', ); say $curf->format(9.99);

Slide 41

Slide 41 text

$curf = $cldr->currency_formatter( locale => 'en', currency_code => 'USD', ); say $curf->format(9.99); $9.99

Slide 42

Slide 42 text

$curf->locale('en-CA'); say $curf->format(9.99); US$9.99

Slide 43

Slide 43 text

$curf->locale('fr-CA'); say $curf->format(9.99); 9,99 $US

Slide 44

Slide 44 text

$curf->locale('fr-CA'); $curf->currency_code('CAD') say $curf->format(9.99); 9,99 $

Slide 45

Slide 45 text

$curf->locale('bn'); $curf->currency_code('INR'); say $curf->format(123_000); ১,২৩,০০০.০০₹

Slide 46

Slide 46 text

$decf->locale('en'); translate( '[_1]–[_2] of [_3]', $decf->format(1), $decf->format(25), $decf->format(1500), );

Slide 47

Slide 47 text

$decf->locale('en'); translate( '[_1]–[_2] of [_3]', $decf->format(1), $decf->format(25), $decf->format(1500), ); 1–25 of 1,500

Slide 48

Slide 48 text

$decf->locale('en'); translate( '[_1] of [_2]', $decf->range(1, 25), $decf->format(1500), ); 1–25 of 1,500

Slide 49

Slide 49 text

$decf->locale('ja'); translate( '[_1] of [_2]', $decf->range(1, 25), $decf->format(1500), ); 1 ～ 25 の 1,500

Slide 50

Slide 50 text

$decf->locale('ja'); $decf->numbering_system('fullwide'); translate( '[_1] of [_2]', $decf->range(1, 25), $decf->format(1500), ); １～２５の１ , ５００

Slide 51

Slide 51 text

$decf->locale('ja-u-nu-fullwide'); translate( '[_1] of [_2]', $decf->range(1, 25), $decf->format(1500), ); １～２５の１ , ５００

Slide 52

Slide 52 text

Unicode::Collate::Locale

Slide 53

Slide 53 text

use Unicode::Collate::Locale;

Slide 54

Slide 54 text

use Unicode::Collate::Locale; $c = Unicode::Collate::Locale->new( locale => 'pl' );

Slide 55

Slide 55 text

use Unicode::Collate::Locale; $c = Unicode::Collate::Locale->new( locale => 'pl' ); @sorted = $c->sort(@words);

Slide 56

Slide 56 text

DateTime DateTime::Locale

Slide 57

Slide 57 text

use DateTime; $dt = DateTime->now(locale => 'ja'); say $dt->format_cldr( $dt->locale->datetime_format_full ); 2014 年 6 月 23 日水曜日 9 時 50 分 42 秒 UTC