perl_in_2024winter.pdf

Transcript

1. 2024年冬のPerl Kenichi Ishigaki @charsbar YAPC::Hiroshima 2024 Feb 10, 2024
2. me 2016年のPerl＠LLoT Perl in 2016＠YAPC::Hokkaido 2017年春のPerl＠YAPC::Kansai 2017年夏のPerl＠YAPC::Fukuoka (萬國之津梁＠YAPC::Okinawa) (2018年初夏のPerl5)＠Hokkaido.pm #14 2018年夏のPerl5＠Shibuya.pm #18 2018年残暑のPerl＠LL2018 2019年冬のPerl＠YAPC::Tokyo (Learn Languages 2021) 2023年春のPerl＠YAPC::Kyoto 2024年冬のPerl＠YAPC::Hiroshima <- イマココ
3. FOSDEMに行ってきました https://fosdem.org/2024/
4. Perl and Raku devroom 2018年以来、6年ぶりのdevroom
5. Perl Steering Councilからの発表 https://go.leonerd.org.uk/updates-from-the-psc-2024-slides
6. Perl Steering Council 2023年8月にメンバーの入れ替えがありました • Graham Knop (new) • Paul Evans • Philippe Bruhat
7. Perlの安定版は5.38に • 2023年7月2日にリリース • 例年より一月半近い遅れ
8. Perl 5.38が遅れた理由 • 5月の段階でもスモークテストで いろいろ問題が出ていた • HTTP::Tinyのセキュリティ問題
9. 背景事情 欧米でサイバーセキュリティ関連の法整備が進んでいる • EO 14028 (2021/05) • NIS2 Directive & Cyber Resilience Act 「CPANをもっと安全にしておかないといろいろヤバイ」 CPAN Security Working Group (2023/04) https://security.metacpan.org
10. CPANミラーはすでにCDNへ • 昔は世界各地のCPANミラーからダウンロード • いまどきはCDN経由で (2017年からFastly) • 公式のミラー一覧は2021年に削除 • ftp.cpan.orgも2022年に廃止済み
11. CPANクライアントのセキュリティ強化 • CPAN.pmが利用しているHTTP::Tinyの 証明書のチェックがデフォルト無効に なっていた (CVE-2023-31486) • cpanm/cpmは大丈夫 • SSL In Core対応の妨げ
12. HTTP::Tinyを利用している小物ツール CPANモジュールだけでも400件以上 • App::cpanoutdated • App::pmuninstall • Pod::PerldocJp • OrePAN2 • Slack::Notify • Slack::WebHook https://metacpan.org/module/HTTP::Tiny/requires
13. SSL In Core? • 現時点ではまだコアには入っていません • 2023年10月にプロジェクトマネージャが決定
14. Perl本体のセキュリティリリース 2023年11月に5.38.2、5.36.3、5.34.3が出ました • CVE-2023-47038 - Write past buffer end via illegal user-defined Unicode property • CVE-2023-47039 - Perl for Windows binary hijacking vulnerability
15. Strawberry Perlの復活 • 2021年1月のPerl 5.32以降更新が止まっていた • 2023年7月に5.38.0.1と5.36.1.1 • 2023年12月には5.38.2.2と5.36.3.1も
16. Strawberry Perlの復活 あれれ？
17. Strawberry Perlの復活 PRのマージ待ちなのでそのうち直るでしょう https://github.com/StrawberryPerl/strawberryperl.com/pull/46 メインの配布場所がGitHubに変わっています https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases
18. 5.38の新機能 WEB+DB PRESSの記事もあわせてどうぞ https://gihyo.jp/dev/serial/01/perl-hackers-hub/007901
19. クラス Perl本体でもクラスの実装が始まっています use v5.38; use experimental 'class'; class CPANAuthor :isa(Person) { field $pause_id :param; method name_and_id () { return $self->name . " ($pause_id)"; } method upload ($distribution) { ... } }
20. クラス 新しいキーワードはclass、field、method（と未実装のrole）のみ use v5.38; use experimental 'class'; class CPANAuthor :isa(Person) { field $pause_id :param; method name_and_id () { return $self->name . " ($pause_id)"; } method upload ($distribution) { ... } }
21. クラス 属性を多用するようになっています use v5.38; use experimental 'class'; class CPANAuthor :isa(Person) { field $pause_id :param; method name_and_id () { return $self->name . " ($pause_id)"; } method upload ($distribution) { ... } }
22. クラス method内の$selfなどは自動的に用意されます use v5.38; use experimental 'class'; class CPANAuthor :isa(Person) { field $pause_id :param; method name_and_id () { return $self->name . " ($pause_id)"; } method upload ($distribution) { ... } }
23. クラス サブルーチンシグネチャにも対応 use v5.38; use experimental 'class'; class CPANAuthor :isa(Person) { field $pause_id :param; method name_and_id () { return $self->name . " ($pause_id)"; } method upload ($distribution) { ... } }
24. クラス • 多重継承の禁止 • 内部構造が変わり、適切に隠蔽できるように • そのかわり一から実装し直しのものも多数 • バージョン指定の問題はツールチェイン側の 対応が遅れています
25. サブルーチンシグネチャのデフォルト値 従来はパラメータが渡らなかった場合のみ use v5.20; use experimental 'signatures'; sub point ($x, $y = 10) { say "($x, $y)"; } point(20); # (20, 10)
26. サブルーチンシグネチャのデフォルト値 undefが渡ってくると補完できません use v5.20; use experimental 'signatures'; sub point ($x, $y = 10) { say "($x, $y)"; } point(20, undef); # (20, ) point($x, $y);
27. サブルーチンシグネチャのデフォルト値 //=を使うと期待通りの動作になります use v5.38; sub point ($x, $y //= 10) { say "($x, $y)"; } point(20); # (20, 10) point(20, undef); # (20, 10)
28. フィールドのデフォルト値 クラスのフィールドも同様です class Log { field $message :param; field $level :param //= 'INFO'; }
29. builtin::export_lexically 特定のブロックのみにエクスポートできる 機能が用意されました package My::Util; use v5.38; use experimental qw(builtin); sub import { my $class = shift; my %export = map { $_ => $class->can($_) // die "Can't export $_" } @_; builtin::export_locally %export; } sub foo { say "foo" }
30. builtin::export_lexically 範囲外のところには取り込んだ関数は残っていません { use My::Util qw(foo); foo(); # foo } foo(); # Undefined subroutine &main::foo called
31. module_true バージョンバンドルなどを利用してこの機能を有効にしておくと、 モジュールの末尾に真値を入れなくてもよくなります package Foo; use v5.38; # または use feature qw(module_true); sub foo { ... } # ここに真値を入れなくてもよくなります
32. プラガブル中置演算子 中置演算子を拡張できるようになりました use v5.38; use Syntax::Operator::Equ; if ($x equ $y) { ... } if ($i === $j) { ... }
33. スマートマッチとgiven/when 5.36でバージョンバンドルから外れていましたが、 5.38で廃止、5.42で削除予定です
34. スマートマッチとgiven/when 代替となりうるSyntax::Keyword::Matchの 実験は進められています use v5.38; use Syntax::Keyword::Match; use Syntax::Operator::Equ; match ($str : equ) { case (undef) { say "not defined" } case ("") { say "defined but empty" } default { say "not empty" } }
35. シングルクォートのパッケージ区切り これも5.38で廃止、5.42で削除予定です • jcode'convert(...); • Test::More::isn't(...); • Acme::Don't::don't(...);
36. 開発中の新機能
37. 未定義パッケージからの(un)import (5.39.1) 以下のような取り込みがエラーになります use v5.39.1; Class::That::Does::Not::Exist->import("foo"); Class::That::Does::Not::Exist->unimport("bar");
38. 未定義パッケージからの(un)import (5.39.1) ファイルの大文字小文字を無視する環境での事故防止策 use v5.39.1; no Warning 'redefine'; # require Warning; Warning->unimport('redefine');
39. __CLASS__ キーワード (5.39.2) $selfが使えない場所で使うと便利？ class Foo { use constant DEFAULT_X => 10; field $x = __CLASS__->DEFAULT_X; method say_x { say $x } } class Bar :isa(Foo) { use constant DEFAULT_X => 20; } Foo->new->say_x; # 10 Bar->new->say_x; # 20
40. __CLASS__ キーワード (5.39.2) methodはインスタンスからは呼べないので要注意 class Foo { field $x = __CLASS__->default_x; # ERROR! method default_x { 10 } method say_x { say $x } } class Bar :isa(Foo) { method default_x { 20 } }
41. microperl (5.39.2) Perl 5.18の時点で宣言されていた通りに削除されました
42. Test2::Suiteがコア入り (5.39.4) • Test2自体は5.26でコア入り • Test2::V0が使えるように • Test2::Harness (yath)はまだ
43. builtinのバージョンバンドル (5.39.4) builtinの組み込み関数をまとめて取り込めるようになりました use v5.39.4; use builtin ':5.40'; (今日の時点では true, false, indexed のみ)
44. locale対応の強化 (5.39.4) • 一部の環境でlocaleがスレッドセーフに • ストレステスト実施中 (5.39.5)
45. builtin::load_module (5.39.5) builtinに実験的な機能としてload_module関数が追加されました use v5.39.5; use builtin 'load_module'; use experimental 'builtin'; for my $module (keys $config->{prereq}->%*) { load_module $module; }
46. builtin::load_module (5.39.5) バージョン指定はVERSIONメソッドで use v5.39.5; use builtin 'load_module'; use experimental 'builtin'; for my $module (keys $config->{prereq}->%*) { load_module $module; if (my $version = $config->{prereq}{$module}) { $module->VERSION($version); } }
47. returnと間接オブジェクト (5.39.6) なんでもないコードに見えますが… use v5.38; use List::Util 'sum'; sub my_sum { return sum grep $_ > 0, @_ } say my_sum(-1, 2, 3); # 5
48. returnと間接オブジェクト (5.39.6) sumを取り込み忘れると、おかしなことに use v5.38; # use List::Util 'sum'; sub my_sum { return sum grep $_ > 0, @_ } say my_sum(-1, 2, 3); # *main::sum23
49. returnと間接オブジェクト (5.39.6) no bareword::filehandlesでも止められません (used only onceの警告が出るようにはなります) use v5.38; no bareword::filehandles; # use List::Util 'sum'; sub my_sum { return sum grep $_ > 0, @_ } say my_sum(-1, 2, 3); # *main::sum23
50. returnと間接オブジェクト (5.39.6) 5.39.6からは構文エラーになります use v5.39.6; # use List::Util 'sum'; sub my_sum { return sum grep $_ > 0, @_ } say my_sum(-1, 2, 3);
51. 5.40に入るかもしれないもの • 5.36で導入されたbuiltin関数の多くが安定版に？ • use VERSIONにbuiltinのバンドルも入る？ • FOSDEMでは紹介されていましたが、コードフリーズの 時期的にどうなるか…
52. 近い将来実装されそうな機能 • Proposed Perl Changes より https://github.com/Perl/PPCs • 実装担当者まで決まっていそうなもの
53. 特殊変数の別名 うっかり読み込むと正規表現が遅くなってしまう Englishモジュールの代わりに local ${^ARG}; # $_ my $pid = ${^PID}; # $$ my $error = ${^EVAL_ERROR}; # $@ my %signals = %{^SIG}; # %SIG https://github.com/Perl/PPCs/blob/main/ppcs/ppc0014-english-aliases.md
54. 文字列テンプレート "foo @{[$bar->baz]}"のようなハックはありますが… # No interpolation qt{Greetings}; # Simple scalar interpolation qt<Greetings, {$title} {$name}>; # Interpolation of method calls qt"Greetings, {$user->title} {$user->name}"; # Interpolation of various expressions qt{It has been {$since{n}} {$since{units}} since your last login}; qt{...a game of {join q{$"}, $favorites->{game}->name_words->@*}}; https://github.com/Perl/PPCs/blob/main/ppcs/ppc0019-qt-string.md
55. 条件付き矢印演算子 左辺が定義済みなら普通の矢印演算子、 未定義ならそこで処理を打ち切り全体をないものに # $val = defined $foo && defined $foo->{bar} ? $foo->{bar}[3] : (); $val = $foo?->{bar}?->[3]; # @vals = defined $aref ? $aref->@* : (); @vals = $aref?->@*; # note that @vals is (), not (undef). # my $class = 'SomeClass'; $class->new if defined $class; my $class = 'SomeClass'; $class?->new; https://github.com/Perl/PPCs/blob/main/ppcs/ppc0021-optional-chaining-operator.md
56. メタプログラミング metaモジュールを使った実験が始まっています use v5.14; use meta; my $metapkg = meta::get_package( "MyApp::Some::Package" ); $metapkg->add_symbol( '&a_function' => sub { say "New function was created" } ); MyApp::Some::Package::a_function(); https://metacpan.org/pod/meta https://github.com/Perl/PPCs/blob/main/ppcs/ppc0022-metaprogramming.md
57. メタプログラミング • いまは従来のオブジェクトを利用してAPIを固めて いるところ • APIが固まったら新しいクラスへの対応が入る予定 • その後ロールなどの実装に利用されていくはず
58. 「実験」≠「未完成」 • 新しい機能は実験から • 事前に十分な議論はされているはず • 単に動くかどうかを試しているわけではない • 皆が気に入るかどうかを試している • 実際に試して、（PPCsの議論を踏まえた） フィードバックを
59. ツールチェーンのサポート下限 従来はPerl 5.8.1(2003/09)が下限でした https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md Lancaster Consensus (2013) Going forward, the Perl toolchain will target Perl 5.8.1, released September 2003. This will allow toolchain modules to reliably use PerlIO and improved Unicode support.
60. ツールチェーンのサポート下限 2023年4月のToolchain Summitで改正されました Lyon Amendment (2023) https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lyon-amendment.md No new release of a distribution in the Perl toolchain will specify a minimum perl prerequisite version (whether configure, build, runtime, or test) that has been available for less than ten years. 「リリース後10年未満のPerlをサポート下限とすることはない」
61. ツールチェーンのサポート下限 • いまは例外的に2012年リリースのPerl 5.16をサポート • 2024年6月にRHEL/CentOS 7が退役したら、 2014年リリースの5.20より古いPerlへのインストールは 保証されなくなっていきます • 今後は毎年無条件に上がっていくので、 CIなどで旧版のサポートをするときは要注意 • 古いPerlには古いバージョンのモジュールをインストール できるようにするという話も出てはいますが…
62. ツールチェインに限らず… すでに何人かの方がサポート下限のバージョンなどを 上げ始めています • IO::Socket::IP (5.14) • Test::Deep (5.12) • Email::Simple (5.12) • Plack (5.12) • DBD::mysql (5.001からはMySQL 5系がサポート外に)
63. 粛々とメンテしていきましょう
64. その頃Rakuは… • Rigaで予定されていたカンファレンスは中止 （後にオンライン開催） • 6.eはいつ？ • 6.cは2015年 • 6.dは2020年 • そろそろ…という話は出ている模様 • RakuASTの実装中 • Raku Core Summit (2023/06)
65. 2024年の主要Perl関連イベント • German Perl/Raku-Workshop (4/15～17, Frankfurt, Germany) https://www.perl-workshop.de • Perl Toolchain Summit 2024 (4/25～28, Lisbon, Portugal) • The Perl and Raku Conference 2024 (6/25～27, Las Vegas, NV) https://tprc.us/tprc-2024-las/
66. Thank you