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

@karupanerura • Perl / Go / Java / TypeScript /etc.. • PAUSE: KARUPA • Software Engineer @ DeNA, Co,. LTD. • Chief Director @ Japan Perl Association 

ࢁསͱࢲ • όϯυ • Live @ KAZOO HALL • ٢ా͏ͲΜ • ޷͖ • ࢁསେֶϫΠϯ • ͏·͍ https://www.yamanashi.ac.jp/social/3131 

No content

Shell Script 

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

No content

؆୯ʂศརʂ 

؆୯……ʁ 

Shell Scriptͷ೉͠͞ • ίϚϯυͷ؀ڥࠩҟ • macOSͱLinuxͰ͸sed΍awkͳͲͰBSD/GNUҧ͍͕͋ΔʢΦϓγϣϯ͕ҟͳΔʣ • ref. https://speakerdeck.com/mackee/perl-for-shell-awk-and-sed-programmers • ࣮ࡍͷίϚϯυͱϏϧτΠϯίϚϯυͱγΣϧߏจ͕ࠞࡏ͢Δ • bashͷtestͱ[ͱ[[ͷҧ͍Λઆ໌Ͱ͖ΔͬͯਓͲΕ͘Β͍͍·͔͢ʁ • ෳࡶͳσʔλߏ଄Λѻ͏ͷ͕ۤख 

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

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

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

ෳࡶͳσʔλߏ଄ in Shell Script $ declare -A data=(["user1"]=(["user2"]=true)) bash: ༧ظ͠ͳ͍τʔΫϯ `(' पลʹߏจΤϥʔ͕͋Γ·͢ 

ෳࡶͳσʔλߏ଄ in Shell Script $ declare -A data=(["user1"]=(["user2"]=true)) bash: ༧ظ͠ͳ͍τʔΫϯ `(' पลʹߏจΤϥʔ͕͋Γ·͢ ʢૉ௚ʹ͸ʣ Ͱ͖ͳ͍ 

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

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

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

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 | ... 

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 

Perl͡ΌΜ (?) 

࣮ྫ঺հͷίʔφʔ 

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

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

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

·ͱΊ 

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