「バイブス静的解析」でレガシーコードを分析・改善しよう

:"1$'VLVPLB גࣜձࣾ͸ͯͳIJUPEF ʮόΠϒε੩తղੳʯͰ ϨΨγʔίʔυΛ෼ੳɾվળ͠Α͏

IJUPEF CMPHTVTIJNPOFZ ೥͔Β:"1$Ͱ੩తղੳͷ࿩Λ͍ͯ͠Δ͕੩తղੳ༑ୡ͕૿͑ͳ͍ͷ͕೰Έ

օ͞ΜͷϓϩμΫτ ࢖͍ͬͯͳ͍ίʔυ ຾͍ͬͯ·ͤΜ͔ʁ

ϓϩδΣΫτઐ༻ͷ੩తղੳπʔϧΛ࡞ͬͯສߦ࡟আʹ੒ޭ "*Λ࢖ͬͯɺ੎͍ͰπʔϧΛ։ൃ͠ɺྫྷ੩ʹίʔυΛফ͢ ʮόΠϒε੩తղੳʯͱ໊෇͚ͯ঺հ

1FSMͷ੩తղੳ ඵͰ͓͞Β͍

‘;’ ߏจ໦ ‘print’ ‘ ‘ List ‘ ‘ ‘ ‘
‘1’ ‘ ‘ ‘*’ ‘ ‘ ‘2’ ‘+’ ‘3’ Statement Document print (1 * 2) + 3;

‘;’ ߏจ໦ ‘print’ ‘ ‘ Statement Document print "(1 *
2) + 3"; ‘"(1 * 2) + 3"’

11*Ͱߏจ໦ݟ͍ͨ print (1 * 2) + 3; 11*%PDVNFOU 11*4UBUFNFOU 11*5PLFO8PSEQSJOU
11*5PLFO8IJUFTQBDF 11*4USVDUVSF-JTU 11*4UBUFNFOU&YQSFTTJPO 11*5PLFO/VNCFS 11*5PLFO8IJUFTQBDF 11*5PLFO0QFSBUPS 11*5PLFO8IJUFTQBDF 11*5PLFO/VNCFS 11*5PLFO8IJUFTQBDF 11*5PLFO0QFSBUPS 11*5PLFO8IJUFTQBDF 11*5PLFO/VNCFS 11*5PLFO4USVDUVSF 11*5PLFO8IJUFTQBDFaO use PPI; use PPI::Dumper; my $document = PPI::Document->new($ARGV[0]); my $dumper = PPI::Dumper->new($document); $dumper->print;

ͱ͖͸೥

ਓྨ͸ੜ੒"*Λ࢖ͬͯ ίʔυΛॻ͖׵͍͑ͯͨ ͔͠͠ ݁Ռͷଥ౰ੑ͕Α͘Θ͔Βͳ͍ ظ଴௨Γʹಈ͔ͳ͍ ͏·͘࢖͍͜ͳͤͳ͍

"*ͷίʔυॻ͖׵͑ɺௐࠪΛ৴པͰ͖ͳ͍ཧ༝ ॻ͖׵͑ͨ݁Ռͷଥ౰ੑΛௐ΂Δํ๏͕ࣗ໌Ͱͳ͍ ϓϩδΣΫτݻ༗ͷࣄ৘͸൚༻తͳ"*ʹ͸ݟ͑ͳ͍ ͳͷͰɺϓϩδΣΫτݻ༗ͷ੩తղੳπʔϧΛ࡞ΒͤΑ͏

όΠϒε੩తղੳ 7JCFDPEJOH "*Ͱ੎͍Α͘ΞϓϦέʔγϣϯΛ։ൃʢ"OESFK,BSQBUIZʣ όΠϒε੩తղੳ "*Ͱ੎͍Α͘੩తղੳπʔϧΛ։ൃʢ଄ޠʣ

