レガシーPerlと「今」を組み合わせ、開発を継続し続ける方法

Transcript

1. 1.

   ʙ1FSMόϦόϦॻ͚Δͬͯਧ͍ͯϖύϘʹೖࣾ͠·ͨ͠ʙ ࢁԼ
   ࿨඙
   
   (.0
   1FQBCP
   *OD
   
   :"1$'VLVPLB
   
   )","5" ϨΨγʔ1FSMͱʮࠓʯΛ૊Έ߹ Θͤɺ։ൃΛܧଓ͠ଓ͚Δํ๏

2. 2.

   IUUQTUFOTOBQPODPN νʔϑςΫχΧϧϦʔυ ࢁԼ
   ࿨඙!QZBNB ϗεςΟϯάࣄۀ෦

3. 3.

   IUUQTUOTKQ

4. 4.

   None
5. 5.

   ࠷ॳʹ͓఻͑͠·͢ɺ
   ๻͸όʔδϣϯΞοϓ͠ͳ͍ଆͷ
   ਓؒͰ͢

6. 6.

   ϩϦϙοϓͷ؆қγεςϜߏ੒ਤ 1FSM
    ϩϦϙοϓͷίΞ"1*͸1FSM  .Z42-
   4FSWFS 'SPOU"1*
   3BJMT
   ;FOE ਃ͠ࠐΈαΠτ ίΞ"1*

   ϑϩϯτ"1* ϗεςΟϯάαʔό܈ .BJM
   4FSWFS 8FC
   4FSWFS ܖ໿৘ใ΍αʔό৘ใΛ
   ίϯτϩʔϧ αʔόϓϩϏδϣχϯάͷ
   ࣮ߦࢦࣔ
7. 7.

   None
8. 8.

   

9. 9.

   wඇৗʹγϯϓϧͳ"1*Ͱ͋ΔͨΊɺੵۃతͳόʔδϣϯΞοϓͷಈػ ͕ͳ͔ͬͨ
   w಺෦"1*ͳͷͰɺϑϩϯτܥαʔόͱൺ΂ΔͱɺόʔδϣϯΞοϓͷ ༏ઌ౓͕Լ͕ͬͯ͠·͏
   w$1"/ͱͷဃ཭͕େ͖͘ͳΓɺͲΜͲΜόʔδϣϯΞοϓ͕ࠔ೉ʹ ͳ͍͖ͬͯɺ਎ಈ͖͕औΕͳ͍ ϖύϘݻ༗ͷࣄ৘ ͳͥ1FSM
   

10. 10.

    wόʔδϣϯΞοϓίετΛ෷͏ʹͯ͠΋ɺ1FSMͷॻ͖खΛूΊΔ͜ͱ ͕ͦΕͳΓʹࠔ೉Ͱ͋Δ
    w৽ن։ൃҊ݅Ͱ1FSM͕બ୒ࢶʹೖΓͮΒ͍͜ͱ͔Βࢢ৔ʹগͳ͍
    wࣾ಺ʹ͓͍ͯ΋ϝϯςφ͕ඇৗʹݶΒΕ͖ͯͭͭ͋Γɺݹࢀϝϯόʔ ͔ଞݴޠͰͦΕͳΓʹ࿅౓͕͋ΔΤϯδχΞ 1FSMͷࣄ৘ ͳͥ1FSM
    

11. 11.

    ϩϦϙοϓʂ͸·ͩ·ͩ੒௕աఔ αʔϏε͕ਐԽ͢ΔͳΒ͹ɺ
    "1*΋ܧଓత։ൃ͕ඞཁ

12. 12.

    ܧଓత։ൃΛߦ͏ͨΊʹ৐Γӽ͑ͨ΋ͷ wڞ༻αʔόΛར༻ͨ͠։ൃ؀ڥ
    wϝϯςφϯε͞Ε͍ͯͳ͍Ϣχοτςετ
    wΦϖϨʔγϣϯͷΦʔτϝʔγϣϯԽ

13. 13.

    ڞ༻αʔόΛར༻ͨ͠։ൃ؀ڥ

