Herokuで学ぶ、初めてのPerl

YAPC::Asia 2013

1. )FSPLVͰֶͿɺॳΊͯͷ1FSM !BLJZN :"1$"TJB
   
2. NF w!BLJZN wIUUQBLJZNDPN wେֶੜ w๺ւಓ͔Βདྷ·ͨ͠ w4,:"3$༷ ͋Γ͕ͱ͏͍͟͝·͢
3. TRMJLBUTVEPOPSH
4. ର৅ wॳ৺ऀ޲͚ηογϣϯ wͰ͖Δ͚ͩஸೡʹղઆ͠·͢ w΢ΣϒΞϓϦΛॻ͖ͨͯ͘1FSMΛ࢝Ίͨ
5. ໨ࢦ͢΋ͷ wϑΟʔϦϯάͰΞϓϦΛ࡞ͬͯΈΔ wखݩͰಈ͔͢ w)FSPLVʹσϓϩΠɺ֎෦΁ެ։ wྲྀΕΛ֮͑Δ
6. ݸਓͰ࡞Δ ΢ΣϒΞϓϦͷߏ੒
7. 4FSWFS
8. "QQMJDBUJPO
   4FSWFS 4UBSNBO
   4UBSMFU OHJOY w JQUBCMFT w 42-
   4FSWFS w  4FSWFS
9. "QQMJDBUJPO
   4FSWFS 4UBSNBO
   4UBSMFU OHJOY w JQUBCMFT w 42-
   4FSWFS w  8FC
   "QQMJDBUJPO 4FSWFS
10. ࣗ෼Ͱॻ͍ͨ΢ΣϒΞϓϦΛ ެ։͍͚ͨͩ͠ͳͷʹ
    
11. Ұํɺ)FSPLVͰ͸
12. 8FC
    "QQMJDBUJPO )FSPLV
13. ΢ΣϒΞϓϦ͚ͩΛ ॻ͚ͩ͘
14. ར఺ wඞཁͳͱ͜Ζ͚ͩ wແྉͰ͋Δఔ౓ͷΞϓϦΛެ։͢Δ͜ͱ ͕Ͱ͖Δ
15. ΢ΣϒΞϓϦΛॻ͘
16. 8"' w8FC
    "QQMJDBUJPO
    'SBNFXPSL w$BUBMZTU
    .PKPMJDJPVT w͜͜Ͱ͸"NPOΛ࢖͍·͢ w֮͑Δ͜ͱ͕গͳ͍ɺίʔυ͕খ͍͞
17. "NPOͷಛ௃ wͱͯ΋ܰྔ wηΩϡϦςΟ wσϑΥϧτͰ$43'ରࡦ wσϑΥϧτͰ࠾༻͍ͯ͠ΔςϯϓϨʔτ Τϯδϯ͕
    5FYU9TMBUF
18. ؀ڥߏங
19. νϡʔτϦΞϧ wͦΕͰ͸΢ΣϒΞϓϦΛ࡞Γ·͠ΐ͏
20. 
    DQBONΛΠϯετʔϧ͢Δ $ curl -L http://cpanmin.us | ↩ perl - App::cpanminus ΋͘͠͸ $ curl -L http://cpanmin.us | ↩ perl - --sudo App::cpanminus
21. 
    DBSUPOΛΠϯετʔϧ͢Δ $ cpanm Carton
