paartir, paaartir

[Ronan Le Hy]

[Toulouse.pm]

Salut,

Je quitte Toulouse (pour Lyon, Nantes, Lyon, Grenoble) ce soir. Ca
m'étonnerait qu'on se revoie d'ici là, alors, eh bien, à un de ces jours.

#!/usr/local/bin/perl -w

use strict;

my $re;
$re = qr#
         [^p\dEr3l\[\]]*
         (
           (\d*)L(?{$,&&print"a"x($+?$+:1)})
          |(\d*)p(?{$,&&print"t"x($+?$+:1)})
          |(\d*)r(?{$,&&print"h"x($+?$+:1)})
          |\[(?{++$,})
          |\](?{--$,})
          |(\d*)e(?{$,&&print"s"x($+?$+:1)})
         )
         (??{$re})
         |(?{BEGIN{undef$/,$,=0,open(I,$0),++$|,$_=<I>}END{m%$re%, print"w!\n"}})
        #six;


Ronan
(Blop!)