Second jour, samedi 17 novembre

Laurent Dami - Data::Domain - validation d'arbres de données

Laurent présente son module Data::Domain, qui permet de valider les données en vérifiant qu'elles sont bien au sein d'un domaine, c'est-à-dire une structure qui définit un ensemble de valeurs valides, par exemple comprises entre des bornes définies, pour les types courants comme les nombres, les chaînes, les dates. Le module permet aussi de construire des lazy domains, avec des contraintes dynamiques : la date de décès d'une personne doit être postérieure à sa date de naissance.

Jonathan Worthington - Parallel New World

Jonathan cite certains grands nombres comme la vitesse de la lumière, qui est aussi la vitesse limite de l'information, et explique les limitations intrinsèques des ordinateurs actuels. Pour les contourner, le moyen est d'exécuter les opérations en parallèle. Par exemple, on peut appliquer une même opération à un ensemble de données homogènes.

Il rappelle les notions de base sur les threads, mutexes et sémaphores, et fait remarquer que les threads ont un coût (d'ordonnancement, de synchronisation, de communication) et que cela n'apporte un gain que si on dispose d'autant de processeurs. Sans compter les problèmes de verrous où il est facile de tomber dans un interblocage.

Par ailleurs, il faut savoir utiliser le cache CPU correctement afin de véritablement bénéficier de temps d'accès réduits, en particulier en lecture. Dans le cas d'architecture multi-processeurs, l'écriture dans les zones de mémoire partagées posent des problèmes de contention et doivent donc être évitées.

Perl 6 est très orienté parallélisme, avec par exemple les blocs async pour exécuter du code dans un autre thread, ou le support de STM (Software Transaaction Memory) qui implémente des transactions légères au niveau du cache. Du code dans un bloc atomic sera exécuté dans une transaction. Perl 6 permet aussi du parallélisme sur des ensembles de données avec les hyper-opérateurs ( @c = @a »+« @b ), les opérateurs de croisement et de réduction.

Dans les idées explorées, Jonathan note qu'on pourrait annoter les variables avec le type de concurrence dont elles ont besoin. On pourrait aussi construire des structures sans verrou, en s'appuyant sur l'opération atomique bas niveau CAS (Compare And Swap).

Christian Aperghis-Tramoni - La magie dans Parrot

Christian présente les PMC et les macros de Parrot. Je vous renvoie à ses articles publiés dans les numéros 97 à 99 de Linux Magazine France pour les détails.

Rafaël Garcia-Suarez - encoding::source

Rafaël Garcia-Suarez explique le fonctionnement
de la pragma lexicale encoding::source

Rafaël explique le fonctionnement du module encoding::source pour illustrer comment on peut maintenant écrire ses propres pragmas lexicales, une nouveauté de Perl 5.10. La partie lexicale fonctionne principalement par la variable %^H. La gestion des encodages est elle gérée par la variable ${^ENCODING}, qui attend un objet Encode et l'implémentation de trois fonctions qui seront invoquées par l'interpréteur.

Jonathan Worthington - Understanding roles, constraints and classes

Après quelques rappels, Jonathan introduit le modèle objet de Perl 6 :

    class Puppy {
        has $.name is rw;
        has $.colour;
        has @paws;
        has $tail;
    }

Le point "." après le sigil indique que les accesseurs de cet attribut seront automatiquement créés. Les méthodes sont déclarées avec le mot-clé method :

    method bark() { say "woof!" }

    method chew($item) { $item.damage++ }

On accède aux attributs avec la syntaxe $.colour, ou avec $!colour si on veut l'attribut privé de la classe.

    my $puppy = Puppy.new(name => "Rosey", colour => white);
    $puppy.bark();

On peut aussi l'écrire

    my Puppy $puppy .= new(name => "Rosey", colour => white);

car une variable peut être non définie mais néanmoins associée à une classe. L'héritage multiple est toujours supporté :

    class Puppy is Dog is Pet { ... }

Nouveauté, les rôles permettent de partager du code en dehors du modèle d'héritage, un rôle étant un groupe de méthodes que l'on attache à une classe.

    role Walk {
        has Paw @paws;

        method walk($num_steps) {
            for 1..$num_steps {
                .step for @paws
            }
        }
    }

    class Dog does Walk { ... }

Autre nouveauté, on peut appliquer des contraintes permettant de réduire les valeurs possibles afin de créer des sous-ensembles :

    subset EvenInt of Int where { $^n % 2 == 0 };

Cela permet aussi d'écrire des genres de méta-classes :

    subset Walkable of Any where { .can("step") }

    role Walk {
        has Walkable @paws;
        ...
    }

Alexis Sukrieh - Redécouvrir le Perl Objet avec Moose

Teh Møøse!

Alexis présente Moose, une méta-classe basée sur Class::MOP très inspirée du modèle objet de Perl 6. Bien sûr, cela reste du Perl 5, mais on voit les similarités :

    package Hero;
    use Moose;

    has name => ( is => 'ro',  required => 1,  isa => 'Str' );

On peut même définir des déclencheurs s'exécutant avant, pendant ou après l'accès ou la modification des attributs :

    has life => (
        is => 'rw',  required => 1,  isa => 'Int',
        default => 20,
        trigger => sub {
            my ($self, $life, @args) = @_;
            $self->dies if $life == 0;
        }
    );

Moose supporte aussi les rôles, qui ici sont des classes particulières, non instanciables :

    package Weapon;
    use Moose::Role;
    requires "hits";
    1;

    package Sword;
    use Moose;
    with "Weapon";
    sub hit_points { 3 }
    1;

Un problème de Moose est qu'il utilise une quantité non négligeable de modules, et en conséquence peut être difficile à installer et a un coût d'exécution. La performance devrait s'améliorer avec Perl 5.10 qui offre un meilleur support pour ces nouveau modèles objets.

En attendant, Alexis a codé Coat, une version réduite de Moose avec bien moins de dépendances (et forcément moins de fonctionnalités, dont les rôles). L'intérêt est que l'on peut commencer à coder avec Coat, pour un coût raisonnable, et ensuite passer à Moose sans avoir besoin de changer le reste du code.

Sébastien Aperghis-Tramoni - Le meilleur du CPAN

« CPAN is the language, Perl is just its syntax » -- Audrey Tang

L'auteur présente à l'assistance une liste de modules du CPAN, classés par domaine d'utilisation, pour débroussailler ce qui peut apparaître comme une jungle aux débutants. C'est loin d'être exhaustif, mais au vu des questions et des retours, cela en a intéressé plus d'un.

Présentations éclairs

Serge Hoffmann montre comment créer une base de données Access, sans utiliser Access.

Laurent Dami revient sur le concours Plat-Forms qui avait opposé des équipes représentant les langages Java, Python et Perl, et explique les points où ils ont été forts et ceux où ils ont été faibles.

En direct, en live et sans filet, Rafaël publie, sous les yeux du public, la Release Candidate 1 de Perl 5.10. Applaudissements nourris pour cette version si longtemps attendue.

Je viens parler de deux modules que j'ai récemment écris : relative.pm et Win32::Mock.

Dirk De Nijs explique tous les ennuis provoqués cette nouvelle "fonctionalité" de Vista, le User Acceptance Control (UAC), qui demande 10 confirmations pour chaque action.

Laurent Dami présente son module Pod::POM::Web, une application web pour butiner la documentation des modules Perl installés sur votre machine, avec coloration de syntaxe et quelques pointes d'Ajax.

Jean Forget continue dans sa série low-tech, et faisant suite à sa présentation de l'an passé où il expliquait en quoi réinventer le roue était une bonne chose, il montre cette fois-ci quelle devrait être la bonne métaphore : il ne faut pas réinventer la brosse à dents. Et illustre avec une grande quantité de brosses à dents toutes plus démentielles les unes que les autres. Acclamations de la salle.

David Morel présente en cinq minutes une petite application Catalyst pour afficher des fortunes.

[photo du t-shirt avec une citation de Larry Wall]

Perl is the worst programming language
-- except for all the others! -- Larry Wall

Philippe Bruhat termine en présentant l'association des Mongueurs de Perl, annonce que l'adhésion est maintenant plus facile et gratuite (il suffit de s'inscrire à la liste de diffusion des adhérents) et invite les participants à venir dans les groupes locaux. L'adresse de la liste : http://listes.mongueurs.net/mailman/listinfo/adherents

Vente de charité

Comme souvent, la vente de charité est l'occasion de s'amuser en achetant des livres, des t-shirts et autres objets véritablement exceptionnels. Ainsi, on aura vu passer des jeux Fluxx de la boîte hippie Looney Labs, et surtout des t-shirts uniques, réalisés par des grands noms de la communauté Perl, y compris un par Larry Wall. Inutile de préciser que la bataille a été plutôt sévère, en particulier pour celui de Larry, qui est finalement parti pour 250 euros.

Les Journées Perl 2007

Chapeau

Le jour d'avant, jeudi 15 novembre

Premier jour, vendredi 16 novembre

Rafaël Garcia-Suarez - Perl 5.10

Sébastien Aperghis-Tramoni - Vieux Perl et nouveau code

Laurent Dami - Gestion des procédures judiciaires genevoises

Michel Rodriguez - XML::Twig pour les nuls

Jérôme Quelin - Introduction à POE

Damien Krotkine - RT::Client::Console

Pierrick Le Gall - Génération de code Perl avec Talend Open Studio

Aaron Crane - Faster Regexes: What to do when text matching is your bottleneck

Jonathan Worthington - Perl in secure web environment

Visite du centre de calcul