όΠϒε੩త։ൃͯ͠ΈΑ͏ ਖ਼نදݱΛ࢖ͬͯιʔείʔυͷґଘؔ܎Λௐ΂ɺ ෆཁϑΝΠϧΛྻڍ͢ΔεΫϦϓτΛ࣮૷͍ͯͩ͘͠͞ɻ ਖ਼نදݱΛ࢖ͬͯιʔείʔυͷґଘؔ܎Λௐ΂ɺ ࢦఆͨ͠ϑΝΠϧʹґଘ͢ΔϑΝΠϧΛπϦʔදࣔ͢Δ εΫϦϓτΛ࣮૷͍ͯͩ͘͠͞ɻ ਖ਼نදݱΛ࢖ͬͯιʔείʔυ಺ʹॻ͖๨ΕͨVTFΛ ݕग़͢ΔςετΛ࣮૷͍ͯͩ͘͠͞ɻ

7JCFDPEJOH74όΠϒε੩తղੳ 7JCFDPEJOHͷߟ͑Ͱ੩తղੳπʔϧΛ։ൃ͢ΔࢼΈ 7JCFDPEJOH όΠϒε੩తղੳ ։ൃεϐʔυ ˕ߴ଎ ˕ߴ଎ ݕূՄೳੑ ☓ಈ͔ͯ͠ΈΔ·Ͱෆ໌
̋ਓ͕ؒղऍՄೳͳܗͷग़ྗΛٻΊΔ อकੑ ˚ਓؒ͸ιʔείʔυΛಡΊͳͯ͘΋͍͍ ̋յΕͯ΋௚ͤΔܗʹཹΊΔ ର৅ ͳΜͰ΋ ιʔείʔυղੳ ιʔείʔυॻ͖׵͑

੩తղੳ74όΠϒε੩తղੳ ಘҙɾෆಘҙ͸͋Δ͕ɺର৅ྖҬʹΑͬͯ͸͏·͍͘͘ ੩తղੳ όΠϒε੩తղੳ ର৅ൣғ ˕ߏจ໦ͱͯ͠ਖ਼͘͠ύʔε ͍͔ͳΔه๏ʹ΋ରԠՄೳ ☓ίʔυϕʔε಺ͷه๏ͷΈѻ͏ ඼࣭
˕ੑ্࣭ɺޡ࡞ಈ͸ڐ༰͞Εͳ͍ ඼࣭ॏࢹͷखݎ͍։ൃ ☓ࣗݾ੹೚Ͱ։ൃ յΕͨΒࣗ෼ͨͪͰ௚͢ɺࣺͯΔ อकੑ ˚ߏจ໦Λର৅ͱͨ͠"1*ͷशಘ͕ඞཁ ̋ਖ਼نදݱͳͷͰ ߏจ໦ʹ໌Δ͘ͳ͍ϝϯόʔͰ΋ѻ͑Δ ࣮ߦ࣌ؒ ☓࣮ߦ͕࣌ؒ໰୊ͱͳΔ͜ͱ΋ ϑΥʔϚολద༻ʹ਺෼ͳͲ ˕ສߦͷղੳ΋਺ඵ

ϓϩδΣΫτઐ༻ͷ੩తղੳπʔϧͷٕज़બఆ ϓϩδΣΫτ಺Ͱ࢖ΘΕ͍ͯΔه๏͸ݶΒΕ͍ͯΔͷͰɺ ݴޠͰѻ͑Δ͢΂ͯͷه๏Λѻ͑Δඞཁ͸ͳ͍ɻ ਖ਼نදݱͰύʔε͢Δ͚ͩͰ΋ɺ໾ʹཱͭ΋ͷΛ࡞ΕΔɻ ڊେͳίʔυϕʔεʹਖ਼نදݱ͚ͩͰ ཱͪ޲͔͏ͱʮ੎͍ʯʮόΠϒεʯ͕ੜ·ΕΔɻ

σουίʔυΛফͦ͏

