Perl Meets \w+ あるいは開発を支えるPerl活用の実例集

YAPC::Fukuoka 非公式リジェクトコン 2025
https://smarthr.connpass.com/event/376033/

Transcript

1. Perl Meets \w+ ͋Δ͍͸։ൃΛࢧ͑ΔPerl׆༻ͷ࣮ྫू YAPC::Fukuoka ඇެࣜϦδΣΫτίϯ 2025 @karupanerura
4. YAPC::Hiroshima 2024!!!!!
5. Perl Meets \w+ ͋Δ͍͸։ൃΛࢧ͑ΔPerl׆༻ͷ࣮ྫू YAPC::Fukuoka ඇެࣜϦδΣΫτίϯ 2025 @karupanerura
6. @karupanerura • DeNA Co,. LTD. - Software Engineer • Perl / Go / Java / TypeScript / Terraform / AWS / Google Cloud / etc.. • Japan Perl Association - Chief Director • YAPC::Japan Organizer • YAPC::Kansai 2017 / Japan.pm 2021 / YAPC::Hakodate 2024 • YAPC::Tokyo 2026 <- NEW!
7. Web։ൃͷࠓੲ
8. ※ݸਓͷײ૝Ͱ͢
9. Ή͔͠ͷWeb։ൃ • ʢੲͱ͍ͬͯ΋Perl΋ී௨ʹ࢖ΘΕ͍ͯͨࠒʣ • PerlҎ֎ͩͱRails͔Laravel͔Django͔ɺ͋Δ͍͸express͔తͳੈք • ੩తܕ෇͚ݴޠ͚ͩͲίʔυͷߏ଄Λ޻෉ͯ͠ෳࡶੑͱઓ͏ • ن໛͕Ͱ͔͍ͱ͍ͬͯ΋ͦ͜·ͰͰ΋ͳ͍͜ͱ΋ଟ͍ • σʔλϕʔε͕ϘτϧωοΫʹͳΓ΍͍͢ • Perl͸SQL࠷దԽ͕͠΍͍͢ํ޲ͷϞδϡʔϧ͕ಛʹྲྀߦͬͨ
10. ͍·ͷWeb։ൃ • ੩తܕ෇͚ݴޠͰܕ҆શੑΛ୲อʹIDEͷαϙʔτΛಘͨߴ଎ͳ։ൃ • LSPͷීٴͰΑΓखܰʹIDE likeͳαϙʔτ͕ಘΒΕΔ؀ڥ͕ҰൠԽ • PlaywrightͳͲͰϒϥ΢β΋ؚΊͨE2EςετΛ੔උ • Public Cloud͕ఏڙ͢ΔϥΠϒϥϦΛੵۃར༻ • ෼ࢄσʔλϕʔεͷීٴͰσʔλϕʔε΋εέʔϥϒϧʢͳ͜ͱ΋ʣ
11. Perlͷ࢖͍ॴ͸ͳ͘ͳͬͨʁ
12. Perlͷ࢖͍ॴ͸·ͩ͋Δ
13. εΫϦϓτͷͨΊͷPerl • Perl͕ͦͷຊྖΛൃش͍ͯͨ͠৔͸΋ͱ΋ͱεΫϦϓτ • ଟ͘ͷWeb։ൃͷݱ৔Ͱ͸ະͩʹ਺ଟͷεΫϦϓτΛඞཁͱ͢Δ • Perl͸ଟ͘ͷ؀ڥͰ࠷ॳ͔ΒΠϯετʔϧ͞Ε͍ͯΔ • git͕ೖ͍ͬͯΔ؀ڥͰ͸git͕ґଘ͢ΔPerl΋ೖ͍ͬͯΔ • ͭ·ΓGithub ActionsͰͳΜ΋ηοτΞοϓ͠ͳͯ͘΋ಈ͘
14. ଞͷݴޠͱൺ΂ͯ΋Perl͕͍͍ͷʁ • νʔϜʹΑΔʂʂʂʂʂʂʂʂʂ̍̍̍̍ʢͦΕ͸ͦ͏ʣ • Bash/Perl/Pyhton͸࠷ۙ͸Ͳͷ؀ڥʹ΋ೖͬͯΔʢBash͕ଟ͍ʁʣ • BashΑΓPerlͷ΄͏͕ม਺΍੍ޚߏจ͸ͱ͖ͬͭ΍͍͢ʢ͸ͣʣ • Bashʹߏจ͕͍ۙͷͰͦ͏͍͏ҙຯͰ΋ͱ͖ͬͭ΍͍͢ʢ͸ͣʣ • Better Shellͱͯ͠PerlΛ࢖͏ͳΒɺͱ͍͏͸ͳ͠
15. ※ݸਓͷײ૝Ͱ͢
16. Better Shell Scriptͱͯ͠ PerlΛ࢖͓͏
17. ͱ͸͍͑ͲΜͳ৔໘Ͱ࢖͑Δʁ
18. ࣮ફ͍ͯ͠ΔͷͰ͍͔ͭ͘ྫΛग़͢
19. ࣮ྫूͷίʔφʔ
20. ΞΫηετʔΫϯऔಘ
21. ΞΫηετʔΫϯऔಘ • ύϥϝʔλΛ෇͚ͯcurlΛୟ͘ • ؀ڥ͕͍͔ͭ͋͘ΔͷͰ؀ڥʹ͋ΘͤύϥϝʔλΛ͍͍ײ͡ʹઃఆ • OIDCͷclientIdΛΞϓϦέʔγϣϯͷઃఆ͔ΒҾͬுͬͯ͘Δ • ίʔϧόοΫURL΁ͷΞΫηεΛड͚෇͚ͯΞΫηετʔΫϯΛు͘ • ϩʔΧϧͷ҆શͳ৔ॴʹظݶʢ୹͍ʣ·ͰΩϟογϡ͢Δ
22. Πϝʔδ $ perl scripts/fetch_token.pl --env foo Login: https://auth.example/login (STDERR) aaaa.bbbbb.ccccccc
23. App EngineͷϚΠάϨʔγϣϯ
24. App EngineͷϚΠάϨʔγϣϯͱ͸ • App Engineʹ͸Versionͱ͍͏֓೦͕͋Δ • Cloud RunͰ͍͏ͱ͜ΖͷRevisionɺECSͰ͍͏ͱ͜ΖͷTaskDef(?) • ৽͘͠σϓϩΠͨ͠Versionʹରͯ͠τϥϑΟοΫΛ౰ͯΔੈք؍ • App Engine Admin APIͱ͍͏΍͕ͭ͋Δ • VersionؒͷϚΠάϨʔγϣϯΛ͢Δૢ࡞ΛAPI͔ΒͰ͖Δ
25. App EngineͷϚΠάϨʔγϣϯεΫϦϓτ • ෛՙ͕ߴ͍΍ͭ͸͍͖ͳΓϚΠάϨʔγϣϯ͢ΔͱSpin Up͕٧·Δ • 0.1%͚ͩτϥϑΟοΫΛ౰ͯͯIdle InstanceΛԹΊ͔ͯΒҠ͢ • Idle Instance͕े෼ʹ૿͑Δ·Ͱ଴ͭ • Idle Instanceͷ਺Λऔಘͯ͠ϙʔϦϯά • શ෦ͷτϥϑΟοΫΛ৽͍͠όʔδϣϯʹ౰ͯΔ • ͜ΕΛcurlͱPerlΛ૊Έ߹Θͤͯ΍Δ
26. Πϝʔδ $ perl scripts/migrate.pl --env foo --version v24 Set min-idle-instances ... DONE Migrate 0.1% v23 -> v24 ... DONE Waiting for warmup ....... DONE Migrate 100% v23 -> v24 ... DONE Complete!
27. k8sͷϚχϑΣετੜ੒
28. k8sͷϚχϑΣετੜ੒ • k8sͷpodΛൃࣹ୆ͱͯ͠ෛՙࢼݧΛ͍ͯͨ͠ • ෛՙࢼݧͷ৚݅ʹ૊Έ߹ΘͤͷόϦΤʔγϣϯ͕͋ͬͨ • શ෦ผͷϑΝΠϧʹ͢Δͱมߋ͕ͭΒ͍͍ͬͨ͠Μࡶʹ༻ҙ͍ͨ͠ • PerlͰจࣈྻ࿈݁Ͱੜ੒ • Here Doc͕࢖͑ΔͷͰ͋Μ·Γ஍ࠈͬΆ͞͸ͳ͍
29. Πϝʔδ $ perl scripts/gen_loadtest_k8s_manifest.pl --env foo --scenario hoge
30. APIϨϕϧͰͷϨεϙϯεࠩ෼֬ೝ ʢผόʔδϣϯʹର͢Δʣ
31. APIϨϕϧͰͷϨεϙϯεࠩ෼֬ೝ • App Engine͸VersionΛ࡞ͬͯͦ͜ͷτϥϑΟοΫΛ౰ͯΔελΠϧ • τϥϑΟοΫΛ౰ͯΔલͷVersionʹରͯ͠΋ΞΫηε͕Մೳ(!) • τϥϑΟοΫΛ౰ͯΔ·͑ʹAPIΛୟ͍ͯϨεϙϯεJSONΛอଘ • API͸curlͰୟ͘ • diff -ur before after Έ͍ͨͳײ͡Ͱ֬ೝ
32. Πϝʔδ $ perl scripts/regression.pl --env prod --version v23 --name before GET /api/foo -> 200 OK ... DONE! $ perl scripts/regression.pl --env prod --version v24 --name after GET /api/foo -> 200 OK ... DONE! $ diff -ur before after
33. ো֐ରԠௐࠪ
34. ো֐ରԠௐࠪ • ࢖͍ࣺͯͷεΫϦϓτ • Өڹ݅਺Λௐࠪͨ͠Γ • ϩά͕ଟ͍ͷͰෳ਺ͷϓϩηεʹforkͯ͠ूܭͨ͠Γ • ͍͍ͨͯ͸BigQueryͱ͔Ͱ΍ͬͨΒ͕͑͑ • ͦ͏΋͍͔ͳ͍͜ͱ΋͋Γɻɻ
35. ·ͱΊ
36. ·ͱΊ • Web։ൃͰPerlͷग़൪͸࢒೦ͳ͕Βݮ͍ͬͯΔ • Ͱ΋ɺBetter Shellͱͯ͠ͷPerl͸ࣗ৴Λ͓࣋ͬͯ͢͢ΊͰ͖Δ • Bashͱͷ઀ଓੑͷྑ͍άϧʔݴޠͱͯ͠ͷPerlͷྑ͕͋͞Δ • ࣮຿Ͱ΋͍ΖΜͳ৔໘Ͱ׆͖Δ • ΍͍͖ͬͯ·͠ΐ͏