22. $ cpanm Amon2 $ amon2-setup.pl MyApp $ carton install $ carton exec -- plackup app.psgi
23. $ cpanm Amon2 $ amon2-setup.pl MyApp $ carton install $ carton exec -- plackup app.psgi εέϧτϯΛ࡞੒͢Δ
24. $ cpanm Amon2 $ amon2-setup.pl MyApp $ carton install $ carton exec -- plackup app.psgi ґଘϞδϡʔϧΛΠϯετʔϧ
25. $ cpanm Amon2 $ amon2-setup.pl MyApp $ carton install $ carton exec -- plackup app.psgi ΞϓϦΛىಈ
26. w"NPOಉࠝͷεΫϦϓτ wεέϧτϯΛ࡞੒͢Δ͜ͱ͕Ͱ͖Δ wجຊతʹ͸͜ͷεΫϦϓτΛར༻ͯ͠Ξ ϓϦΛ࡞Γ࢝ΊΔ BNPOTFUVQQM
27. ΞϓϦͷߏ੒
28. . ├── Build.PL ├── app.psgi ├── config │ ├── development.pl │ ├── production.pl │ └── test.pl ├── cpanfile ├── db ├── lib │ ├── MyApp │ │ ├── DB │ │ │ ├── Row.pm │ │ │ └── Schema.pm │ │ ├── DB.pm │ │ ├── Web │ │ │ ├── Dispatcher.pm │ │ │ ├── View.pm │ │ │ └── ViewFunctions.pm │ │ └── Web.pm │ └── MyApp.pm ├── sql │ ├── mysql.sql │ └── sqlite.sql ├── static │ ├── 404.html │ ├── 500.html │ ├── 502.html │ ├── 503.html │ ├── 504.html │ ├── bootstrap │ ├── css │ │ └── main.css │ ├── img │ ├── js │ │ ├── es5-shim.min.js │ │ ├── jquery-1.10.0.min.js │ │ ├── main.js │ │ ├── micro-location.js │ │ ├── micro_dispatcher.js │ │ ├── micro_template.js │ │ ├── sprintf-0.7-beta1.js │ │ └── strftime.js │ └── robots.txt ├── t │ ├── 00_compile.t │ ├── 01_root.t │ ├── 02_mech.t │ ├── 03_assets.t │ ├── 06_jslint.t │ └── Util.pm ├── tmpl │ ├── include │ │ ├── layout.tt │ │ └── pager.tt │ └── index.tt └── xt 19 directories, 52 files
29. . ├── Build.PL ├── app.psgi ├── config │ ├── development.pl │ ├── production.pl │ └── test.pl ├── cpanfile ├── db ├── lib │ ├── MyApp │ │ ├── DB │ │ │ ├── Row.pm │ │ │ └── Schema.pm │ │ ├── DB.pm │ │ ├── Web │ │ │ ├── Dispatcher.pm │ │ │ ├── View.pm │ │ │ └── ViewFunctions.pm │ │ └── Web.pm │ └── MyApp.pm ├── sql │ ├── mysql.sql │ └── sqlite.sql ├── static │ ├── 404.html │ ├── 500.html │ ├── 502.html │ ├── 503.html │ ├── 504.html │ ├── bootstrap │ ├── css │ │ └── main.css │ ├── img │ ├── js │ │ ├── es5-shim.min.js │ │ ├── jquery-1.10.0.min.js │ │ ├── main.js │ │ ├── micro-location.js │ │ ├── micro_dispatcher.js │ │ ├── micro_template.js │ │ ├── sprintf-0.7-beta1.js │ │ └── strftime.js │ └── robots.txt ├── t │ ├── 00_compile.t │ ├── 01_root.t │ ├── 02_mech.t │ ├── 03_assets.t │ ├── 06_jslint.t │ └── Util.pm ├── tmpl │ ├── include │ │ ├── layout.tt │ │ └── pager.tt │ └── index.tt └── xt 19 directories, 52 files MJC.Z"QQ8FC%JTQBUDIFSQN σΟεύονϟʔ
30. package MyApp::Web::Dispatcher; use strict; use warnings; use utf8; use Amon2::Web::Dispatcher::Lite; any '/' => sub { my ($c) = @_; return $c->render('index.tt'); }; post '/account/logout' => sub { my ($c) = @_; $c->session->expire(); return $c->redirect('/'); }; 1;
31. . ├── Build.PL ├── app.psgi ├── config │ ├── development.pl │ ├── production.pl │ └── test.pl ├── cpanfile ├── db ├── lib │ ├── MyApp │ │ ├── DB │ │ │ ├── Row.pm │ │ │ └── Schema.pm │ │ ├── DB.pm │ │ ├── Web │ │ │ ├── Dispatcher.pm │ │ │ ├── View.pm │ │ │ └── ViewFunctions.pm │ │ └── Web.pm │ └── MyApp.pm ├── sql │ ├── mysql.sql │ └── sqlite.sql ├── static │ ├── 404.html │ ├── 500.html │ ├── 502.html │ ├── 503.html │ ├── 504.html │ ├── bootstrap │ ├── css │ │ └── main.css │ ├── img │ ├── js │ │ ├── es5-shim.min.js │ │ ├── jquery-1.10.0.min.js │ │ ├── main.js │ │ ├── micro-location.js │ │ ├── micro_dispatcher.js │ │ ├── micro_template.js │ │ ├── sprintf-0.7-beta1.js │ │ └── strftime.js │ └── robots.txt ├── t │ ├── 00_compile.t │ ├── 01_root.t │ ├── 02_mech.t │ ├── 03_assets.t │ ├── 06_jslint.t │ └── Util.pm ├── tmpl │ ├── include │ │ ├── layout.tt │ │ └── pager.tt │ └── index.tt └── xt 19 directories, 52 files DPOpH QM 1-"$,@&/7؀ڥม਺ʹΑͬͯDPOpH͕ ੾ΓସΘΔ w खݩͰQMBDLVQͨ͠ͱ͖ʹ͸ EFWFMPQNFOU w σϓϩΠͯ͠ಈ͔͍ͯ͠Δͱ͖ʹ͸
    QSPEVDUJPO
