OpenRheinRuhr: The Renaissance of Perl

Perl ist alt und riecht schon leicht modrig. Das denken auf jeden Fall die Personen, die sich schon länger nicht mehr mit Perl beschäftigt haben. Dabei hat sich in den letzten Jahren einiges -- auch innerhalb der Perl-Community -- getan. Dieser Vortrag stellt einige dieser Neuerungen vor.

Perl ist unleserlich! Das kann man machen, (muss|sollte) man aber nicht.
Perl ist bei Perl 5 stehen geblieben. Die Sprache heißt Perl5 und ist in der Version 18.x veröffentlicht (Perl5 18.x kommt im Mai 2013 heraus).
Perl5 + Web = CGI.pm. Ja, vor über 10 Jahren. Heute benutzt man andere Techniken.
Das Objektsystem in Perl5 ist so umständlich. Ein Elch und sein Gefolge kann helfen!
Das Bauen und Ausliefern von Perl5-Paketen ist umständlich. Nicht wenn man seine Tools kennt.

Diese fünf Punkte zeigen, dass sich in den letzten Jahren einiges getan hat. Ich möchte den Zuhörern diese Änderungen zeigen und zum Einsatz der Features und Pakete ermuntern.

Transcript

1. Renée Bäcker · Perl-Services.de reb@perl-services.de
7. http://www.mdk.me.uk/community/perl5/surf-raptor/
8. CC-BY Oosoom / http://de.wikipedia.org/wiki/Datei:Deritend_Car_Park.jpg
10. Perl@ORR13
11. Beginnen wir mit der Reise...
12. Quelle: http://www.dagolden.com/wp-content/uploads/2012/11/Perl-Release-History-2012-10-31-2.png
13. Perl 5.18.1
14. Änderungen seit Perl 5.8.x • Verbesserte Unicode-Unterstützung – Unicode 6.2 – Bessere Unterstützung in Regulären Ausdrücken • Regex-Engine komplett neu geschrieben • Geschwindigkeitsverbesserungen • Smart-Match • Immer weniger „große“ Änderungen
16. DER Grund für die Verwendung von Perl
17. 28.104 Distributionen 123.870 Module
18. Entwicklung Uploads
24. 28.104 Distributionen 123.870 Module Installation
26. Bei älteren Perls?
27. Ohne root?
29. cpanminus
30. cpanm
31. Keine Abhängigkeiten
32. Pure Perl
33. local::lib
34. $ cpanm Mojolicious --> Working on Mojolicious
35. $ cpanm Mojolicious --> Working on Mojolicious Fetching http://www.cpan.org/authors/id/A/AM/AMS/Mojolicious-4.26.tar.gz
36. $ cpanm Mojolicious --> Working on Mojolicious Fetching http://www.cpan.org/authors/id/A/AM/AMS/Mojolicious-4.26.tar.gz Configuring Mojolicious-4.26 ... OK
37. $ cpanm Mojolicious --> Working on Mojolicious Fetching http://www.cpan.org/authors/id/A/AM/AMS/Mojolicious-4.26.tar.gz Configuring Mojolicious-4.26 ... OK Building and testing Mojolicious-4.26 ... OK
38. $ cpanm Mojolicious --> Working on Mojolicious Fetching http://www.cpan.org/authors/id/A/AM/AMS/Mojolicious-4.26.tar.gz Configuring Mojolicious-4.26 ... OK Building and testing Mojolicious-4.26 ... OK Successfully installed Mojolicious-4.26 (upgraded from 4.23) 1 distribution installed
39. http://cpanmin.us
40. curl -L http://cpanmin.us > cpanm
41. curl -L http://cpanmin.us | perl - --self-upgrade
42. Perl 5.8.8
43. Perl 5.8.8 Perl 5.14.2
44. Perl 5.8.8 Perl 5.14.2
45. plenv
46. plenv install 5.14.2
47. 5.14.2
48. plenv install 5.18.0
49. 5.14.0
50. .plenv_version PLENV_VERSION
51. $ cat community/.plenv-version 5.18.0 $ cat community/test.pl #!/usr/bin/perl use strict; use warnings; use feature 'say'; say $]; $ perl community/test.pl 5.018000
52. $ cat .plenv-version 5.14.0 $ cat test.pl #!/usr/bin/perl use strict; use warnings; use feature 'say'; say $]; $ perl test.pl 5.014000
53. $ cat community/.plenv-version 5.18.0 $ cat community/test.pl #!/usr/bin/perl use strict; use warnings; use feature 'say'; say $]; $ PLENV_VERSION=5.14.0 \ perl community/test.pl 5.014000
54. 5.14.0 5.18.0 5.19.3
55. $ plenv exec-all perl test.pl 5.14.0 ========== 5.014000 5.18.0 ========== 5.018000 5.19.3 ========== 5.019003
57. plenv migrate-modules 5.14.0 5.19.3
58. Module schreiben
59. … nach CPAN Standards
60. Jede Menge Code und Text … den man nicht schreiben sollte
61. • Basistests • README • Lizenz • Versionsangaben • MANIFEST • uvm
63. Module::Starter
64. Changes ignore.txt lib/My/Module.pm Makefile.PL MANIFEST README t/00-load.t t/boilerplate.t t/manifest.t t/pod-coverage.t t/pod.t
65. Changes ignore.txt lib/My/Module.pm Makefile.PL MANIFEST README t/00-load.t t/boilerplate.t t/manifest.t t/pod-coverage.t t/pod.t
66. Dist::Zilla
67. Maximum overkill for Perl authors dzil.org
68. $ dzil setup What's your name? Renee Baecker What's your email address? github@renee-baecker.de Who, by default, holds the copyright on your code? [Renee Baecker]: What license will you use by default (Perl_5, BSD, etc.)? [Perl_5]: Do you want to enter your PAUSE account details? [y/N]: config.ini file created!
69. $ dzil new ORR
70. $ dzil new ORR [DZ] making target dir /home/reneeb/ORR [DZ] writing files to /home/reneeb/ORR [DZ] dist minted in ./ORR $ tree ORR/ ORR/ ├── dist.ini └── lib └── ORR.pm 1 directory, 2 files
71. $ dzil new ORR [DZ] making target dir /home/reneeb/ORR [DZ] writing files to /home/reneeb/ORR [DZ] dist minted in ./ORR $ tree ORR/ ORR/ ├── dist.ini └── lib └── ORR.pm 1 directory, 2 files
72. dist.ini
73. $ dzil build
74. $ tree ORR-0.001 ORR-0.001 ├──dist.ini ├──lib │ └──ORR.pm ├──LICENSE ├──Makefile.PL ├──MANIFEST ├──META.yml └── README
75. $ dzil test
76. $ dzil release
77. Plugins / Bundles
78. dist.ini
79. name = ORR author = Renee Baecker <github@renee-baecker.de> license = Artistic_2_0 copyright_holder = Renee Baecker copyright_year = 2013 version = 0.001 [@Basic]
80. name = ORR author = Renee Baecker <github@renee-baecker.de> license = Artistic_2_0 copyright_holder = Renee Baecker copyright_year = 2013 version = 0.001 [@Basic] [@Git]
81. name = ORR author = Renee Baecker <github@renee-baecker.de> license = Artistic_2_0 copyright_holder = Renee Baecker copyright_year = 2013 version = 0.001 [@Basic] [@Git] [AutoPrereqs]
82. name = ORR author = Renee Baecker <github@renee-baecker.de> license = Artistic_2_0 copyright_holder = Renee Baecker copyright_year = 2013 version = 0.001 [@Basic] [@Git] [AutoPrereqs] [UploadToCPAN]
83. name = ORR author = Renee Baecker <github@renee-baecker.de> license = Artistic_2_0 copyright_holder = Renee Baecker copyright_year = 2013 version = 0.001 [@Basic] [@Git] [AutoPrereqs] [UploadToCPAN] [PodWeaver]
84. name = ORR author = Renee Baecker <github@renee-baecker.de> license = Artistic_2_0 copyright_holder = Renee Baecker copyright_year = 2013 version = 0.001 [@Basic] [@Git] [AutoPrereqs] [UploadToCPAN] [PodWeaver] [Test::Perl::Critic]
85. $ dzil authordeps | cpanm
86. ORR::Person
87. ORR::Person Objektorientierung
89. Standard Perl5-OO • Nachträglich eingebaut • Kann manche Paradigmen nicht erfüllen • Flexibel (zu flexibel?!?) • Viel Schreibarbeit bleibt beim Autor hängen
90. TIMTOWTDI
92. Moose
93. TIMTOWTDI BSCINABTE
94. package ORR::Person; use Moose;
95. package ORR::Person; use Moose; has 'lastname'; has 'firstname';
96. package ORR::Person; use Moose; has 'lastname' => (is => 'ro', isa => 'Str' ); has 'firstname' => (is => 'ro', isa => 'Str' );
97. use ORR::Person; my $person = ORR::Person->new( firstname => 'Renee', lastname => 'Baecker', );
98. use ORR::Person; my $person = ORR::Person->new( firstname => 'Renee', lastname => 'Baecker', ); print $person->firstname;
99. package ORR::Speaker; use Moose; extends 'ORR::Person'; has 'talks' => (is => 'rw', isa => 'ArrayRef' ); has 'email' => (is => 'rw', isa => 'Str' );
100. use ORR::Speaker; my $speaker = ORR::Speaker->new( firstname => 'Renee', lastname => 'Baecker', talks => [ 'The Renaissance of Perl', ], ); $speaker->email( 'reb@perl-services.de' );
101. Validierung von Daten
102. use Moose::Util::TypeConstraints;
103. use Moose::Util::TypeConstraints; use Regexp::Common qw(Email::Address);
104. use Moose::Util::TypeConstraints; use Regexp::Common qw(Email::Address); subtype EMail => as 'Str' => where { /^$RE{Email}{Address}$/ };
105. use Moose::Util::TypeConstraints; use Regexp::Common qw(Email::Address); subtype EMail => as 'Str' => where { /^$RE{Email}{Address}$/ }; has 'email' => (is => 'rw', isa => 'EMail');
106. use ORR::Speaker; my $speaker = ORR::Speaker->new( firstname => 'Renee', lastname => 'Baecker', talks => [ 'The Renaissance of Perl', ], ); $speaker->email( 'reb@perl-services.de' ); OK
107. use ORR::Speaker; my $speaker = ORR::Speaker->new( firstname => 'Renee', lastname => 'Baecker', talks => [ 'The Renaissance of Perl', ], ); $speaker->email( 'reb@perl-services.de@orr' ); FAIL
109. sub buy_ticket { my ($self, $type, $day, $online) = @_; # … }
110. sub buy_ticket { my ($self, $type, $day, $online) = @_; # … }
111. sub buy_ticket { my ($self, $type, $day, $online) = @_; # … }
112. Methoden-Signaturen
113. MooseX::Method::Signatures Method::Signatures Kavorka
114. method buy_ticket { # … }
115. method buy_ticket ( Str :$type = 'Visitor', DateTime :$date!, Bool :$online ) { # ... }
116. method buy_ticket ( Str :$type = 'Visitor', DateTime :$date!, Bool :$online ) { say "This is a $type ticket"; }
117. buy_ticket( type => 'Sponsor', date => '23.08.2013', );
118. buy_ticket( type => 'Sponsor', date => '23.08.2013', online => 1, );
119. buy_ticket( type => 'Sponsor', date => '23.08.2013', ); FAIL
120. Typumwandlungen
121. DD.MM.YYYY DateTime →
122. class_type 'DateTime' => {class => 'DateTime'}; coerce 'DateTime' => from 'Str' => via { my ($day, $month, $year) = split /\./; DateTime->new( day => $day, month => $month, year => $year, ); };
123. method buy_ticket ( Str :$type = 'Visitor', DateTime :$date! does coerce, Bool :$online ) { say "This is a $type ticket"; }
124. buy_ticket( type => 'Sponsor', date => '23.08.2013', ); FAIL
125. buy_ticket( type => 'Sponsor', date => '23.08.2013', ); OK
126. Webentwicklung
127. Web + Perl = CGI.pm??
129. Catalyst CGI::Application Dancer
130. Mojolicious
131. All in One
132. Mojolicious::Lite / Mojolicious
133. Einzeiler
134. use Mojolicious::Lite; get '/' => sub { my $self = shift; $self->render( text => 'hello world' ); }; app->start;
135. $ morbo orr.psgi [Sun Aug 25 07:30:44 2013] [info] Listening at "http://*:3000". Server available at http://127.0.0.1:3000.
136. $ wget --quiet -O - http://localhost:3000 hello world
137. get '/event/:name' => sub { my $self = shift; my $name = $self->param('name'); $self->render( text => "hello $name" ); };
138. $ wget --quiet -O - http://localhost:3000/event/orr hello orr
139. get '/user/:name' => sub { my $self = shift; $self->render( 'user' ); }; __DATA__ @@user.html.ep <html><body>hello <%= $name %></body></html>
140. $ wget --quiet -O - http://localhost:3000/user/reneeb <html><body>hello reneeb</body></html>
141. get '/event/:name' => sub { my $self = shift; my $name = $self->param('name'); $self->render( text => "hello $name" ); };
142. get '/event/:name' => sub { my $self = shift; my $name = $self->param('name'); $self->render( json => {txt =>"hello $name"} ); };
143. $ wget --quiet -O - http://localhost:3000/event/orr {"txt":"hello orr"}
144. Hooks Bridges
145. $ perl -Mojo -E '
146. $ perl -Mojo -E ' > say g( > "http://programm.openrheinruhr.de/2013/events/177.de.html"
147. $ perl -Mojo -E ' > say g( > "http://programm.openrheinruhr.de/2013/events/177.de.html" > ->dom("h2")
148. $ perl -Mojo -E ' > say g( > "http://programm.openrheinruhr.de/2013/events/177.de.html" > ->dom("h2") > ->text
149. $ perl -Mojo -E ' > say g( > "http://programm.openrheinruhr.de/2013/events/177.de.html" > ->dom("h2") > ->text > ' lecture: The Renaissance of Perl
150. $ perl -Mojo -E ' say g("http://localhost:3000/event/orr")->json->{txt}' hello orr
151. Plack
152. Everything plugs into Plack
153. CGI, Mason, Dancer, Catalyst, Mojolicious, ...
154. mod_cgi, FastCGI, nginx, Starman, lighttpd
155. Plack::Middleware
156. Compress
157. E-Tags
158. Authentifizierung
159. Plack::Middleware::Debug
160. plackup -e 'enable "Debug", panels =>["Profiler::NYTProf"];' orr.psgi
162. Regex
163. … in 5.10 komplett neu
164. my $date = '2013-08-25'; $date =~ m{ (\d{4})- # year (\d{2})- # month (\d{2}) # day }x; say sprintf “today is day %s of month %s in year %s”, $3, $2, $1;
165. my $date = '2013-08-25'; $date =~ m{ (\d{4})- # year ( (\d{2}) | # month nr (\w+) # monthname )- (\d{2}) # day }x; say sprintf “today is day %s of month %s in year %s”, $3, $2, $1;
166. • Nummern sind Schall und Rauch, Namen bleiben ;-) • Syntax (?<name>...) • Werte landen im Hash %+
167. my $date = '2013-08-25'; $date =~ m{ (?<year>\d{4})- (?<month> (\d{2}) | (\w+) )- (?<day>\d{2}) }x; say sprintf “today is day %s of month %s in year %s”, $+{day}, $+{month}, $+{year};
168. Regex-Debugging
169. Live-Demo "http://openrheinruhr.de" =~ m{https?://(?:www\.)?(openrheinruhr)\.(?<tld>de)}
170. Fragen?
171. ($/,$%,$.,$-)=(gmtime($^T+=86400)) [3..6]while($/-12)/4|$--2||++$"&printf 1900+$.."-%02d-%02d\n",++$%,$/==8?8:$/-7
174. ? ? ? Nach ein paar Monaten...
181. Code-Layout Namenskonventionen Werte und Ausdrücke Variablen Kontrollstrukturen Dokumentation Fest eingebaute Funktionen Unterroutinen I/O Referenzen Reguläre Ausdrücke Fehlerbehandlung Kommandozeilen-Verarbe itung Objekte Klassenhierarchien Module Testen und Debugging Vermischtes
182. Warum?
188. Tests
189. Hooks
190. Severity Themes Verbose Include Exclude