2025年秋のPerl

YAPC::Fukuoka 2025

Transcript

1. 2025年秋のPerl Kenichi Ishigaki @charsbar YAPC::Fukuoka 2025 Nov 14, 2025
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 2024年秋のPerl＠YAPC::Hakodate 2025年秋のPerl＠YAPC::Fukuoka <- イマココ
3. Perl Toolchain Summit 2025 • 5月1日～5月4日 • 今年はライプツィヒで開催 • Japan Perl Association が 今年もスポンサーに (ありがとうございます) https://charsbar.hatenadiary.org/entry/2025/06/15/201905
4. Perl Foundation のお財布事情 TPF理事を務めていた野崎さんによる情報公開 https://blogs.perl.org/users/makoto_nozaki/2024/10/understanding-the-financials-of-the-perl-and-raku-foundation-tprf.html
5. Perl Foundation のお財布事情 支出と収入の内訳 https://blogs.perl.org/users/makoto_nozaki/2024/10/understanding-the-financials-of-the-perl-and-raku-foundation-tprf.html
6. Perl Foundation のお財布事情 過去と現在のスポンサーページの比較 https://perlfoundation.org/our-donors.html https://perlfoundation.org/past-sponsors.html
7. Perl Foundation以外の窓口 2023年に Enlightened Perl (EPO)が閉じたのは痛いのですが… イベントやサービス単位で寄付を受け付けているところもあります • Perl Toolchain Summit (https://perltoolchainsummit.org/pts2025/sponsors.html) • MetaCPAN (https://metacpan.org/about/sponsors)
8. MST Matt S. Trout 氏が42歳の若さで亡くなりました • DBIx::Class • Moo • Role::Tiny • Devel::Declare • local::lib • strictures • JSON::MaybeXS
9. Perl の安定版は 5.42 に • 2025/07/04リリース • 今年も駆け込みであれこれと…
10. CORE::chdir chdirをCORE付きで呼び出せるようになりました use experimental 'class'; class MyClass { method chdir { my $path = shift; &CORE::chdir($path) or return; say STDERR "CHDIR TO $path"; } }
11. source::encoding ソースコードのエンコーディングを強制できるようになりました use source::encoding 'ascii'; say 'あああ'; # コンパイルエラー
12. source::encoding use v5.42 (以降)で（ほかにも何もしなければ） アスキー文字が強制されます use v5.42; say 'あああ'; # コンパイルエラー
13. source::encoding コメントや POD でも容赦しません use v5.42; # コメントで回避できる? # NG =pod NAME 取り扱い説明書 # NG =cut
14. source::encoding __DATA__ や __END__ 以降は OK ですが… use v5.42; # ASCII ONLY __END__ =pod NAME 取扱説明書 # OK =cut
15. source::encoding 日本語を使う場合は忘れずに use utf8; を use v5.42; use utf8;
16. source::encoding スクリプトなどでそのまま日本語を出力する際には 一手間必要になるのもお忘れなく use v5.42; use utf8; STDOUT->binmode('utf8’); # または use Encode して適宜encode
17. source::encoding 指定できるのは ascii と utf8 のみ use source::encoding 'utf8'; # ≒ use utf8; # use encoding 'cp932';
18. source::encoding no source::encoding で強制を解除できます use v5.42; no source::encoding; say 'あああ'; # utf8 でなくても OK
19. source::encoding 特定のスコープのみの指定・解除もできます use v5.42; package Foo { no source::encoding; say 'あああ'; # OK } # say 'あああ'; # NG
20. アポストロフィとパッケージ 5.41.3で一度は禁止されることになったのですが… use v5.41.3; package Acme::Don't; # Invalid version format
21. アポストロフィとパッケージ 悪影響が大きすぎるということで撤回されました package Acme::Don't; # OK もう消すこともできないということで廃止の警告も解除されています
22. アポストロフィとパッケージ ただし、use v5.42 (以降)すると使えなくなります use v5.42; package Acme::Don't; # Invalid version format (non-numeric data)
23. アポストロフィとパッケージ 明示的に許可することはできます (が、おすすめしません) use v5.42; use feature 'apostrophe_as_package_separator'; package Acme::Don't;
24. アポストロフィとパッケージ 特定のスコープでのみ有効にすることもできます use v5.42; use Test::More; subtest 'Foo' => sub { use feature 'apostrophe_as_package_separator'; isn't $x => $y; # いまは isnt で }; done_testing;
25. スマートマッチ 十年以上も警告無しには使えず、削除予定でした use v5.18; use experimental qw(smartmatch switch); say $foo ~~ $bar; given ($foo) { when (undef) { say '$foo is undefined' } default { say '$foo is something else' } }
26. スマートマッチ 議論の過程で代替モジュールもいくつか出ました • Switch::Back (5.36以降) • Switch::Right (5.36以降) • Syntax::Infix::Smartmatch (5.14以降)
27. スマートマッチ こちらも結局削除予定は撤回されました featureガードは従来通りですが、実験扱いも終了 use feature qw(smartmatch switch); say $foo ~~ $bar; given ($foo) { when (undef) { say '$foo is undefined' } default { say '$foo is something else' } }
28. スマートマッチ ただし、use v5.42 (以降)だけでは使えません use v5.42; say $foo ~~ $bar; # エラー given ($foo) { # エラー when (undef) { say '$foo is undefined' } default { say '$foo is something else' } }
29. スマートマッチ どうしても必要なら明示的に許可してください use v5.42; use feature qw(smartmatch switch); say $foo ~~ $bar; given ($foo) { when (undef) { say '$foo is undefined' } default { say '$foo is something else' } }
30. any / all 演算子 効率を気にしなければ grep を使えばよいのですが… use Test::More; # どれかひとつでも定義されていればOK ok grep {defined $_} @foo; # すべて定義されていればOK ok !grep {!defined $_} @foo; done_testing;
31. any / all 演算子 従来は List::Util が定番 use Test::More; use List::Util qw(any all); # または List::MoreUtils qw(any all) ok any {defined $_} @foo; ok all {defined $_} @foo; done_testing;
32. any / all 演算子 5.42で実験的なキーワードが用意されました use v5.42; use Test::More; use experimental qw(keyword_any keyword_all); ok any {defined $_} @foo; ok all {defined $_} @foo; done_testing;
33. any / all 演算子 keyword_ がついているのは混乱防止 use Test::More; use feature ':all'; ×use feature 'all'; ◦use feature 'keyword_all';
34. any / all 演算子 any は List::Util より高速です use v5.42; use experimental qw(keyword_any); use List::Util; use Benchmark qw(cmpthese); my @foo = (1..100000); cmpthese(10000, { grep => sub { grep {defined $_} @foo }, l_u => sub { List::Util::any {defined $_} @foo }, any => sub { any {defined $_} @foo }, }); Rate grep l_u any grep 300/s -- -81% -90% l_u 1565/s 422% -- -47% any 2941/s 881% 88% --
35. any / all 演算子 all はまだ残念な感じ use v5.42; use experimental qw(keyword_all); use List::Util; use Benchmark qw(cmpthese); my @foo = (1..100000); cmpthese(10000, { grep => sub { !grep {!defined $_} @foo }, l_u => sub { List::Util::all {defined $_} @foo }, all => sub { all {defined $_} @foo }, }); Rate all grep l_u all 226/s -- -26% -38% grep 305/s 35% -- -17% l_u 365/s 62% 20% --
36. ^^= 演算子 5.40 で追加された ^^ 演算子の落ち穂拾い # 5.40 if ($x ^^ $y) { ... } if ($x xor $y) { ... } $x ^^ $y and return; # 5.42 $x ^^= $y;
37. 新しい警告 コードとしては間違ってはいないのですが… if (!$x > $y) { ... } if (!$x eq $y) { ... } if (!$x =~ /foo/) { ... }
38. 新しい警告 実際にはこう解釈されます if ((!$x) > $y) { ... } if ((!$x) eq $y) { ... } if ((!$x) =~ /foo/) { ... }
39. 新しい警告 おそらくはこうだろうということで 警告が出るようになりました if (!($x > $y)) { ... } if (!($x eq $y)) { ... } if (!($x =~ /foo/)) { ... }
40. 新しい警告 自動で読み替えてくれたりはしません unless ($x =~ /^¥d+$/) { ... } # 条件を追加しようとして事故ってしまう if (!$x =~ /^¥d+$/ && $x < 65536) { ... } # どちら？ (意味的には後者でしょうが…) if (!($x =~ /^¥d+$/) && $x < 65536) { ... } if (!($x =~ /^¥d+$/ && $x < 65536)) { ... }
41. 新しい警告 Perlは無意味な変数などを見つけると警告を出します my $x; # OK $x; # NG (警告)
42. 新しい警告 5.42では連鎖比較も警告を出すようになりました use v5.42; if (0 < $x < 10) { ... } # OK 0 < $x < 10; # NG (警告)
43. :writer :reader属性は5.40でコア入りしました use v5.40; use experimental qw(class); class Author { field $name :param :reader; } my $author = Author->new(name => 'me'); say $author->name;
44. :writer 5.42で :writer 属性もコア入りしました use v5.42; use experimental qw(class); class Author { field $name :param :reader :writer; } my $author = Author->new(name => 'me'); $author->set_name('Ishigaki'); say $author->name;
45. :writer メソッドチェーンにも対応しています use v5.42; use experimental qw(class); class Point { field $x :param :reader :writer; field $y :param :reader :writer; } my $point = Point->new(x => 10, y => 10); $point->set_x(20)->set_y(20);
46. :writer 必要ならメソッド名を変更できます use v5.42; use experimental qw(class); class Author { field $name :param :reader :writer(change_name); } my $author = Author->new(name => 'me'); $author->change_name('Ishigaki'); say $author->name;
47. :writer ただし、readerと同じメソッド名にはできません use v5.42; use experimental qw(class); class Author { # Method name redefined が発生します field $name :param :reader :writer(name); } my $author = Author->new(name => 'me'); $author->name('Ishigaki'); # Too few arguments for subroutine ×say $author->name;
48. :writer いまはまだスカラーのみの対応です use v5.42; use experimental qw(class); class Author { field $name :param :reader :writer; field @modules ×:param :reader ×:writer; method set_modules(@new) { @modules = @new } }
49. プライベートメソッド メソッドを隠蔽したいとき package Foo; sub do_something { my $self = shift; ... $self->_error_check(@_); } sub _error_check { ... }
50. プライベートメソッド 無名関数で隠蔽する手もありますが… package Foo; sub do_something { my $self = shift; my $error_check = sub { ... }; ... $error_check->(@_); }
51. プライベートメソッド 名前をつければ解決？ package Foo; use Sub::Util qw(subname); sub do_something { my $self = shift; my $error_check = subname error_check => sub { ... }; ... $error_check->(@_); }
52. プライベートメソッド 5.18 からはレキシカルサブルーチンで package Foo; use v5.18; use experimental 'lexical_sub'; # 5.26まで sub do_something { my $self = shift; my sub error_check { ... }; ... error_check(@_); }
53. プライベートメソッド ただし、微妙な制約もありました package Foo; use v5.26; my sub error_check { ... } sub do_something { my $self = shift; ... ×$self->error_check(@_); ◦error_check($self, @_); }
54. プライベートメソッド 5.42 で method にも my を適用できるように use v5.42; use experimental 'class'; class Foo { my method error_check { ... } }
55. プライベートメソッド 呼び出すときは ->& で use v5.42; use experimental 'class'; class Foo { my method error_check { ... } method do_something { ... $self->&error_check(@_); } }
56. プライベートメソッド ->& は my sub にも適用できます package Foo; use v5.42; my sub error_check { ... } sub do_something { my $self = shift; ... $self->&error_check(@_); }
57. CVE-2024-56406 tr/// に脆弱性が見つかっています my $foo = "¥x{FF}" x 1000000; $foo =~ tr/¥xFF/¥x{100}/; 対象は 5.34 から 5.40 まで
58. CVE-2025-40909 threads モジュールに ディレクトリ変更に関する レースコンディション
59. ExtUtils::ParseXS 大規模なリファクタリングが 始まっています
60. 5.44に向けて • 開発中の機能 • 議論中の機能 • この先大きく変わる可能性もあり • あくまでも現時点での話ということで
61. Perl Steering Council 2025年8月にメンバーの入れ替えがありました • Paul Evans • Leon Timmermans (new) • Aristotle Pagaltzis
62. エラー時に表示される method 引数の数 (5.43.2) 従来は暗黙の $self を抜いた数が表示されていました use v5.42; use experimental 'class'; class Foo { method bar ($x, $y) { ... } } my $foo = Foo->new; $foo->bar; # Too few arguments for subroutine 'Foo::bar' (got 0; expected 2)
63. エラー時に表示される method 引数の数 (5.43.2) 5.43.2からは暗黙の $self を含んだ数になります use v5.43.2; use experimental 'class'; class Foo { method bar ($x, $y) { ... } } my $foo = Foo->new; $foo->bar; # Too few arguments for subroutine 'Foo::bar' (got 1; expected 3)
64. Time::HiRes::sleep (5.43.3) 5.43.3 に同梱されたバージョンで プロトタイプが変更になりました use Time::HiRes qw(sleep); # CORE::sleep と同じくスカラーのみ受け付けます sleep(1, "foo", "bar"); # Syntax error.
65. Time::HiRes::sleep (5.43.3) 結果、待ち時間が変わってしまうことも use Time::HiRes qw(sleep); sub my_sleep { sleep(@_) } # 昔は10秒、5.43.3では1秒 my_sleep(10);
66. Perl on SSL Net::SSLeay の代替となるモジュールの開発が進んでいます • Crypt::Bear • Crypt::OpenSSL3
67. Signatures Named Parameters 次の開発版で入る予定 # 従来の方法 sub f ($x, $y, $z = 123) { ... } f(1, 2, 123); # 新しい方法 sub f (:$x, :$y, :$z = 123) { ... } f(x => 1, y => 2, z => 123);
68. Perl 4x • Perl 6 はもういません (Raku という「別言語」になりました) • 外の人にも Perl が進化を続けていることを伝えたい • Perl 7という話もありましたが… • 5 を落とすという選択肢もあるのではないか
69. Perl 4x PPC 0025 として正式に提案され、 実現可能かどうかの検証が進んでいます https://github.com/Perl/PPCs/blob/main/ppcs/ppc0025-perl-version.md
70. Perl 4x • いますぐどうこうする必要はありません • 秘伝の Makefile.PL を使っている人は 書き換えが必要になるかも ×if ("$]" gt "5.006" ) { ... }
71. Perl 4x • もう細かなバージョンは意識しない • モジュールを書くとき、そのとき使っている Perl の バージョンを use するのがベタープラクティスに なるかも
72. この先の主要Perl関連イベント • London Perl Workshop 2025 (Nov. 29, 2025) • Perl Community Conference (Dec. 17-18, 2025) • German Perl/Raku Workshop 2026 (Mar. 16-18, 2026) • Perl Toolchain Summit 2026? • The Perl and Raku Conference 2026?
73. Questions?
74. Thank you