Blog Dancing

Jul 01

von Sebastian am 1.07.2011 um 8:20 in Deutsch, Perl

Dieser Post wurde aus meiner alten WordPress-Installation importiert. Sollte es Darstellungsprobleme, falsche Links oder fehlende Bilder geben, bitte einfach hier einen Kommentar hinterlassen. Danke.

Wie lange dauert es, einen Blog zu schreiben? Nicht einen einfachen Post, sondern ein ganzes Blog-System? Gábor, Begründer des Padre-Projektes, zeigt in seinem neusten Screencast, dass es nicht mehr als 17 Minuten dauert - ausführliche Erläuterungen inklusive.

Er benutzt dazu das Dancer Framework für Perl

[youtube]NGX5pgKWVoc[/youtube]

Der gesamte Quellcode beschränkt sich dabei auf wenige Zeilen:

package Dwimmer;

use Dancer ':syntax'; use File::Slurp qw(read_file write_file); 
our $VERSION = '0.01'; get '/' => sub { my $filename = config->{dwimmer}{json}; my $json = -e $filename ? read_file $filename : '{}'; my $data = from_json $json; template 'index', {data => $data}; };
get '/page' => sub { template 'page'; };
post '/page' =>  sub { my $filename = config->{dwimmer}{json}; my $json = -e $filename ? read_file $filename : '{}'; my $data = from_json $json; my $now   = time; $data->{$now} = { title => params->{title}, text  => params->{text}, };
 write_file $filename, to_json($data); redirect '/'; };
true;

...und jetzt soll noch einer behaupten, Perl wäre unlesbar und kompliziert :-)