Что нового в Perl? 5.10 — 5.16

1. Что нового в Perl? 5.10 — 5.16 Рикардо Синес (Ricardo Signes, rjbs)

2. Perl 5 Что нового?

3. Perl 5.10 Для тех, кто не совсем безумен

4. Perl 5.12 Для использования каждый день

5. Perl 5.14 Для прагматиков

6. Perl 5.16 Для настоящих программистов

7. Лексическая семантика!

8. use feature ‘say’; say “Это тест!”; { no feature ‘say’; say “Это ошибка!”; }

9. use 5.16.0; say “Это тест!”; { no feature ‘say’; say “Это ошибка!”; }

10. #!/usr/bin/perl use strict; use warnings; use 5.16.0; # use feature ‘:5.16’; my $x = Reticulator->new; $x->reticulate( @splines );

11. #!/usr/bin/perl use strict; use warnings; # no feature; my $x = Reticulator->new; $x->reticulate( @splines );

12. #!/usr/bin/perl use strict; use warnings; # use feature ‘:default’; my $x = Reticulator->new; $x->reticulate( @splines );

13. array_base: $[

14. Классные новые фичи!

15. Лучше сообщения об ошибках $str = “Привет, $name. Последний визит был $last. Сейчас $time.”; perldiag

16. Лучше сообщения об ошибках $str = “Привет, $name. Последний визит был $last. Сейчас $time.”; Use of uninitialized value in concatenation (.) or string at hello.plx line 9. perldiag

17. Лучше сообщения об ошибках $str = “Привет, $name. Последний визит был $last. Сейчас $time.”; Use of uninitialized value $time in concatenation (.) or string at hello.plx line 9. perldiag

18. state-переменные my $LINES_READ = 0; sub read_line { $LINES_READ++; ... } perlsub

19. state-переменные { my $LINES_READ = 0; sub read_line { $LINES_READ++; ... } } perlsub

20. state-переменные sub read_line { state $LINES_READ = 0; $LINES_READ++; ... } perlsub

21. Истина и определённость perlop

22. Истина и определённость sub record_sale { perlop

23. Истина и определённость sub record_sale { my ($product, $amount) = @_; perlop

24. Истина и определённость sub record_sale { my ($product, $amount) = @_; my $price = $amount perlop

25. Истина и определённость sub record_sale { my ($product, $amount) = @_; my $price = $amount || $product->price; perlop

26. Истина и определённость sub record_sale { my ($product, $amount) = @_; my $price = $amount || $product->price; ... } perlop

28. Истина и определённость sub record_sale { my ($product, $amount) = @_; my $price = deﬁned $amount ? $amount : $product->price; ... } perlop

30. Истина и определённость sub record_sale { my ($product, $amount) = @_; my $price = $amount // $product->price; ... } perlop

31. Новый оператор ИЛИ sub record_sale { my ($product, $amount) = @_; $amount //= $product->price; ... } perlop

32. say $what • новая встроенная функция say • делает тоже самое, что и print • только добавляет n в конце строки perlfunc

33. say $what perlfunc

34. say $what print “Привет, мир!n”; perlfunc

35. say $what print “Привет, мир!n”; print “$messagen”; perlfunc

36. say $what print “Привет, мир!n”; print “$messagen”; print “$_n” for @lines; perlfunc

37. say $what print “Привет, мир!n”; say “Привет, мир!”; print “$messagen”; print “$_n” for @lines; perlfunc

38. say $what print “Привет, мир!n”; say “Привет, мир!”; print “$messagen”; say $message; print “$_n” for @lines; perlfunc

39. say $what print “Привет, мир!n”; say “Привет, мир!”; print “$messagen”; say $message; print “$_n” for @lines; say for @lines; perlfunc

41. $ perl -e ‘print “Foon”’

42. $ perl -e ‘print “Foon”’ $ perl -E ‘say “Foo”’

43. Рекурсия! sub fact { my ($x) = @_; # must be +int return $x if $x == 1; return $x * fact($x - 1); }

44. Рекурсия! sub fact { my ($x) = @_; # must be +int return $x if $x == 1; return $x * fact($x - 1); }

45. Рекурсия! my $fact = sub { my ($x) = @_; # must be +int return $x if $x == 1; return $x * $fact->($x - 1); };

46. Рекурсия! my $fact = sub { my ($x) = @_; # must be +int return $x if $x == 1; return $x * $fact->($x - 1); };

47. Рекурсия! my $fact; $fact = sub { my ($x) = @_; # must be +int return $x if $x == 1; return $x * $fact->($x - 1); };

48. Рекурсия! my $fact; $fact = sub { my ($x) = @_; # must be +int return $x if $x == 1; return $x * $fact->($x - 1); };

49. Рекурсия! use Scalar::Util qw(weaken); my $fact = do { my $f1; my $f2 = $f1 = sub { my ($x) = @_; return $x if $x == 1; return $x * $f1->($x - 1); }; weaken($f1); $f1; };

50. Рекурсия! use 5.16.0; # current sub my $fact = sub { my ($x) = @_; # must be +int return $x if $x == 1; return $x * __SUB__->($x - 1); };

51. Дескрипторы файлов!

52. autodie open my $fh, ‘<‘, $ﬁlename; while (<$fh>) { ... } close $fh; autodie

53. autodie open my $fh, ‘<‘, $filename or die “couldn’t open $filename: $!”; while (<$fh>) { ... } close $fh or die “couldn’t close $filename: $!”; autodie

54. autodie use autodie; open my $fh, ‘<‘, $ﬁlename; while (<$fh>) { ... } close $fh; autodie

55. autodie use autodie; open my $fh, ‘<‘, $ﬁlename; while (<$fh>) { no autodie; rmdir or warn “couldn’t remove $_: $!”; } close $fh; autodie

56. autodie use autodie; sub foo { my $ﬁlename = shift; open my $fh, ‘<‘, $ﬁlename; while (<$fh>) { ... } } # неявный вызов close БЕЗ autodie autodie

57. IO::File sub stream_to_fh { my ($self, $fh) = @_; ﬁleno $fh or die “can’t stream to closed fh”; while (my $hunk = $self->next_hunk) { print {$fh} $hunk; } close $fh or die “error closing: $!”; } perlopentut

58. IO::File sub stream_to_fh { my ($self, $fh) = @_; $fh->ﬁleno or die “can’t stream to closed fh”; while (my $hunk = $self->next_hunk) { $fh->print($hunk); } $fh->close or die “error closing: $!”; } perlopentut

59. IO::File sub stream_to_fh { ... $fh->print($hunk); ... $fh->close or die “error closing: $!”; } open my $target, ‘>’, ‘/dev/null’ or die “can’t open bit bucket:$!”; stream_to_fh($target); perlopentut

60. IO::File use IO::File; sub stream_to_fh { ... $fh->print($hunk); ... $fh->close or die “error closing: $!”; } open my $target, ‘>’, ‘/dev/null’ or die “can’t open bit bucket:$!”; stream_to_fh($target); perlopentut

61. IO::File use 5.14.0; sub stream_to_fh { ... $fh->print($hunk); ... $fh->close or die “error closing: $!”; } open my $target, ‘>’, ‘/dev/null’ or die “can’t open bit bucket:$!”; stream_to_fh($target); perlopentut

62. IO::File use 5.14.0; use autodie; sub stream_to_fh { ... $fh->print($hunk); ... $fh->close or die “error closing: $!”; } open my $target, ‘>’, ‘/dev/null’ or die “can’t open bit bucket:$!”; stream_to_fh($target); perlopentut

63. package-блоки package Library::Awesome; our $VERSION = 1.234; sub foo { ... } 1; perlfunc

64. package-блоки use 5.12.0; package Library::Awesome1.234; sub foo { ... } 1; perlfunc

65. package-блоки use 5.12.0; package Library::Awesome1.234-alpha; sub foo { ... } 1; perlfunc

66. package-блоки use 5.12.0; package Library::Awesome1.234 { sub foo { ... } } perlfunc

67. Перегрузка операций • перегрузка -X • перегрузка qr • "no overloading" • предупреждения неизвестных перегрузок операций perldoc

68. Другие новые фичи!

69. «Умное» сравнение smrt match

70. «Умное» сравнение if ($x ~~ $y) { ... }

71. «Умное» сравнение perldoc

72. «Умное» сравнение • если $x и $y неизвестны, то существует 23 возможные вариации • и некоторые из них — рекурсивные • нет, вы не будет помнить их все • ... и они не интуитивные perldoc

76. Сравнение

77. Сравнение if ($x ~~ $y) { ... } if ($str ~~ %hash) { ... } if ($str ~~ @arr) { ... } if ($str ~~ [ %h, ... ]) { ... } if (%hash ~~ %h) { ... } if (%hash ~~ @arr) { ... } if (%hash ~~ [ %h, ... ]) { ... }

84. given ($x) { when ($y) { ... } when ($z) { ... } }

85. given ($x) { when ($y) { try { ... } catch { warn “error: $_”; return undef; } } }

86. each @array

87. each @array while (my ($i, $v) = each @array) { say “$i: $v”; }

88. push $aref, @etc;

89. Сейчас с меньшим количеством багов!

90. Проблема 2038 года y2038

92. ~$ perl5.10.0 -E ‘say scalar localtime 2**31-1’ Mon Jan 18 22:14:07 2038 ~$ perl5.10.0 -E ‘say scalar localtime 2**31’ Fri Dec 13 15:45:52 1901

97. ~$ perl5.12.0 -E ‘say scalar localtime 2**31-1’ Mon Jan 18 22:14:07 2038 ~$ perl5.12.0 -E ‘say scalar localtime 2**31’ Mon Jan 18 22:14:08 2038

101. $@ perlvar

102. $@ Try::Tiny

103. $@ • Ну, на самом деле, вы используете Try::Tiny, верно? • И это тоже делает Try::Tiny более надёжным! • Вы видите, что eval и $@ — полностью ужасны Try::Tiny

106. use 5.12.0; { package X; sub DESTROY { eval { } } } eval { my $x = bless {} => ‘X’; die “DEATH!!”; }; warn “ERROR: $@”; $ perl5.12.4 test.pl ERROR: perlfunc

109. use 5.14.0; { package X; sub DESTROY { eval { } } } eval { my $x = bless {} => ‘X’; die “DEATH!!”; }; warn “ERROR: $@”; $ perl5.14.1 test.pl ERROR: DEATH!! perlfunc

111. perl -le ‘print $^X’ 10.0: perl 10.1: perl 12.0: perl 14.0: perl 16.0: /Users/rjbs/perl5/perlbrew/perls/16.0/bin/perl

117. Простые строки

118. Perl — хорош для Unicode perlunicode

119. Perl 5.16 лучше perlunicode

120. Perl 5.16 лучше • поддержка Unicode 6.1 • доступно каждое свойство символа • X в регулярных выражениях — более осмысленно perlunicode

123. «Unicode-баг» perlunicode

124. «Unicode-баг» • строка не всегда рассматриваются как Unicode • это вызывает странные ошибки, для поиска которых требуется время • use feature ‘unicode_strings’; • perlunicode

125. «Unicode-баг» • строка не всегда рассматриваются как Unicode • это вызывает странные ошибки, для поиска которых требуется время • use feature ‘unicode_strings’; • perlunicode

126. «Unicode-баг» • строка не всегда рассматриваются как Unicode • это вызывает странные ошибки, для поиска которых требуется время • use feature ‘unicode_strings’; • или use 5.12.0 perlunicode

127. «Unicode-баг» • строка не всегда рассматриваются как Unicode • это вызывает странные ошибки, для поиска которых требуется время • use feature ‘unicode_strings’; • или use 5.12.0 perlunicode

128. Unicode eval • eval $str • это октеты или символы? • что будет, если это включает в себя «use utf8» • или вы работаете под «use utf8» perldoc

129. Unicode eval • evalbytes $str • unicode_eval perldoc

130. Мой любимый 5.12-изм? if (length $input->{new_email}) { $user->update_email(...); } Use of uninitialized value in length at - line 3120. perldiag

133. say “I o{23145} Perl 5.14!”; I ♥ Perl 5.14! perlre

134. say “I o{23145} Perl 5.14!”; I ♥ Perl 5.14! perlre

135. say “I 23145 Perl 5.14!”; I ?45 Perl 5.14! perlre

136. say “I 023145 Perl 5.14!”; I 145 Perl 5.14! perlre

137. say “I 23145 Perl 5.14!”; I ?45 Perl 5.14! perlre

138. qr{ (1) (2) (3) (4) 7 10 (5) (6) (7) (8) (9) 7 10 (10) 7 10 }x; perlre

139. qr{ (1) (2) (3) (4) o{7} o{10} (5) (6) (7) (8) (9) o{7} o{10} (10) g{7} g {10} }x; perlre

140. Unicode 6.1

141. Unicode 6.1 • 1F309 — мост в ночи charnames

142. Unicode 6.1 • 1F309 — мост в ночи • 026CE — змееносец charnames

143. Unicode 6.1 • 1F309 — мост в ночи • 026CE — змееносец • 1F486 — массаж головы charnames

144. Unicode 6.1 • 1F309 — мост в ночи • 026CE — змееносец • 1F486 — массаж головы • 1F473 — мужик в тюрбане charnames

145. Unicode 6.1 • 1F309 — мост в ночи • 026CE — змееносец • 1F486 — массаж головы • 1F473 — мужик в тюрбане • 1F423 — вылупившийся цыплёнок charnames

146. Unicode 6.1 • 1F309 — мост в ночи • 026CE — змееносец • 1F486 — массаж головы • 1F473 — мужик в тюрбане • 1F423 — вылупившийся цыплёнок • 1F424 — цыплёнок charnames

147. Unicode 6.1 • 1F309 — мост в ночи • 026CE — змееносец • 1F486 — массаж головы • 1F473 — мужик в тюрбане • 1F423 — вылупившийся цыплёнок • 1F424 — цыплёнок • 1F425 — цыплёнок анфас charnames

148. Unicode 6.1 • 1F309 — мост в ночи • 026CE — змееносец • 1F486 — массаж головы • 1F473 — мужик в тюрбане • 1F423 — вылупившийся цыплёнок • 1F424 — цыплёнок • 1F425 — цыплёнок анфас • 1F421 — иглобрюхие charnames

149. Unicode 6.1 • 1F309 — мост в ночи • 026CE — змееносец • 1F486 — массаж головы • 1F473 — мужик в тюрбане • 1F423 — вылупившийся цыплёнок • 1F424 — цыплёнок • 1F425 — цыплёнок анфас • 1F421 — иглобрюхие • 1F60B — облизывающийся смайл charnames

150. Unicode 6.1 • 1F309 — мост в ночи • 026CE — змееносец • 1F486 — массаж головы • 1F473 — мужик в тюрбане • 1F423 — вылупившийся цыплёнок • 1F424 — цыплёнок • 1F425 — цыплёнок анфас • 1F421 — иглобрюхие • 1F60B — облизывающийся смайл • 1F4A9 — куча говна charnames

151. N{...} use 5.16.0; say "I N{HEAVY_BLACK_HEART} Queensr" . "N{LATIN_SMALL_LETTER_Y_WITH_DIAERESIS}" . "che!"; perldiag

152. Преобразования регистра case folding

153. Case Folding

154. Case Folding if ( lc $foo eq lc $bar ) { ... }

155. Case Folding if ( fc $foo eq fc $bar ) { ... }

156. Case Folding

157. Case Folding lc ‘ς‘ ➔ ‘ς‘ uc ‘ς‘ ➔ ‘Σ‘ fc ‘ς‘ ➔ ‘σ‘ lc ‘ß’ ➔ ‘ß’ uc ‘ß’ ➔ ‘SS’ fc ‘ß’ ➔ ‘ss’

163. Case Folding

164. Case Folding “ﬁle under: L$name” “ﬁle under: F$name”

165. Case Folding “ﬁle under: L$name” “ﬁle under: F$name”

166. В регулярных выражениях стали лучше

167. именнованные сохранения named captures

168. Named captures • поиск совпадений по имени, а не позиции • избавиться от страшных $1 • больше не второй Python или .Net! perlre

171. Named captures # псевдокод section:property = value perlre

172. Named captures $line =~ /(w+):(w+) = (w+)/; $section = $1; $name = $2; $value = $3; perlre

173. Named captures $line =~ / (?<section> w+): (?<name> w+) s* = s* (?<value> w+) /x; $section = $+{section}; $name = $+{name}; $value = $+{value}; perlre

174. Новые модификаторы my $hostname = get_hostname; $hostname =~ s/..*//; perlre

175. Новые модификаторы my $hostname = get_hostname =~ s/..*//; perlre

176. Новые модификаторы (my $hostname = get_hostname) =~ s/..*//; perlre

177. Новые модификаторы my $hostname = get_hostname =~ s/..*//r; perlre

178. Новые модификаторы my @short_names = map { s/..*//; } @long_names; perlre

179. Новые модификаторы my @short_names = map { s/..*//; $_ } @long_names; perlre

180. Новые модификаторы my @short_names = map { my $x = $_; $x =~ s/..*//; $x } @long_names; perlre

181. Новые модификаторы my @short_names = map { s/..*//r } @long_names; perlre

182. Новые модификаторы my @short_names = map s/..*//r, @long_names; perlre

183. Новые модификаторы perldoc

184. Новые модификаторы /u /a /aa /d /l "൮" =~ /d/ ✓ ☐ ☐ ¿? ¿? "ð" =~ /w/ ✓ ☐ ☐ ¿? ¿? "ff" =~ /ff/i ✓ ✓ ☐ ¿? ¿? "ff" =~ /pL/i ✓ ✓ ✓ ¿? ¿? perldoc

190. Новые модификаторы # Только ASCII-символы: die “Забавные неамериканские символы” if $str =~ /P{ASCII}/; $str =~ /...регулярное выражение.../; perlre

191. study perldoc

192. study my $re = qr{...выражение...}; my $str = q{...long complex...}; $str =~ $re; # slow!! study $str; # does stuff $str =~ $re; # fast!! perldoc

193. study my $re = qr{...выражение...}; my $str = q{...длинная строка...}; $str =~ $re; # slow!! study $str; # does stuff $str =~ $re; # fast!! perldoc

194. study my $re = qr{...выражение...}; my $str = q{...длинная строка...}; $str =~ $re; # медленно!! study $str; # does stuff $str =~ $re; # fast!! perldoc

195. study my $re = qr{...выражение...}; my $str = q{...длинная строка...}; $str =~ $re; # медленно!! study $str; # используем $str =~ $re; # fast!! perldoc

196. study my $re = qr{...выражение...}; my $str = q{...длинная строка...}; $str =~ $re; # медленно!! study $str; # используем $str =~ $re; # быстро!! perldoc

197. study my $re = qr{...выражение...}; my $str = q{...длинная строка...}; $str =~ $re; # медленно, но верно!! study $str; # используем $str =~ $re; # кто знает!! perldoc

198. study my $re = qr{...выражение...}; my $str = q{...длинная строка...}; $str =~ $re; # медленно, но верно!! study $str; # используем $str =~ $re; # медленно, но верно!! perldoc

199. Замена модулей Modder Modlib

200. Недавно появившиеся библиотеки в ядре • JSON • HTTP::Tiny • Module::Metadata • CPAN::Meta perlmodlib

201. Недавно удалённые библиотеки • Devel::DProf • Switch • perl4 ядро • ...и другие perlmodlib

202. Удалён старый функционал

203. qw() for my $show qw(Smallville Lost V) { $tivo->cancel_pass( $show ); } perlop

204. qw() for my $show (qw(Smallville Lost V)) { $tivo->cancel_pass( $show ); } perlop

205. $[

206. $[ — индекс первого элемента в массиве • можно сделать так, чтобы $array[1] возвращал первый элемент массива • разве это не круто? • это так же круто, как и шрифт Comic Sans perlvar

210. $[ $[ = 1; for (1 .. $#array) { ... } perlvar

211. $[ for ($[ .. $#array) { ... } perlvar

212. $[ Переназначена переменная $[. Вы идиот или типа того? at -e line 123. perlvar

213. $[ Use of assignment to $[ is deprecatedat -e line 123. perlvar

214. deﬁned @arr

215. Вопросы?

216. Спасибо за внимание!

217. Оригинал «What's New in Perl? v5.10 – v5.16» http://www.slideshare.net/rjbs/whats-new-in-perl-v510-v516

Что нового в Perl? 5.10 — 5.16

More Related Content

Что нового в Perl? 5.10 — 5.16