14. 14.

    ڞ༻αʔόΛར༻ͨ͠։ൃ؀ڥ %FW"1* .Z42-
    4FSWFS .BJM
    4FSWFS 8FC
    4FSWFS ैདྷ ։ൃ؀ڥΛίϯςφԽ͠ɺ
    ڞ༻ʹΑΔϦιʔεڝ߹Λແ͘͢ $POUBJOFS ݱࡏ

    %FW"1* .Z42-
    4FSWFS .PDL
    .BJM .PDL
    8FC
15. 15.

    ڞ༻αʔόΛར༻ͨ͠։ൃ؀ڥ 1FSM
    ͷ؀ڥ͔ΒUBSH[Ͱ
    ϞδϡʔϧΛશͯநग़͠ίϯςφԽ $ tar zcvf site_perl.tar.gz /usr/lib64/perl5/site_perl/5.8.8 # in

    docker # tar zxvf site_perl.tar.gz # docker commit xxxxx private.pepabo.com/coreapi:latest
16. 16.

    ϝϯςφϯε͞Ε͍ͯͳ͍
    Ϣχοτςετ

17. 17.

    ϝϯςφϯε͞Ε͍ͯͳ͍Ϣχοτςετ ଞͷίϯϙʔωϯτͱີ݁߹ͳͷͰ
    ςετ͕ॻ͖ͮΒ͍ɺࣦഊ͠΍͍͢ %FW"1* 8FC
    4FSWFS XFCFYBNQMFKQ ਃ͠ࠐΈ 8FCαʔόʹFYBNQMFKQͷ
    σΟϨΫτϦΛ࡞੒ 8FCαʔόͷਃࠐΈςετ

    FYBNQMFKQͷਃࠐ৘ใ͕%#ʹ
    ͋Δͳ͍
    8FC
    4FSWFSͱ઀ଓ͞Εͯ
    
    
    
    
    
    
    ͍Δ͍ͳ͍
    8FC
    4FSWFSͷσΟϨΫτϦ͸
    ͋Δͳ͍
18. 18.

    ϝϯςφϯε͞Ε͍ͯͳ͍Ϣχοτςετ .PDLԽ
    %#ͷঢ়ଶΛ࣋ͨͳ͍

19. 19.

    ϝϯςφϯε͞Ε͍ͯͳ͍Ϣχοτςετ 5FTU.PDL(VBSEΛར༻͠ɺ
    ֎෦ίϯϙʔωϯτ͸શͯ.PDLԽ my $mock = mock_guard(‘Hosting::Server::API::Ext', +{ run =>

    sub { my($self, $params) = @_; switch ($params->{'parameters'}) { case /—domain=example.com/ { return { key => $dummy_key, }; } } }, });
20. 20.

    ϝϯςφϯε͞Ε͍ͯͳ͍Ϣχοτςετ 5FTUNZTRMEΛར༻͠ɺ
    ςετσʔλͷিಥΛճආ͢Δ sub new { my %self; my $class

    = shift; $self->{mysqld} = Test::mysqld->new(my_cnf => {'port' => '3306'}, copy_data_from => 't/data/mysql'); $self->{dbh} = DBI->connect($self->{mysqld}->dsn, '', '') or die 'cannot connect to db'; return bless $self, $class; } UEBUBNZTRM .Z42- UFTU
    DBTF
    " UFTU
    DBTF
    # .Z42- ϕʔεσʔλΛݩʹ
    ৽نΠϯελϯεىಈ ςετέʔε͝ͱʹ࢖༻͢Δ
    %#͕ҟͳΔͨΊ
    ΫϦʔχϯά͕ෆཁ
21. 21.

    ϝϯςφϯε͞Ε͍ͯͳ͍Ϣχοτςετ 5FTU%#MPBE@pYUVSFΛར༻͠ɺ
    ςετϨίʔυͷ४උΛ༰қʹͨ͠ UEBUBNZTRM .Z42- UFTU
    DBTF
    " UFTU
    DBTF
    # .Z42- ϕʔεσʔλΛݩʹ
    ৽نΠϯελϯεىಈ

    DBTF@BZNM
    EPNBJO
    FYBNQMFDPN
    VTFS
    VTFS@
    QBUI
    IPNFVTFS@
    ʜ
22. 22.

    ϝϯςφϯε͞Ε͍ͯͳ͍Ϣχοτςετ %SPOFJPͰࣗಈςετ࣮ߦ IUUQTXXXTMJEFTIBSFOFUVE[VSBESPOFJP PQFOTUBDL %PDLFS
    4XBSN 7. ESPOFJP 7. 7. 7.

    7. 7. 7.
23. 23.

    ΦϖϨʔγϣϯͷ
    ΦʔτϝʔγϣϯԽ

24. 24.

    ΦϖϨʔγϣϯͷΦʔτϝʔγϣϯԽ MJHIUIUUQEͷ੍໿͕͋Γɺ
    खಈͰσϓϩΠ͢Δӡ༻ σϓϩΠαʔόʹϩάΠϯ͠ɺHJU
    DMPOF
    EFQMPZTIΛ࣮ߦ͢Δ
    ର࿩తϓϩϯϓτʹΑΓHJU
    QVMMͳͲΛ࣮ߦ
    STZODͰσϓϩΠઌʹ഑෍
    ଴ػܥαʔόͷGBTUDHJɺMJHIUUQEΛ࠶ىಈ
    खಈͰಈ࡞֬ೝ
    ݱ༻ܥαʔόͷGBTUDHJɺMJHIUUQEΛ࠶ىಈ

    σϓϩΠखॱ खॱ͕ଟ͘ɺ͕͔͔࣌ؒΔɺଋറ͞ΕΔ
    ಈ࡞֬ೝ͕ਓʹґଘ͍ͯ͠Δ
    ࠶ىಈ࿙ΕͳͲΛ๷͙͜ͱ͕ग़དྷͳ͍ ՝୊
25. 25.

    $BQJTUSBOP

26. 26.

    ΦϖϨʔγϣϯͷΦʔτϝʔγϣϯԽ $BQJTUSBOPΛར༻͠ɺ
    σϓϩΠ͔Βಈ࡞֬ೝ·ͰΛࣗಈԽ CVOEMF
    FYFD
    TUBHJOH
    EFQMPZ KFOLJO
    KPC TMBDL
    OPUJGZ CVOEMF
    FYFD
    QSPEVDUJPO
    EFQMPZ εςʔδϯάσϓϩΠޙɺ
    

    MJHIUUQE΍GBTUDHJͷ࠶ىಈ ࣗಈͰΠϯςάϨʔγϣϯςετΛ
    ࣮ߦ ςετͷ݁ՌΛ4MBDL௨஌ ਖ਼ৗͰ͋Ε͹ຊ൪؀ڥ΁
    σϓϩΠ
27. 27.

    ΦϖϨʔγϣϯͷΦʔτϝʔγϣϯԽ ͋ΒΏΔΦϖϨʔγϣϯΛ
    3BLFͰ࣮ݱ ɾSBLF
    EFQMPZ
    σϓϩΠͷҰ࿈ͷྲྀΕΛ࣮ߦ
    ɾSBLF
    EPDLFS
    ։ൃ؀ڥͷEPDLFSΛىಈ
    ɾSBLF
    EC
    
    
    
    
    
    
    
    %#εΩʔϚͷߋ৽

28. 28.

    ͜Ε͘Β͍΍Δͱɺ
    ʮ͜ΕͳΜ͔։ൃग़དྷΔΜ͡ΌͶʁʯ
    ײ͕ৢ੒͞ΕΔ

29. 29.

    ೔ʑ։ൃӡ༻͢Δٕज़͸ΑΓྑ͍΋ͷΛબͼ͍ͨ ։ൃ͕ग़དྷΔঢ়ଶʹͳͬͨͱͯ͠΋
    ָ؍తͳঢ়گͰ͸ͳ͍ w1FSMΛ࢖͍ଓ͚Δ৔߹ɺ࠷৽ͷઃܭ΍ɺϞδϡʔϧΛར༻͢Δػձ ͸ͳ͍
    wϝϯςφ͕ݮΔͱ͍͏͜ͱ͸ɺকདྷతʹ͸ةػతঢ়گΛট͘Մೳੑ͕ ͋Δ

30. 30.

    /FYU4UFQ
    (PMBOH

31. 31.

    8IZ 3VTUͱൺ΂ͯ৘ใྔ͕ଟ͍͜ͱ΍ɺ
    ग़དྷΔ͜ͱͷࠩҟ͕গͳ͍ wੈքతʹීٴͨ͠എܠ͕͋Γɺ೔ຊޠͷ৘ใ΋๛෋Ͱ͋Δ
    wՄൖੑ͕ඇৗʹߴ͍ͨΊɺӡ༻4IFMMͷஔ͖׵͑ʹద͍ͯ͠Δ
    wϗεςΟϯά͸αʔό͕঎ࡐͳͷͰɺςετͷͳ͍πʔϧ͸࢖͍ͨ͘ ͳ͍
    wงғؾͰ͍͍ͩͨ ߴ଎ʹಈ͘

32. 32.

    ϑϨʔϜϫʔΫͷબ୒ طଘͷॲཧ͕ඇৗʹγϯϓϧͰ͋ΔͨΊ &DIPΛબ୒ͨ͠ wখ͞ͳϓϩδΣΫτͰ3FWFMͱ&DIPΛൺֱ։ൃͨ͠
    w3FWFM͸όονॲཧͳͲ΋αϙʔτ͓ͯ͠Γɺ3BJMTͬΆ͞͸͋ͬͨ ͕ɺ֮͑Δ͜ͱ΋ଟ͍
    w&DIP͸࣮૷͕ബ͘ɺϛυϧ΢ΣΞ͕ॻ͖΍͍͢ɺ͋Δఔ౓εΫϦϓ ςΟϯά͕ඞཁͳ͜ͱͰϝϯόʔͷ(PMBOHͷशಘʹ΋ͪΐ͏Ͳྑ͍ ϘϦϡʔϜʹࢥ͑ͨ

33. 33.

    ࠔ͍ͬͯΔ͜ͱ (PMBOHͰ03.͸݁ߏͭΒ͍ w42-ΛͳΔ΂͘ॻ͖ͨ͘ͳ͔ͬͨͷͰɺHPSNΛબ୒ͨ͠
    w"DUJWF3FDPSEͰҭͬͨͷͰɺϦϨʔγϣϯͷख͕ؒ݁ߏͭΒ͍
    w3FMBUFE΍1SFMPBEͳͲϦϨʔγϣϯઌͷϨίʔυΛऔಘ͢Δํ๏͕ ෳ਺͋ͬͯɺ(PMBOHͬΆ͘ͳ͍
    wϞσϧͷҾ਺͕੩తܕ෇͚ͳͨΊѻ͍ͮΒ͍͜ͱ͔Βɺ$POUSPMMFS͕ %#ʹؔ৺Λ࣮࣋ͭ૷͕ੈͷதʹଟ͍

34. 34.

    CVU
    ͔͠͠

35. 35.

    ݁Ռͱͯ͠গͮͭ͠ΠϯϑϥνʔϜʹ
    (PMBOH͕ࠜ෇͖ॳΊɺ
    ςετΛॻ͘श׳΋͍͖ͭͯͨ

36. 36.

    ࠷ޙʹ wܧଓత։ൃ͕Մೳͳঢ়گ͕࡞ΕΔɺηΩϡϦςΟతͳ ཁ͕݅ͳ͚Ε͹ແཧʹόʔδϣϯΛ্͛Δඞཁ͸ͳ͍
    wࡢࠓͷݴޠͷݯྲྀ͸1FSMʹ͋Δͱײ͡Δ͘Β͍1FSMʹ ͸Ϟδϡʔϧॆ࣮ͯ͠ΔͷͰࠓ෩ʹ΋ͳΕΔ
    w/FYU4UFQ͸ྲྀߦΓ͚ͩͰͳ͘ɺνʔϜϚονϯά΋ ߟ͑ͨબ୒Λ͠Α͏

37. 37.

    ܅΋ϖύϘͰಇ͔ͳ͍͔ʁ ࠷৽ͷ࠾༻৘ใΛνΣοΫˠ !QC@SFDSVJU