σουίʔυͷ୳͠ํ ΞϓϦέʔγϣϯͷىಈͷى఺ͱͳΔɺΤϯτ ϦϙΠϯτΛܾΊΔ 8FCΞϓϦͳΒBQQQTHJ $-*πʔϧͳΒCJO΍TDSJQU DSPOUBCͷઃఆ ΤϯτϦϙΠϯτ͔Βґଘ͢ΔϑΝΠϧΛ୧Δ Ͳ͔͜Β΋౸ୡͰ͖ͳ͚Ε͹σουίʔυ 🧟
📃 📃 📃 📃 📃 📃 📃 FOUSZQPJOU FOUSZQPJOU "DUJWFDPEF "DUJWFDPEF "DUJWFDPEF "DUJWFDPEF "DUJWFDPEF %FBEDPEF

͜ͷίʔυফͤ·͔͢ʁ ِӄੑɺِཅੑͰߟ͑Δ ҙຯ ى͜Δ͜ͱ ِӄੑ ݟಀ͠ ຊ౰͸ফͤΔͷʹʮফͤͳ͍ʯͱ൑அ σουίʔυ͸࢒Δ ػೳఏڙ্໰୊ͳ͠
ِཅੑ ޡݕ஌ ຊ౰͸ফͤͳ͍ͷʹʮফͤΔʯͱ൑அ ඞཁͳίʔυΛফͯ͠͠·͏ ෆ۩߹ɺো֐ൃੜ ِӄੑ͸ڐ༰ɺِཅੑ͸ආ͚Δ ׬ᘳΛ໨ࢦͣ͞ɺ࣮֬ʹݕग़Ͱ͖ΔՕॴʹߜΔ

͞·͟·ͳґଘͷܗ ൚༻πʔϧଆͰ͢΂ͯରԠ͢Δͷ͸೉͍͠ use, require # ར༻ use parent #
ܧঝ with, extends # Moose, MouseͳͲ࢖͍ͬͯΔ৔߹ # δϣϒΩϡʔ΁packageΛࢦఆͯ͠ΤϯΩϡʔ Worker->insert_job('MyApp::PublishEntry', {id => $entry_id}); # crontab͔ΒδϣϒΩϡʔʹΤϯΩϡʔ */1 * * * * root perl insert-worker-job.pl --job 'MyApp::PublishScheduledEntry' # ϧʔςΟϯά༻DSLΛ࢖ͬͯControllerΛࢦఆ GET '/' => 'MyApp::Controller::Root#index_html'; # `MyApp::Model::Entry`ͳͲ͕ಈతϩʔυ͞ΕΔ $c->model('Entry')->search({id => $entry_id}); # `MyApp::Controller::`ҎԼΛ͢΂ͯϩʔυ Module::Find::useall 'MyApp::Controller';

σουίʔυͷҰੜ 🤖ίʔυ࡟আ 🤖ௐࠪ݁ՌΛఴ͑ͯ13Խ 🧐$*ίʔυϨϏϡʔ 🫣ϚʔδɾϦϦʔε 🤖εΫϦϓτ࣮૷ 🤖εΫϦϓτ࣮ߦ 🤖σουίʔυ ީิൃݟ
🤖୳ࡧϧʔϧௐ੔ 😀࡟আՄೳͱ൑அ 😅ෆඋ͋Γ 🤖Ϩϙʔτ 🤖HJUHSFQHJUMPH Ϩϙʔτ࡞੒ 😵💫σουίʔυ ࡟আΛࢥཱ͍ͭ 🤨ܦҢ֬ೝ

ӡ༻தϓϩμΫτͰൃݟͨ͠σουίʔυྫ ط஌ͷσουίʔυ ഇࢭࡁΈػೳͷίʔυΛɺϨϙʔτΛݟͳ͕Βண࣮ʹ࡟আ ະ஌ͷσουίʔυ ։ൃதʹ࡞͕ͬͨɺ࢖Θͳ͔ͬͨίʔυΛ࡟আ ౰ॳ͸࢖͍͕ͬͯͨɺύϑΥʔϚϯενϡʔχϯάͰ࢖Θͳ͘ͳͬͨίʔυΛ࡟আ ࣮૷ऀʹϨϏϡʔґཔ͢Δͱɺ౰࣌Λͳ͔ͭ͠ΜͰ΋Β͑Δ ໿1VMM3FRVFTUɺ໿ສߦͷ࡟আʹ੒ޭ