32. use File::Spec; use File::Basename qw(dirname); my $basedir = File::Spec->rel2abs(File::Spec->catdir(dirname(__FILE__), '..')); my $dbpath = File::Spec->catfile($basedir, 'db', 'development.db'); +{ 'DBI' => [ "dbi:SQLite:dbname=$dbpath", '', '', +{ sqlite_unicode => 1, } ], };
33. . ├── Build.PL ├── app.psgi ├── config │ ├── development.pl │ ├── production.pl │ └── test.pl ├── cpanfile ├── db ├── lib │ ├── MyApp │ │ ├── DB │ │ │ ├── Row.pm │ │ │ └── Schema.pm │ │ ├── DB.pm │ │ ├── Web │ │ │ ├── Dispatcher.pm │ │ │ ├── View.pm │ │ │ └── ViewFunctions.pm │ │ └── Web.pm │ └── MyApp.pm ├── sql │ ├── mysql.sql │ └── sqlite.sql ├── static │ ├── 404.html │ ├── 500.html │ ├── 502.html │ ├── 503.html │ ├── 504.html │ ├── bootstrap │ ├── css │ │ └── main.css │ ├── img │ ├── js │ │ ├── es5-shim.min.js │ │ ├── jquery-1.10.0.min.js │ │ ├── main.js │ │ ├── micro-location.js │ │ ├── micro_dispatcher.js │ │ ├── micro_template.js │ │ ├── sprintf-0.7-beta1.js │ │ └── strftime.js │ └── robots.txt ├── t │ ├── 00_compile.t │ ├── 01_root.t │ ├── 02_mech.t │ ├── 03_assets.t │ ├── 06_jslint.t │ └── Util.pm ├── tmpl │ ├── include │ │ ├── layout.tt │ │ └── pager.tt │ └── index.tt └── xt 19 directories, 52 files UNQM ςϯϓϨʔτ $c->render('index.tt');
34. "NPO૯͟Β͍
35. ஌͓ͬͯ͘ͱྑ͍΋ͷ wίϯςΩετ •$c •use Amon2::Declare; •c()
36. SFRVFTU •$c->req w"NPO8FC3FRVFTU •$c->req->param('foo')
37. SFTQPOTF •$c->render() •$c->create_response() •$c->res_404() •$c->redirect()
38. package MyApp::Web::Dispatcher; use strict; use warnings; use utf8; use Amon2::Web::Dispatcher::Lite; any '/' => sub { my ($c) = @_; return $c->render('index.tt'); }; post '/account/logout' => sub { my ($c) = @_; $c->session->expire(); return $c->redirect('/'); }; 1; SFTQPOTFΛฦ͢
39. SFRVFTUΛड͚औͬͯ SFTQPOTFΛฦ͢
40. ͜Ε͚͓͚֮ͩ͑ͯ͹ ͳΜͱ͔ͳΓ·͢
42. ϑΟʔϦϯάͰ ΢ΣϒΞϓϦΛॻ͘
43. 
    (ZB[P
44. 
    (ZB[P wHZB[PDPN wը૾ڞ༗αʔϏε wʮॳΊͯʯʹ͸ͱͯ΋ྑ͍୊ࡐ
45. $ amon2-setup.pl Gyazo εέϧτϯΛ࡞੒͢Δ
46. wεΩʔϚఆٛ wTRMTRMJUFTRM wTRMQHTRM
47. CREATE TABLE IF NOT EXISTS image ( id INTEGER NOT NULL PRIMARY KEY, filename VARCHAR(64), src TEXT, ctime INT UNSIGNED NOT NULL, UNIQUE (filename) ); TRMTRMJUFTRM
48. CREATE TABLE IF NOT EXISTS image ( id SERIAL PRIMARY KEY, filename VARCHAR(64), src BYTEA, ctime INT NOT NULL, UNIQUE (filename) ); TRMQHTRM
49. package Gyazo::DB::Schema; use strict; use warnings; use utf8; use Teng::Schema::Declare; base_row_class 'Gyazo::DB::Row'; table { name 'image'; pk 'id'; columns qw(id filename src ctime); }; 1; MJC(ZB[P%#4DIFNBQN
50. wVQMPBE
    ʹΞΫηε wJNBHFEBUBͱͯ͠ը૾Λड͚औΔ wը૾ͷϑΥʔϚοτ͸1/(ͷΈରԠ wΞοϓϩʔυͨ͠ը૾ͷ63-Λฦ͢
51. MJC(ZB[P8FC%JTQBUDIFSQN
52. use DBD::Pg; use Digest::MD5 qw/md5_hex/; post '/upload' => sub { my ($c) = @_; my $imagedata = $c->req->upload('imagedata') or die; # アップロードできる画像は1MB未満とする die unless $imagedata->size < 1024 * 1024; # 画像データを読み込む my $src = do { open my $fh, '<:raw', $imagedata->path or die $!; local $/; <$fh>; }; # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), }); my $url = $c->req->base . $filename; return $c->create_response(200, [], [$url]); };
53. use DBD::Pg; use Digest::MD5 qw/md5_hex/; post '/upload' => sub { my ($c) = @_; my $imagedata = $c->req->upload('imagedata') or die; # アップロードできる画像は1MB未満とする die unless $imagedata->size < 1024 * 1024; # 画像データを読み込む my $src = do { open my $fh, '<:raw', $imagedata->path or die $!; local $/; <$fh>; }; # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), });
54. use DBD::Pg; use Digest::MD5 qw/md5_hex/; post '/upload' => sub { my ($c) = @_; my $imagedata = $c->req->upload('imagedata') or die; # アップロードできる画像は1MB未満とする die unless $imagedata->size < 1024 * 1024; # 画像データを読み込む my $src = do { open my $fh, '<:raw', $imagedata->path or die $!; local $/; <$fh>; }; # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), }); perldoc Plack::Request::Upload
55. post '/upload' => sub { my ($c) = @_; my $imagedata = $c->req->upload('imagedata') or die; # アップロードできる画像は1MB未満とする die unless $imagedata->size < 1024 * 1024; # 画像データを読み込む my $src = do { open my $fh, '<:raw', $imagedata->path or die $!; local $/; <$fh>; }; # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), }); my $url = $c->req->base . $filename; return $c->create_response(200, [], [$url]); };
56. post '/upload' => sub { my ($c) = @_; my $imagedata = $c->req->upload('imagedata') or die; # アップロードできる画像は1MB未満とする die unless $imagedata->size < 1024 * 1024; # 画像データを読み込む my $src = do { open my $fh, '<:raw', $imagedata->path or die $!; local $/; <$fh>; }; # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), }); my $url = $c->req->base . $filename; return $c->create_response(200, [], [$url]); }; ΠσΟΦϜ
    $imagedata->pathͷ಺༰ΛಡΈࠐΉ
57. post '/upload' => sub { my ($c) = @_; my $imagedata = $c->req->upload('imagedata') or die; # アップロードできる画像は1MB未満とする die unless $imagedata->size < 1024 * 1024; # 画像データを読み込む my $src = do { open my $fh, '<:raw', $imagedata->path or die $!; local $/; <$fh>; }; # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), }); my $url = $c->req->base . $filename; return $c->create_response(200, [], [$url]); }; ਖ਼نදݱͰ1/(ͷγάωνϟΛ൑ఆ
58. die unless $imagedata->size < 1024 * 1024; # 画像データを読み込む my $src = do { open my $fh, '<:raw', $imagedata->path or die $!; local $/; <$fh>; }; # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), }); my $url = $c->req->base . $filename; return $c->create_response(200, [], [$url]); };
59. die unless $imagedata->size < 1024 * 1024; # 画像データを読み込む my $src = do { open my $fh, '<:raw', $imagedata->path or die $!; local $/; <$fh>; }; # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), }); my $url = $c->req->base . $filename; return $c->create_response(200, [], [$url]); }; perldoc Teng
60. # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), }); my $url = $c->req->base . $filename; return $c->create_response(200, [], [$url]); };
61. # PNGであることをシグネチャで判定する die unless $src =~ /^\x89PNG\x0d\x0a\x1a\x0a/; my $filename = md5_hex($src) . '.png'; $c->db->fast_insert('image', { filename => $filename, src => [$src, {pg_type => DBD::Pg::PG_BYTEA}], ctime => time(), }); my $url = $c->req->base . $filename; return $c->create_response(200, [], [$url]); }; $c->create_reponse()ͰϨεϙϯεΛ࡞੒͠ ը૾ͷ63-Λฦ͢
62. wpMFOBNFQOH
    ʹΞΫηε wΞοϓϩʔυͨ͠ը૾ΛݟΒΕΔΑ͏ʹ wը૾͕ଘࡏ͠ͳ͚Ε͹
63. get '/{filename:.+\.png}' => sub { my ($c, $args) = @_; my $image = $c->db->single('image', { filename => $args->{filename}, }); if ($image) { return $c->create_response( 200, ['Content-Type' => 'image/png'], [$image->src] ); } else { return $c->res_404; } };
64. get '/{filename:.+\.png}' => sub { my ($c, $args) = @_; my $image = $c->db->single('image', { filename => $args->{filename}, }); if ($image) { return $c->create_response( 200, ['Content-Type' => 'image/png'], [$image->src] ); } else { return $c->res_404; } }; ਖ਼نදݱ͕࢖͑Δ
    (perldoc Router::Simple) $args->{filename}Ͱड͚औΔ͜ͱ͕Ͱ͖Δ
65. get '/{filename:.+\.png}' => sub { my ($c, $args) = @_; my $image = $c->db->single('image', { filename => $args->{filename}, }); if ($image) { return $c->create_response( 200, ['Content-Type' => 'image/png'], [$image->src] ); } else { return $c->res_404; } }; status, [headers], [body]
66. wIJTUPSZ
    ʹΞΫηε wΞοϓϩʔυͨ͠ը૾Ұཡ
67. get '/history' => sub { my ($c) = @_; my @images = $c->db->search('image', {}, { order_by => {ctime => 'DESC'}, # 降順 } ); return $c->render('history.tt' => { images => \@images, }); };
68. get '/history' => sub { my ($c) = @_; my @images = $c->db->search('image', {}, { order_by => {ctime => 'DESC'}, # 降順 } ); return $c->render('history.tt' => { images => \@images, }); }; DSFOEFS ςϯϓϨʔτ໊UU
    
    aςϯϓϨʔτม਺ 
69. [% WRAPPER 'include/layout.tt' %] <div class="row"> [%- FOR image IN images %] <div class="col-lg-4"> <a href="[% uri_for('/' ~ image.filename) %]"> <img src="[% uri_for('/' ~ image.filename) %]" width="360" height="360" /> </a> </div> [%- END %] </div> [% END %] UNQMIJTUPSZUU
70. [% WRAPPER 'include/layout.tt' %] <div class="row"> [%- FOR image IN images %] <div class="col-lg-4"> <a href="[% uri_for('/' ~ image.filename) %]"> <img src="[% uri_for('/' ~ image.filename) %]" width="360" height="360" /> </a> </div> [%- END %] </div> [% END %] UNQMIJTUPSZUU $c->render()Ͱ౉ͨ͠ςϯϓϨʔτม਺
71. [% WRAPPER 'include/layout.tt' %] <div class="row"> [%- FOR image IN images %] <div class="col-lg-4"> <a href="[% uri_for('/' ~ image.filename) %]"> <img src="[% uri_for('/' ~ image.filename) %]" width="360" height="360" /> </a> </div> [%- END %] </div> [% END %] UNQMIJTUPSZUU image.filename → $image->filename
72. [% WRAPPER 'include/layout.tt' %] <div class="row"> [%- FOR image IN images %] <div class="col-lg-4"> <a href="[% uri_for('/' ~ image.filename) %]"> <img src="[% uri_for('/' ~ image.filename) %]" width="360" height="360" /> </a> </div> [%- END %] </div> [% END %] UNQMIJTUPSZUU ~
    จࣈ࿈݁ ςϯϓϨʔτ಺
73. wෆཁͳίʔυΛऔΓআ͘ w׬੒ IUUQTHJUIVCDPNBLJZNQFSMIFSPLVFYBNQMFHZB[P •$ git add . $ git ci -m 'initial commit'
74. Ϟδϡʔϧґଘ wґଘϞδϡʔϧΛDQBOpMFʹॻ͘ w
    DBSUPO
    JOTUBMM
75. requires 'perl', '5.008001'; requires 'Amon2', '4.03'; requires 'Text::Xslate', '1.6001'; requires 'DBD::Pg' , '2.19.3'; requires 'JSON' , '2.50'; requires 'Module::Functions' , '2'; requires 'Plack::Middleware::ReverseProxy', '0.09'; requires 'Teng' , '0.18'; requires 'Test::WWW::Mechanize::PSGI' , '0'; requires 'Time::Piece' , '1.20'; on 'configure' => sub { requires 'Module::Build', '0.38'; requires 'Module::CPANfile', '0.9010'; }; on 'test' => sub { requires 'Test::More', '0.98'; }; DQBOpMF
76. खݩͰಈ͔͢ $ sqlite3 db/development.db < sql/sqlite.sql $ carton install $ carton exec -- plackup app.psgi
78. ΞϓϦΛެ։
79. )FSPLVͰ1FSM͸ ࢖͑Δʁ
80. ࠷ۙͷ1FSMʹ଍Γͳ͍Ϟϊ
    c
    )BDIJPKJQN
    ೔Ί͘ΓςοΫτʔΫ IUUQIBDIJPKJQNHJUIVCJPFOUSZQFSM@TIPSUBHFIUNM
81. ެࣜαϙʔτ͸͞Ε͍ͯ·ͤΜ͕ ࣮͸࢖͑·͢
82. εςοϓ
83. UPPMCFMU wIUUQTUPPMCFMUIFSPLVDPN •$ heroku login
84. εςοϓ
85. CVJMEQBDL wCVJMEQBDLͱ͍͏࢓૊ΈͰެࣜͰ αϙʔτ͞Ε͍ͯͳ͍ݴޠ΋ѻ͏͜ͱ͕ Ͱ͖Δ wNJZBHBXBIFSPLVCVJMEQBDLQFSM w҆৺ͷNJZBHBXB͞Μ
86. wࠓճ͸ΑΓεϜʔζʹਐΊΔΑ͏ʹ͢Δ ͨΊʹ wDBSUPO
    ରԠ wBLJZNIFSPLVCVJMEQBDLQFSMUSFF DBSUPO
87. UJQT w1FSMͷόʔδϣϯࢦఆ wQFSMWFSTJPO
    ʹॻ͘ w
    FDIP
    
    
    QFSMWFSTJPO
88. w)FSPLVʹσϓϩΠ͢Δલʹ w
    DBSUPO
    JOTUBMM 
    HJU
    BEE
    DQBOpMFTOBQTIPU 
    HJU
    DPNNJU
    N
    EFQT
89. $ heroku create --stack cedar --buildpack ↩ https://github.com/akiym/heroku-buildpack-perl.git\#carton Creating sleepy-dusk-4854... done, stack is cedar BUILDPACK_URL=https://github.com/akiym/heroku-buildpack-perl.git#carton http://sleepy-dusk-4854.herokuapp.com/ | git@heroku.com:sleepy-dusk-4854.git Git remote heroku added $ git push heroku master -----> Fetching custom git buildpack... done -----> Perl/PSGI app detected -----> Vendoring Perl Using perl 5.16.3 -----> Bootstrapping cpanm/Carton -----> Installing dependencies with Carton -----> Installing Starman -----> Discovering process types Procfile declares types -> (none) Default types for Perl/PSGI -> web -----> Compiled slug size: 20.3MB -----> Launching... done, v5 http://sleepy-dusk-4854.herokuapp.com deployed to Heroku
90. $ heroku create gyoza --stack cedar --buildpack ↩ https://github.com/akiym/heroku-buildpack-perl.git\#carton ΞϓϦͷ໊લΛࢦఆ͢Δ৔߹
91. $ heroku create --stack cedar --buildpack ↩ https://github.com/akiym/heroku-buildpack-perl.git\#carton Creating sleepy-dusk-4854... done, stack is cedar BUILDPACK_URL=https://github.com/akiym/heroku-buildpack-perl.git#carton http://sleepy-dusk-4854.herokuapp.com/ | git@heroku.com:sleepy-dusk-4854.git Git remote heroku added $ git push heroku master -----> Fetching custom git buildpack... done -----> Perl/PSGI app detected -----> Vendoring Perl Using perl 5.16.3 -----> Bootstrapping cpanm/Carton -----> Installing dependencies with Carton -----> Installing Starman -----> Discovering process types Procfile declares types -> (none) Default types for Perl/PSGI -> web -----> Compiled slug size: 20.3MB -----> Launching... done, v5 http://sleepy-dusk-4854.herokuapp.com deployed to Heroku
92. $ heroku create --stack cedar --buildpack ↩ https://github.com/akiym/heroku-buildpack-perl.git\#carton Creating sleepy-dusk-4854... done, stack is cedar BUILDPACK_URL=https://github.com/akiym/heroku-buildpack-perl.git#carton http://sleepy-dusk-4854.herokuapp.com/ | git@heroku.com:sleepy-dusk-4854.git Git remote heroku added $ git push heroku master -----> Fetching custom git buildpack... done -----> Perl/PSGI app detected -----> Vendoring Perl Using perl 5.16.3 -----> Bootstrapping cpanm/Carton -----> Installing dependencies with Carton -----> Installing Starman -----> Discovering process types Procfile declares types -> (none) Default types for Perl/PSGI -> web -----> Compiled slug size: 20.3MB -----> Launching... done, v5 http://sleepy-dusk-4854.herokuapp.com deployed to Heroku
93. $ heroku create --stack cedar --buildpack ↩ https://github.com/akiym/heroku-buildpack-perl.git\#carton Creating sleepy-dusk-4854... done, stack is cedar BUILDPACK_URL=https://github.com/akiym/heroku-buildpack-perl.git#carton http://sleepy-dusk-4854.herokuapp.com/ | git@heroku.com:sleepy-dusk-4854.git Git remote heroku added $ git push heroku master -----> Fetching custom git buildpack... done -----> Perl/PSGI app detected -----> Vendoring Perl Using perl 5.16.3 -----> Bootstrapping cpanm/Carton -----> Installing dependencies with Carton -----> Installing Starman -----> Discovering process types Procfile declares types -> (none) Default types for Perl/PSGI -> web -----> Compiled slug size: 20.3MB -----> Launching... done, v5 http://sleepy-dusk-4854.herokuapp.com deployed to Heroku
94. )FSPLVΛ࢖͏্Ͱͷ஫ҙ఺ w42-JUFΛѻ͏͜ͱ͕Ͱ͖ͳ͍ wͲ͏͢Ε͹͍͍ʁ w)FSPLVͰ͸1PTUHSF42-Λαϙʔτ ͍ͯ͠·͢
95. $ heroku addons:add heroku-postgresql Adding heroku-postgresql on sheltered-earth-3211... done, v6 (free) Attached as HEROKU_POSTGRESQL_CYAN_URL Database has been created and is available ! This database is empty. If upgrading, you can transfer ! data from another database with pgbackups:restore. Use `heroku addons:docs heroku-postgresql` to view documentation. $ heroku pg:psql HEROKU_POSTGRESQL_CYAN_URL < sql/pg.sql NOTICE: CREATE TABLE will create implicit sequence "image_image_id_seq" for serial column "image.image_id" NOTICE: CREATE TABLE / PRIMARY KEY will create implicit index "image_pkey" for table "image" NOTICE: CREATE TABLE / UNIQUE will create implicit index "image_filename_key" for table "image" CREATE TABLE
96. $ heroku addons:add heroku-postgresql Adding heroku-postgresql on sheltered-earth-3211... done, v6 (free) Attached as HEROKU_POSTGRESQL_CYAN_URL Database has been created and is available ! This database is empty. If upgrading, you can transfer ! data from another database with pgbackups:restore. Use `heroku addons:docs heroku-postgresql` to view documentation. $ heroku pg:psql HEROKU_POSTGRESQL_CYAN_URL < sql/pg.sql NOTICE: CREATE TABLE will create implicit sequence "image_image_id_seq" for serial column "image.image_id" NOTICE: CREATE TABLE / PRIMARY KEY will create implicit index "image_pkey" for table "image" NOTICE: CREATE TABLE / UNIQUE will create implicit index "image_filename_key" for table "image" CREATE TABLE
97. $ heroku addons:add heroku-postgresql Adding heroku-postgresql on sheltered-earth-3211... done, v6 (free) Attached as HEROKU_POSTGRESQL_CYAN_URL Database has been created and is available ! This database is empty. If upgrading, you can transfer ! data from another database with pgbackups:restore. Use `heroku addons:docs heroku-postgresql` to view documentation. $ heroku pg:psql HEROKU_POSTGRESQL_CYAN_URL < sql/pg.sql NOTICE: CREATE TABLE will create implicit sequence "image_image_id_seq" for serial column "image.image_id" NOTICE: CREATE TABLE / PRIMARY KEY will create implicit index "image_pkey" for table "image" NOTICE: CREATE TABLE / UNIQUE will create implicit index "image_filename_key" for table "image" CREATE TABLE
98. $ heroku addons:add heroku-postgresql Adding heroku-postgresql on sheltered-earth-3211... done, v6 (free) Attached as HEROKU_POSTGRESQL_CYAN_URL Database has been created and is available ! This database is empty. If upgrading, you can transfer ! data from another database with pgbackups:restore. Use `heroku addons:docs heroku-postgresql` to view documentation. $ heroku pg:psql HEROKU_POSTGRESQL_CYAN_URL < sql/pg.sql NOTICE: CREATE TABLE will create implicit sequence "image_image_id_seq" for serial column "image.image_id" NOTICE: CREATE TABLE / PRIMARY KEY will create implicit index "image_pkey" for table "image" NOTICE: CREATE TABLE / UNIQUE will create implicit index "image_filename_key" for table "image" CREATE TABLE
99. $ heroku addons:add heroku-postgresql Adding heroku-postgresql on sheltered-earth-3211... done, v6 (free) Attached as HEROKU_POSTGRESQL_CYAN_URL Database has been created and is available ! This database is empty. If upgrading, you can transfer ! data from another database with pgbackups:restore. Use `heroku addons:docs heroku-postgresql` to view documentation. $ heroku pg:psql HEROKU_POSTGRESQL_CYAN_URL < sql/pg.sql NOTICE: CREATE TABLE will create implicit sequence "image_image_id_seq" for serial column "image.image_id" NOTICE: CREATE TABLE / PRIMARY KEY will create implicit index "image_pkey" for table "image" NOTICE: CREATE TABLE / UNIQUE will create implicit index "image_filename_key" for table "image" CREATE TABLE
100. ΞϓϦଆͷઃఆ wIUUQTQPTUHSFTIFSPLVDPN EBUBCBTFT
     ͔Β࡞੒ͨ͠σʔλϕʔεΛ ݟΔ͜ͱ͕Ͱ͖·͢ w%#ͷDPOpHΛઃఆ͠·͢
101. +{ 'DBI' => [ "dbi:Pg:dbname=DATABASE;host=HOST;port=PORT;sslmode=require", 'USER', 'PASSWORD', +{} ], }; DPOpHQSPEVDJUPOQM
102. +{ 'DBI' => [ "dbi:Pg:dbname=DATABASE;host=HOST;port=PORT;sslmode=require", 'USER', 'PASSWORD', +{} ], }; DPOpHQSPEVDJUPOQM
103. $ git push heroku master
104. IUUQTMFFQZEVTLIFSPLVBQQDPN
105. ·ͱΊ
106. wॳΊͷҰาͱͯ͠ͷ(ZB[PΞϓϦ w)FSPLVͰ1FSMΛಈ͔͢ͷ͸؆୯ wखܰʹެ։ wࠓճ͸"NPOΛ࢖͍·͕ͨ͠ ΋ͪΖΜ.PKPMJDJPVTͰ΋ಈ͖·͢
     
107. IUUQTHJUIVCDPNBLJZNQFSMIFSPLVFYBNQMFHZB[P
108. ͋Γ͕ͱ͏͍͟͝·ͨ͠ ΞϓϦΛಈ͔ͯ͠ΈͯΘ͔Βͳ͍ͱ͜Ζ͕͋Ε͹
     !BLJZN
     ·ͰͲ͏ͧ