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
6. http://www.mdk.me.uk/community/perl5/surf-raptor/
7. CC-BY Oosoom / http://de.wikipedia.org/wiki/Datei:Deritend_Car_Park.jpg
9. Perl@FrOSCon
10. Beginnen wir mit der Reise...
11. Quelle: http://www.dagolden.com/wp-content/uploads/2012/11/Perl-Release-History-2012-10-31-2.png
12. Perl 5.18.1
13. Ä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
15. DER Grund für die Verwendung von Perl
16. 28.104 Distributionen 123.870 Module
17. Entwicklung Uploads
23. 28.104 Distributionen 123.870 Module Installation
25. Bei älteren Perls?
26. Ohne root?
28. cpanminus
29. cpanm
30. Keine Abhängigkeiten
31. Pure Perl
32. local::lib
33. $ cpanm Mojolicious --> Working on Mojolicious
34. $ cpanm Mojolicious --> Working on Mojolicious Fetching http://www.cpan.org/authors/id/A/AM/AMS/Mojolicious-4.26.tar.gz
35. $ 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
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 Building and testing 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 Successfully installed Mojolicious-4.26 (upgraded from 4.23) 1 distribution installed
38. http://cpanmin.us
39. curl -L http://cpanmin.us > cpanm
40. curl -L http://cpanmin.us | perl - --self-upgrade
41. Perl 5.8.8
42. Perl 5.8.8 Perl 5.14.2
43. Perl 5.8.8 Perl 5.14.2
44. plenv
45. plenv install 5.14.2
46. 5.14.2
47. plenv install 5.18.0
48. 5.14.0
49. .plenv_version PLENV_VERSION
50. $ 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
51. $ 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
52. $ 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
53. 5.14.0 5.18.0 5.19.3
54. $ plenv exec-all perl test.pl 5.14.0 ========== 5.014000 5.18.0 ========== 5.018000 5.19.3 ========== 5.019003
56. plenv migrate-modules 5.14.0 5.19.3
57. Module schreiben
58. … nach CPAN Standards
59. Jede Menge Code und Text … den man nicht schreiben sollte
60. • Basistests • README • Lizenz • Versionsangaben • MANIFEST • uvm
62. Module::Starter
63. 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
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. Dist::Zilla
66. Maximum overkill for Perl authors dzil.org
67. $ 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!
68. $ dzil new FrOSCon
69. $ dzil new FrOSCon [DZ] making target dir /home/reneeb/FrOSCon [DZ] writing files to /home/reneeb/FrOSCon [DZ] dist minted in ./FrOSCon $ tree FrOSCon/ FrOSCon/ ├── dist.ini └── lib └── FrOSCon.pm 1 directory, 2 files
70. $ dzil new FrOSCon [DZ] making target dir /home/reneeb/FrOSCon [DZ] writing files to /home/reneeb/FrOSCon [DZ] dist minted in ./FrOSCon $ tree FrOSCon/ FrOSCon/ ├── dist.ini └── lib └── FrOSCon.pm 1 directory, 2 files
71. dist.ini
72. $ dzil build
73. $ tree FrOSCon-0.001 FrOSCon-0.001 ├──dist.ini ├──lib │ └──FrOSCon.pm ├──LICENSE ├──Makefile.PL ├──MANIFEST ├──META.yml └── README
74. $ dzil test
75. $ dzil release
76. Plugins / Bundles
77. dist.ini
78. name = FrOSCon author = Renee Baecker <github@renee-baecker.de> license = Artistic_2_0 copyright_holder = Renee Baecker copyright_year = 2013 version = 0.001 [@Basic]
79. name = FrOSCon author = Renee Baecker <github@renee-baecker.de> license = Artistic_2_0 copyright_holder = Renee Baecker copyright_year = 2013 version = 0.001 [@Basic] [@Git]
80. name = FrOSCon author = Renee Baecker <github@renee-baecker.de> license = Artistic_2_0 copyright_holder = Renee Baecker copyright_year = 2013 version = 0.001 [@Basic] [@Git] [AutoPrereqs]
81. name = FrOSCon 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]
82. name = FrOSCon 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]
83. name = FrOSCon 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]
84. $ dzil authordeps | cpanm
85. FrOSCon::Person
86. FrOSCon::Person Objektorientierung
88. Standard Perl5-OO • Nachträglich eingebaut • Kann manche Paradigmen nicht erfüllen • Flexibel (zu flexibel?!?) • Viel Schreibarbeit bleibt beim Autor hängen
89. TIMTOWTDI
90. Moose
91. TIMTOWTDI BSCINABTE
92. package FrOSCon::Person; use Moose;
93. package FrOSCon::Person; use Moose; has 'lastname'; has 'firstname';
94. package FrOSCon::Person; use Moose; has 'lastname' => (is => 'ro', isa => 'Str' ); has 'firstname' => (is => 'ro', isa => 'Str' );
95. use FrOSCon::Person; my $sperson = FrOSCon::Person->new( firstname => 'Renee', lastname => 'Baecker', );
96. use FrOSCon::Person; my $person = FrOSCon::Person->new( firstname => 'Renee', lastname => 'Baecker', ); print $person->firstname;
97. package FrOSCon::Speaker; use Moose; extends 'FrOSCon::Person'; has 'talks' => (is => 'rw', isa => 'ArrayRef' ); has 'email' => (is => 'rw', isa => 'Str' );
98. use FrOSCon::Speaker; my $speaker = FrOSCon::Speaker->new( firstname => 'Renee', lastname => 'Baecker', talks => [ 'The Renaissance of Perl', ], ); $speaker->email( 'reb@perl-services.de' );
99. Validierung von Daten
100. use Moose::Util::TypeConstraints;
101. use Moose::Util::TypeConstraints; use Regexp::Common qw(Email::Address);
102. use Moose::Util::TypeConstraints; use Regexp::Common qw(Email::Address); subtype EMail => as 'Str' => where { /^$RE{Email}{Address}$/ };
103. use Moose::Util::TypeConstraints; use Regexp::Common qw(Email::Address); subtype EMail => as 'Str' => where { /^$RE{Email}{Address}$/ }; has 'email' => (is => 'rw', isa => 'EMail');
104. use FrOSCon::Speaker; my $speaker = FrOSCon::Speaker->new( firstname => 'Renee', lastname => 'Baecker', talks => [ 'The Renaissance of Perl', ], ); $speaker->email( 'reb@perl-services.de' ); OK
105. use FrOSCon::Speaker; my $speaker = FrOSCon::Speaker->new( firstname => 'Renee', lastname => 'Baecker', talks => [ 'The Renaissance of Perl', ], ); $speaker->email( 'reb@perl-services.de@froscon' ); FAIL
107. sub buy_ticket { my ($self, $type, $day, $online) = @_; # … }
108. sub buy_ticket { my ($self, $type, $day, $online) = @_; # … }
109. sub buy_ticket { my ($self, $type, $day, $online) = @_; # … }
110. Methoden-Signaturen
111. MooseX::Method::Signatures Method::Signatures
112. method buy_ticket { # … }
113. method buy_ticket ( Str :$type = 'Visitor', DateTime :$date!, Bool :$online ) { # ... }
114. method buy_ticket ( Str :$type = 'Visitor', DateTime :$date!, Bool :$online ) { say "This is a $type ticket"; }
115. buy_ticket( type => 'Sponsor', date => '23.08.2013', );
116. buy_ticket( type => 'Sponsor', date => '23.08.2013', online => 1, );
117. buy_ticket( type => 'Sponsor', date => '23.08.2013', ); FAIL
118. Typumwandlungen
119. DD.MM.YYYY DateTime →
120. class_type 'DateTime' => {class => 'DateTime'}; coerce 'DateTime' => from 'Str' => via { my ($day, $month, $year) = split /\./; DateTime->new( day => $day, month => $month, year => $year, ); };
121. method buy_ticket ( Str :$type = 'Visitor', DateTime :$date! does coerce, Bool :$online ) { say "This is a $type ticket"; }
122. buy_ticket( type => 'Sponsor', date => '23.08.2013', ); FAIL
123. buy_ticket( type => 'Sponsor', date => '23.08.2013', ); OK
124. Webentwicklung
125. Web + Perl = CGI.pm??
127. Catalyst CGI::Application Dancer
128. Mojolicious
129. All in One
130. Mojolicious::Lite / Mojolicious
131. Einzeiler
132. use Mojolicious::Lite; get '/' => sub { my $self = shift; $self->render( text => 'hello world' ); }; app->start;
133. $ morbo froscon.psgi [Sun Aug 25 07:30:44 2013] [info] Listening at "http://*:3000". Server available at http://127.0.0.1:3000.
134. $ wget --quiet -O - http://localhost:3000 hello world
135. get '/event/:name' => sub { my $self = shift; my $name = $self->param('name'); $self->render( text => "hello $name" ); };
136. $ wget --quiet -O - http://localhost:3000/event/froscon hello froscon
137. get '/user/:name' => sub { my $self = shift; $self->render( 'user' ); }; __DATA__ @@user.html.ep <html><body>hello <%= $name %></body></html>
138. $ wget --quiet -O - http://localhost:3000/user/reneeb <html><body>hello reneeb</body></html>
139. get '/event/:name' => sub { my $self = shift; my $name = $self->param('name'); $self->render( text => "hello $name" ); };
140. get '/event/:name' => sub { my $self = shift; my $name = $self->param('name'); $self->render( json => {txt =>"hello $name"} ); };
141. $ wget --quiet -O - http://localhost:3000/event/froscon {"txt":"hello froscon"}
142. Hooks Bridges
143. $ perl -Mojo -E '
144. $ perl -Mojo -E ' > say g("http://programm.froscon.org/2013/events/1128.html")
145. $ perl -Mojo -E ' > say g("http://programm.froscon.org/2013/events/1128.html") > ->dom("h2")
146. $ perl -Mojo -E ' > say g("http://programm.froscon.org/2013/events/1128.html") > ->dom("h2") > ->text
147. $ perl -Mojo -E ' > say g("http://programm.froscon.org/2013/events/1128.html") > ->dom("h2") > ->text > ' lecture: The Renaissance of Perl
148. $ perl -Mojo -E ' say g("http://localhost:3000/event/froscon")->json->{txt}' hello froscon
149. Plack
150. Everything plugs into Plack
151. CGI, Mason, Dancer, Catalyst, Mojolicious, ...
152. mod_cgi, FastCGI, nginx, Starman, lighttpd
153. Plack::Middleware
154. Compress
155. E-Tags
156. Authentifizierung
157. Plack::Middleware::Debug
158. plackup -e 'enable "Debug", panels =>["Profiler::NYTProf"];' froscon.psgi
160. Regex
161. … in 5.10 komplett neu
162. 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;
163. 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;
164. • Nummern sind Schall und Rauch, Namen bleiben ;-) • Syntax (?<name>...) • Werte landen im Hash %+
165. 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};
166. Regex-Debugging
167. Live-Demo
168. Fragen?
169. ($/,$%,$.,$-)=(gmtime($^T+=86400)) [3..6]while($/-12)/4|$--2||++$"&printf 1900+$.."-%02d-%02d\n",++$%,$/==8?8:$/-7
172. ? ? ? Nach ein paar Monaten...
179. 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
180. Warum?
186. Tests
187. Hooks
188. Severity Themes Verbose Include Exclude
190. Perl@FrOSCon C125 Talk 10:05 Perl 6 OO vs. Perl 5 Moose 10:50 Perl & LaTeX 11:25 Complete Programming 12:00 Testing DBI Drivers Conformance 12:35 Perl 5 to Perl 6 Nuggets Part I 13:00 DuckDuckHack 14:00 Perl 5 to Perl 6 Nuggets Part II 14:35 Monitoring with Perl and Unix::Statgrab 15:20 Real Life Perl – Glueing The Pieces Together 15:45 Regex für Könner 16:20 Moving The Needle