IUUQTHJUIVCDPNQFSMEPDKQQFSMEPDKQQVMM ಉ͡ख๏ͰQFSMEPDKQͰσουίʔυൃݟ ߦͷ࡟আʹ੒ޭ sub extract_used_packages { my $file =
shift; my @packages; open my $fh, '<', $file or return (); while (<$fh>) { # use Package if (/^\s*use\s+([\w:]+)/) { push @packages, $1; } # use parent qw/Package1 Package2/ if (/^\s*use\s+parent\s+qw[\/$]([^\/$]+)[\)\/]/) { push @packages, split /\s+/, $1; } # use parent 'Package' if (/^\s*use\s+parent\s+['"]([^'"]+)['"]/) { push @packages, $1; } # Package->method if (/([\w:]+)->\w+/) { push @packages, $1 if $1 =~ /::/; } } close $fh; return @packages; }

σουίʔυ࡟আͷͨΊͷαϒίϚϯυ $MBVEF$PEF༻ͷαϒίϚϯυͱͯ͠༻ҙ͓ͯ͘͠ ͲͷϦϙδτϦͰ΋͍͖ͳΓσουίʔυΛ୳࢝͠ΊΒΕΔ dDMBVEFDPNNBOET fi OEVOVTFEQNNEʹ഑ஔ $MBVEF$PEFͰ fi OEVOVTFEQN ϓϩϯϓτͷ.BSLEPXO಺͔ΒεΫϦϓτΛෳ੡ͯ͠ௐࠪ։࢝
IUUQTHJTUHJUIVCDPNIJUPEFDFDCEDDEBGBD

ͦͷ΄͔ͷ׆༻

աڈʹॻ͍ͨਖ਼نදݱͷ඼࣭վળ ʮVTFͯ͠ͳ͍ͷʹϝιουΛݺͼग़͠ʯΛ ਖ਼نදݱͰ୳͢ςετΛखॻ͖͍ͯͨ͠ όΠϒε੩తղੳͷߟ͑Λ࢖ͬͯݟ௚͍ͨ͠ # use͔ͯ͠Βϝιουݺͼग़͠ use MyApp::Redis; my
$redis = MyApp::Redis->connect; # ͍͖ͳΓϝιουݺͼग़͢͠Δͷ͸use࿙Ε(ݕग़ର৅) my $redis = MyApp::Redis->connect;

աڈʹॻ͍ͨਖ਼نදݱͷ඼࣭վળ "*ʹ11*൛Λ࣮૷ͯ͠΋Β͍ਖ਼ղσʔλͱͯ͠ར༻͠ɺ ਖ਼نදݱ൛Λௐ੔ ਖ਼نදݱ൛Λࢀߟʹ11*൛Λ࣮૷ Ҏલ͔Β͋ͬͨόάΛൃݟͰ͖ͨ ͔࣮͠͠ߦ࣌ؒ͸ഒʹʢඵఔ౓ˠඵʣ ਖ਼نදݱ൛Λσόοάͯ͠΋Β͍ɺ࣮ߦ࣌ؒඵͷ··11*ͱಉ݁͡ՌΛग़ͤΔΑ͏ʹ ඪ४Λਖ਼نදݱ൛ͱͭͭ͠ɺ྆ํͷ࣮૷Λ࢒͓͍ͯͯ͠ɺࠓޙ΋ո͍͠ͱ͖ʹ͸݁ՌΛൺ΂ΒΕΔΑ͏ʹ #"$,&/%3&(&9c11*Ͱ੾Γସ͑ ࣮ߦ࣌ؒΛม͑ͣਫ਼౓Ξοϓɺ඼࣭վળ੒ޭ

όΠϒεࣦഊࣄྫ

5FTUͷDBMMॻ͖๨Εςετ 5FTUͷPCKFDUςετͰɺ DBMMॻ͖๨ΕΛݕ஌͢ΔςετΛ11*Ͱ༻ҙ͍ͯͨ͠ # OK is $user, object { call
age => 30; }; # NG is $user, object { age => 30; }; ࣮ߦ࣌ؒɿඵ ಉ݁͡ՌΛฦ͢ಉ͡ਖ਼نදݱ൛Λ։ൃͰ͖Ε͹ߴ଎Խͯ͠͏Ε͍͠

5FTUͷDBMMॻ͖๨Εςετ ࢼ͕ͨ͠ɺ͏·͍͔ͣ͘ ࣅͨΑ͏ͳ݁Ռ͸ಘΒΕΔ͕11*൛ͱݕ஌Օॴ͕ҟͳΔ # ωετͨ͠object is $user, object { call
parent => object { call age => 60; }; call age => 30; }; ωετͨ͠ߏ଄ʢA\^AɺA<>AͳͲʣ͸ਖ਼نදݱͰ͸ਖ਼֬ʹѻ͑ͳ͍ VTFSFRVJSF͸ωετͷͳ͍୯७ͳߏ଄ͳͷͰਖ਼نදݱͰѻ͑Δ PCKFDUϒϩοΫͷΑ͏ͳෳࡶͳௐࠪΛ͢Δʹ͸11*͕ඞཁ όΠϒε੩తղੳ͸ສೳͰ͸ͳ͍ɻਖ਼نදݱͰѻ͑ΔൣғΛݟۃΊΔ͜ͱ͕େࣄ

·ͱΊ ੩తղੳͱ͍͏ɺͳ͔ͳ͔खΛग़͠ʹ͍͘෼໺΋ɺ ੎͍Ͱѻ͑ΔΑ͏ʹͳ͖ͬͯͨ όΠϒεͰ͸ͳ͘ɺݕ஌εΫϦϓτΛ࡞Δ͜ͱͰɺ ݁ՌΛղऍՄೳʹ͢Δ͜ͱ͕ॏཁ ࠓޙͷల๬ ϓϩϯϓτڞ༗ɺ஌ݟڞ༗͍ͨ͠ ݒ೦ɿڞ༗ɺ؅ཧ͢Δ͜ͱͰॊೈͳ؀ڥʹରԠͰ͖ͳ͘ͳΔ͓ͦΕˠόΠϒε௿Լ ͓ͬͦ͘͞खݩͷϓϩμΫτͰࢼͯ͠Έ͍ͯͩ͘͞ ͏·͍ͬͨ͘Β࠙਌ձͰ੠͔͚͍ͯͩ͘͞
͏·͍͔͘ͳ͔ͬͨΒϖΞϓϩ͠·͠ΐ͏

࣭໰͋Γ·͔͢ʁ

113Λ࢖ͬͨΒʁ 113ɿਖ਼نදݱϕʔεͷύʔαʔ ࠾༻͠ͳ͍ཧ༝ ϓϩδΣΫτશମ113Ͱύʔε͢Δͱ11*ͱಉ͘͡Β͍͕͔͔࣌ؒͬͨɻෳ਺ճϚον͢Δͱ ޮ཰͕ѱ͍ ίΞϞδϡʔϧͰ͸ͳ͍ˠϙʔλϏϦςΟ͕௿͍ ਖ਼֬Ͱ͸͋Δ͕ɺ୯ͳΔਖ਼نදݱΑΓՄಡੑ௿ԼˠνʔϜϝϯόʔ͕ϝϯςφϯεͰ͖ͳ͍ ڪΕ ୭Ͱ΋อकͰ͖ɺյΕͯ΋ยखؒʹ௚ͤΔ΋ͷΛ໨ࢦ͢ɺͱ͍͏όΠϒεॏࢹ

࢖ͬͨπʔϧͱϞσϧ͸ʁ ೥݄೔࣌఺Ͱ πʔϧ$MBVEF$PEF "OUISPQJDެࣜ$-* Ϟσϧ$MBVEF4POOFU DMBVEFTPOOFU!

VTF࿙ΕνΣοΫͰݟಀ͍ͯͨ͠ෆ۩߹ ਖ਼نදݱ൛ͷ෦෼Ϛονόά VTF.Z"QQ3FEJT,FZ͕͋Ε͹.Z"QQ3FEJTDPOOFDU΋0,ͱޡ൑ఆ͍ͯͨ͠ 11*൛ͰݫີʹνΣοΫ͢Δ͜ͱͰൃݟ ͨͩ͠ɺಈ࡞Өڹͷͳ͍ෆ۩߹ͩͬͨ 1FSMͷϞδϡʔϧϩʔυ͸άϩʔόϧ ଞͷϑΝΠϧͰطʹϩʔυࡁΈͰ*/$ʹҰ౓ొ࿥͞ΕͨΒಈ࡞͢Δ ʮͦͷϑΝΠϧ಺ͰVTF͍ͯ͠ͳ͍ʯͱ͍͏੩తղੳ্ͷ໰୊ զʑͷϓϩμΫτͰ͸BQQQTHJͰىಈ࣌ʹΑ͘࢖͏ωʔϜεϖʔεΛ·ͱΊͯVTF͍ͯ͠Δͨ Ίಈ࡞ʹ͸Өڹͳ͔ͬͨ

ϓϩδΣΫτઐ༻ͷ੩తղੳπʔϧͷٕज़બఆ ߏจ໦Λ࡞Βͳ͍͍ͯ͘ͷʁ "45ૢ࡞ʹೃછΈͷͳ͍։ൃऀʹ͸อक͕೉͍͠ ࣮ߦ͕࣌ؒ໰୊ͱͳΓ΍͍͢ ສߦͷιʔείʔυͷߏจ໦ߏஙʹखݩ୺຤Ͱ͸෼͔͔Δ ։ൃதʹࢼߦࡨޡ͍ͨ͠ͷͰɺૣ͚Ε͹ૣ͍΄͏͕๬·͍͠ ґଘؔ܎ͷൈ͖ग़͠Λௐ΂Δʹ͸ɺϑΝΠϧؒͷؔ࿈ͷάϥϑΛऔΓग़ͤΕ͹ྑ͍ͷ ͰɺͦΕ΄ͲෳࡶͰ͸ͳ͍ ਖ਼نදݱͰ΋໾ཱͭ΋ͷΛ࡞ΕΔ͜ͱ͕෼͔ͬͨΒɺझຯͰ੩తղੳ͢ΔਓΛ૿΍ͤΔ Մೳੑ

͓͢͢Ίຊ #FZPOE7JCF$PEJOH όΠϒίʔσΟϯάΛ௒͑ͯ όΠϒίʔσΟϯάˡˠ"*ɾΞγετɾΤϯδχΞϦϯάͱ͍͏ରൺ ͜ͷຊͷٞ࿦Λ;·͑Δͱɺ ʮ"*ɾΞγετɾ੩తղੳʯͱݺΜͩ΄͏͕ࣗવ
IUUQTMFBSOJOHPSFJMMZDPNMJCSBSZWJFXCFZPOEWJCFDPEJOH

「バイブス静的解析」でレガシーコードを分析・改善しよう

「バイブス静的解析」でレガシーコードを分析・改善しよう

hitode909

More Decks by hitode909

Featured

Transcript

:"1$'VLVPLB גࣜձࣾ͸ͯͳIJUPEF ʮόΠϒε੩తղੳʯͰ ϨΨγʔίʔυΛ෼ੳɾվળ͠Α͏

IJUPEF CMPHTVTIJNPOFZ ೥͔Β:"1$Ͱ੩తղੳͷ࿩Λ͍ͯ͠Δ͕੩తղੳ༑ୡ͕૿͑ͳ͍ͷ͕೰Έ

օ͞ΜͷϓϩμΫτ ࢖͍ͬͯͳ͍ίʔυ ຾͍ͬͯ·ͤΜ͔ʁ

ϓϩδΣΫτઐ༻ͷ੩తղੳπʔϧΛ࡞ͬͯສߦ࡟আʹ੒ޭ "*Λ࢖ͬͯɺ੎͍ͰπʔϧΛ։ൃ͠ɺྫྷ੩ʹίʔυΛফ͢ ʮόΠϒε੩తղੳʯͱ໊෇͚ͯ঺հ

1FSMͷ੩తղੳ ඵͰ͓͞Β͍

‘;’ ߏจ໦ ‘print’ ‘ ‘ List ‘ ‘ ‘ ‘

‘;’ ߏจ໦ ‘print’ ‘ ‘ Statement Document print "(1 *

11Ͱߏจ໦ݟ͍ͨ print (1 2) + 3; 11%PDVNFOU 114UBUFNFOU 11*5PLFO8PSEQSJOU

ͱ͖͸೥

ਓྨ͸ੜ੒"*Λ࢖ͬͯ ίʔυΛॻ͖׵͍͑ͯͨ ͔͠͠ ݁Ռͷଥ౰ੑ͕Α͘Θ͔Βͳ͍ ظ଴௨Γʹಈ͔ͳ͍ ͏·͘࢖͍͜ͳͤͳ͍

"ͷίʔυॻ͖׵͑ɺௐࠪΛ৴པͰ͖ͳ͍ཧ༝ ॻ͖׵͑ͨ݁Ռͷଥ౰ੑΛௐ΂Δํ๏͕ࣗ໌Ͱͳ͍ ϓϩδΣΫτݻ༗ͷࣄ৘͸൚༻తͳ"ʹ͸ݟ͑ͳ͍ ͳͷͰɺϓϩδΣΫτݻ༗ͷ੩తղੳπʔϧΛ࡞ΒͤΑ͏

όΠϒε੩తղੳ 7JCFDPEJOH "Ͱ੎͍Α͘ΞϓϦέʔγϣϯΛ։ൃʢ"OESFK,BSQBUIZʣ όΠϒε੩తղੳ "Ͱ੎͍Α͘੩తղੳπʔϧΛ։ൃʢ଄ޠʣ

7JCFDPEJOH74όΠϒε੩తղੳ 7JCFDPEJOHͷߟ͑Ͱ੩తղੳπʔϧΛ։ൃ͢ΔࢼΈ 7JCFDPEJOH όΠϒε੩తղੳ ։ൃεϐʔυ ˕ߴ଎ ˕ߴ଎ ݕূՄೳੑ ☓ಈ͔ͯ͠ΈΔ·Ͱෆ໌

੩తղੳ74όΠϒε੩తղੳ ಘҙɾෆಘҙ͸͋Δ͕ɺର৅ྖҬʹΑͬͯ͸͏·͍͘͘ ੩తղੳ όΠϒε੩తղੳ ର৅ൣғ ˕ߏจ໦ͱͯ͠ਖ਼͘͠ύʔε ͍͔ͳΔه๏ʹ΋ରԠՄೳ ☓ίʔυϕʔε಺ͷه๏ͷΈѻ͏ ඼࣭

ϓϩδΣΫτઐ༻ͷ੩తղੳπʔϧͷٕज़બఆ ϓϩδΣΫτ಺Ͱ࢖ΘΕ͍ͯΔه๏͸ݶΒΕ͍ͯΔͷͰɺ ݴޠͰѻ͑Δ͢΂ͯͷه๏Λѻ͑Δඞཁ͸ͳ͍ɻ ਖ਼نදݱͰύʔε͢Δ͚ͩͰ΋ɺ໾ʹཱͭ΋ͷΛ࡞ΕΔɻ ڊେͳίʔυϕʔεʹਖ਼نදݱ͚ͩͰ ཱͪ޲͔͏ͱʮ੎͍ʯʮόΠϒεʯ͕ੜ·ΕΔɻ

σουίʔυΛফͦ͏

σουίʔυͷ୳͠ํ ΞϓϦέʔγϣϯͷىಈͷى఺ͱͳΔɺΤϯτ ϦϙΠϯτΛܾΊΔ 8FCΞϓϦͳΒBQQQTHJ $-*πʔϧͳΒCJO΍TDSJQU DSPOUBCͷઃఆ ΤϯτϦϙΠϯτ͔Βґଘ͢ΔϑΝΠϧΛ୧Δ Ͳ͔͜Β΋౸ୡͰ͖ͳ͚Ε͹σουίʔυ 🧟

͜ͷίʔυফͤ·͔͢ʁ ِӄੑɺِཅੑͰߟ͑Δ ҙຯ ى͜Δ͜ͱ ِӄੑ ݟಀ͠ ຊ౰͸ফͤΔͷʹʮফͤͳ͍ʯͱ൑அ σουίʔυ͸࢒Δ ػೳఏڙ্໰୊ͳ͠

͞·͟·ͳґଘͷܗ ൚༻πʔϧଆͰ͢΂ͯରԠ͢Δͷ͸೉͍͠ use, require # ར༻ use parent #

σουίʔυͷҰੜ 🤖ίʔυ࡟আ 🤖ௐࠪ݁ՌΛఴ͑ͯ13Խ 🧐$*ίʔυϨϏϡʔ 🫣ϚʔδɾϦϦʔε 🤖εΫϦϓτ࣮૷ 🤖εΫϦϓτ࣮ߦ 🤖σουίʔυ ީิൃݟ

IUUQTHJUIVCDPNQFSMEPDKQQFSMEPDKQQVMM ಉ͡ख๏ͰQFSMEPDKQͰσουίʔυൃݟ ߦͷ࡟আʹ੒ޭ sub extract_used_packages { my $file =

σουίʔυ࡟আͷͨΊͷαϒίϚϯυ $MBVEF$PEF༻ͷαϒίϚϯυͱͯ͠༻ҙ͓ͯ͘͠ ͲͷϦϙδτϦͰ΋͍͖ͳΓσουίʔυΛ୳࢝͠ΊΒΕΔ dDMBVEFDPNNBOET fi OEVOVTFEQNNEʹ഑ஔ $MBVEF$PEFͰ fi OEVOVTFEQN ϓϩϯϓτͷ.BSLEPXO಺͔ΒεΫϦϓτΛෳ੡ͯ͠ௐࠪ։࢝

ͦͷ΄͔ͷ׆༻

աڈʹॻ͍ͨਖ਼نදݱͷ඼࣭վળ ʮVTFͯ͠ͳ͍ͷʹϝιουΛݺͼग़͠ʯΛ ਖ਼نදݱͰ୳͢ςετΛखॻ͖͍ͯͨ͠ όΠϒε੩తղੳͷߟ͑Λ࢖ͬͯݟ௚͍ͨ͠ # use͔ͯ͠Βϝιουݺͼग़͠ use MyApp::Redis; my

όΠϒεࣦഊࣄྫ

5FTUͷDBMMॻ͖๨Εςετ 5FTUͷPCKFDUςετͰɺ DBMMॻ͖๨ΕΛݕ஌͢ΔςετΛ11*Ͱ༻ҙ͍ͯͨ͠ # OK is $user, object { call

5FTUͷDBMMॻ͖๨Εςετ ࢼ͕ͨ͠ɺ͏·͍͔ͣ͘ ࣅͨΑ͏ͳ݁Ռ͸ಘΒΕΔ͕11*൛ͱݕ஌Օॴ͕ҟͳΔ # ωετͨ͠object is $user, object { call

࣭໰͋Γ·͔͢ʁ

࢖ͬͨπʔϧͱϞσϧ͸ʁ ೥݄೔࣌఺Ͱ πʔϧ$MBVEF$PEF "OUISPQJDެࣜ$-* Ϟσϧ$MBVEF4POOFU DMBVEFTPOOFU!

͓͢͢Ίຊ #FZPOE7JCF$PEJOH όΠϒίʔσΟϯάΛ௒͑ͯ όΠϒίʔσΟϯάˡˠ"ɾΞγετɾΤϯδχΞϦϯάͱ͍͏ରൺ ͜ͷຊͷٞ࿦Λ;·͑Δͱɺ ʮ"ɾΞγετɾ੩తղੳʯͱݺΜͩ΄͏͕ࣗવ