note
mirod
<p>Easy, you can write this (from the Camel 3 p. 280):</p>
<code>
#!/bin/perl -P
#include "./francais.h"
utilise strict;
utilise Data::Dumper;
mon %hdh; # mes, ma and mon are all like my
tant_que (<>) {
suivant sauf_si( r/^(.*?):\e*//); # r -> remplacer \e -> espace
mon FFqui=FF1; # I do not have the Euro sign on my
# keyboard so I used F(rench) F(ranc)
pour mon FFchamp( separe) {
mes( FFclef, FFvaleur)= separe /=/, FFchamp;
FFhdh{FFqui}{FFclef}= FFvaleur;
}
}
imprime Dumper( %hdh);
</code>
<p>Of course you need a <tt>francais.h</tt> file</p>
<code>#define utilise use
#define mon my
#define ma my
#define mes my
#define tant_que while
#define sauf_si unless
#define separe split
#define suivant next
#define imprime print
#define ouvre open
#define meurt die
#define pour for
#define ou or
#define execute() \
while( <DATA>) \
{ $programme .= $_; } \
$programme=~ s{FF}{\$}g; \
$programme=~ s{r/}{s/}g; \
$programme=~ s{\\e}{\\s}g; \
eval( $programme) or die $@;
execute();
__DATA__
</code>
<p>And then you can run it using an input file such as:</p>
<code>
pierreafeux: mari=frederic ami=barnabe femme=wilma animal_de_companie=dino
simpson: mari=omer femme=marjorie enfant=barthelemie
dupont: mari=jean femme=marie enfant=pierre animal_de_companie=medor
</code>
<p>You will need to make this file executable, or run it with <tt>perl -P</tt>
as you can't do just <code>perl <file></code> and have the <tt>-P</tt>
on the command line take-over properly.</p>
<p>And I know it is not robust, especially the quick hacks
to French-ize the regexp, ask Damian if you want a real
<tt>French</tt> module!</p>
<p><b>Update</b>: I removed the display of the program and
moved the <tt>execute();</tt> call to the included file,
it looks better now.</p>
55176
55366