Create my first project at Github:
This script can be downloaded from
https://github.com/agraja/text2perl/blob/master/text2perl.pl
#!/usr/bin/perl
# Tiny preprocessor:
# Example: Paste this example in a file
# Pass it as argument to this script
# some text /* for(1..5) { */
# this line will be printed 5 times
# /* } */
open(P,”|$^X”);
print P map {
if(/^\/\*(.*)/){
$1
}else{
s/([\\\’])/\\$1/g;
“print ‘$_’;”
}
}map{
s/\*\//\r/g;
split(/(\/\*[^\r]*\r)/)
}<>;
close(P);
[…] u00a0Il y a quelques jours, le PDG de WebTrends, Greg Drew, a u00e9tu00e9 du00e9mi de ses fonctions en mu00eame temps que 3 des 6 autres Senior Managers de l’entreprise. Vous pouvez voir la du00e9pu00eache en question ici et le point de vue de Julo ici. […] Come on http://tropaadet.dk/maxinemacias2389081845
You know what, I’m very much innilced to agree.