Use Perl as Better Shell Script

Transcript

1. Use Perl as Better Shell Script @karupanerura Houtou.pm #1

2. @karupanerura • Perl / Go / Java / TypeScript /etc..

   • PAUSE: KARUPA • Software Engineer @ DeNA, Co,. LTD. • Chief Director @ Japan Perl Association

3. ࢁསͱࢲ • όϯυ • Live @ KAZOO HALL • ٢ా͏ͲΜ

   • ޷͖ • ࢁསେֶϫΠϯ • ͏·͍ https://www.yamanashi.ac.jp/social/3131
4. None

5. Shell Script

6. Shell Script • ShellߏจΛͦͷ··ར༻ͨ͠εΫϦϓτ • ίϚϯυΛॻ͍ͯͦͷ··࣮ߦͰ͖ΔͷͰ௚ײత • CLIϕʔεͷૢ࡞Λ൒ࣗಈԽ͢Δͷʹศར • WebܥͷਓͳΒ1౓͸ॻ͍ͨ͜ͱ͋Δ͸ͣʁ

7. None

8. ؆୯ʂศརʂ

9. ؆୯……ʁ

10. Shell Scriptͷ೉͠͞ • ίϚϯυͷ؀ڥࠩҟ • macOSͱLinuxͰ͸sed΍awkͳͲͰBSD/GNUҧ͍͕͋ΔʢΦϓγϣϯ͕ҟͳΔʣ • ref. https://speakerdeck.com/mackee/perl-for-shell-awk-and-sed-programmers •

    ࣮ࡍͷίϚϯυͱϏϧτΠϯίϚϯυͱγΣϧߏจ͕ࠞࡏ͢Δ • bashͷtestͱ[ͱ[[ͷҧ͍Λઆ໌Ͱ͖ΔͬͯਓͲΕ͘Β͍͍·͔͢ʁ • ෳࡶͳσʔλߏ଄Λѻ͏ͷ͕ۤख

11. খωλ: testͱ[ͱ[[ͷҧ͍ bash-5.2$ type [ [ ͸γΣϧ૊ΈࠐΈؔ਺Ͱ͢ bash-5.2$ type test

    test ͸γΣϧ૊ΈࠐΈؔ਺Ͱ͢ bash-5.2$ type [[ [[ ͸γΣϧͷ༧໿ޠͰ͢

12. খωλ: testͱ[ͱ[[ͷҧ͍ bash-5.2$ type [ [ ͸γΣϧ૊ΈࠐΈؔ਺Ͱ͢ bash-5.2$ type test

    test ͸γΣϧ૊ΈࠐΈؔ਺Ͱ͢ bash-5.2$ type [[ [[ ͸γΣϧͷ༧໿ޠͰ͢ ಉ͡૊ΈࠐΈؔ਺(alias) ߏจʢਖ਼نදݱͳͲ΋αϙʔτʣ

13. ෳࡶͳσʔλߏ଄ͬͯͨͱ͑͹ • HashMap(Dict)ͷதʹ͞ΒʹHashMap(Dict)Λ࣋ͭͱ͔ • {"user1":{"user2":true}} • ͦͷͳ͔ʹ͞ΒʹArrayΛ࣋ͭͱ͔ • {"user1":{"user2":[100,200]}}

14. ෳࡶͳσʔλߏ଄ in Shell Script $ declare -A data=(["user1"]=(["user2"]=true)) bash: ༧ظ͠ͳ͍τʔΫϯ

    `(' पลʹߏจΤϥʔ͕͋Γ·͢

15. ෳࡶͳσʔλߏ଄ in Shell Script $ declare -A data=(["user1"]=(["user2"]=true)) bash: ༧ظ͠ͳ͍τʔΫϯ

    `(' पลʹߏจΤϥʔ͕͋Γ·͢ ʢૉ௚ʹ͸ʣ Ͱ͖ͳ͍

16. ෳࡶͳ͜ͱΛ͢Δͷ͸೉͍͠

17. ೉͍͜͠ͱΛ͍ͨ͠ͱ͖͸……?

18. ಠஅͱภݟʹΑΓϓϩάϥϛϯάݴޠΛൺֱ • Ruby/Go/JavaScript/PHP: ؀ڥʹΑͬͯ͸ೖ͍ͬͯͳ͍ • Python • ͍·Ͱ͸͍͍ͩͨͷ؀ڥʹPython3ܥ͕ೖ͍ͬͯΔ • Shellͱߏจ͕͍ͩͿҧ͏ͷͰॻ͖׵͕͑ͪΐͬͱखؒ

    • Perl • ͍͍ͩͨͷ؀ڥʹೖ͍ͬͯΔ͠Shellͱߏจ΋͍ۙ

19. PerlͱbashͷߏจΛൺֱ #!/usr/bin/perl use strict; use warnings; # コマンドライン引数の取得 my $arg1

    = shift @ARGV; # 配列の宣言 my @array; # コマンドの実行 system 'grep status:500 /var/log/ access.log | ...'; #!/bin/bash set -ue -o pipefail # コマンドライン引数の取得 arg1=$1; shift # 配列の宣言 declare -a array # コマンドの実行 grep status:500 /var/log/access.log | ...

20. PerlͱbashͷߏจΛൺֱ # ίϚϯυΛ࣮ߦͯ݁͠ՌΛม਺ʹೖΕ͍ͨ my $result = `grep status:500 file`; #

    ৚݅෼ذ if ($x > 0) { ... } # ϧʔϓ while ($x > 0) { ... } # ίϚϯυΛ࣮ߦͯ݁͠ՌΛม਺ʹೖΕ͍ͨ result=`grep status:500 file` # ৚݅෼ذ if [[ "$x" -gt 0 ]]; then ... fi # ϧʔϓ while [[ "$x" -gt 0 ]]; do ... done

21. Perl͡ΌΜ (?)

22. ࣮ྫ঺հͷίʔφʔ

23. ྫ: json-diff https://github.com/karupanerura/dot fi les/blob/master/bin/json-diff

24. ྫ: jwt https://github.com/karupanerura/dot fi les/blob/master/bin/jwt

25. ༨ஊ: zxͱ͍͏΍ͭ΋͋Δ https://github.com/google/zx ׳ΕͯखʹೃછΊ͹Α͍͔΋

26. ·ͱΊ

27. ·ͱΊ • Shell Script͸ศར͚ͩͲෳࡶͳ͜ͱΛ΍Ζ͏ͱ͢Δͱ೉͍͠ • ෳࡶͳ͜ͱΛ΍Γ͍ͨͱ͖͸ϓϩάϥϛϯάݴޠʹஔ͖׵͑ΔͱΑ͍ • Perl͸Shell Scriptͱߏจ͕͍ۙͷͰҠ২ϋʔυϧ͕௿͍ʢͱࢥ͏ʣ •

    ਖ਼ղ͕͋ΔΘ͚Ͱ͸ͳ͍ͷͰɺ΍Γ΍͍͢ํ๏Λ໛ࡧ͠·͠ΐ͏