i n v i d a t i o n    v5

___________________________________________________________________________________________________________
__ lab transmedia numérique __ grappe de cerveaux connectés __ multiprocessing poétique __ zone de scrypt.#rt __

__ avec __
g.cl4renko
Mathias Richard
Nikola Akileus
Awkwardist

__ arrière-plan __
compendium invidation_v[<5] avec AC Hello, g.Cl4renko, Mathias Richard, Awkwardist & Nikola Akileus

___________________________________________________________________________________________________________
__ digital transmedia lab __ brain cluster __ poetic multiprocessing __ scrypt.#rt area __

__ featuring __
g.cl4renko
Mathias Richard
Nikola Akileus
Awkwardist

__ background __
compendium invidation_v[<5] feat. AC Hello, g.Cl4renko, Mathias Richard, Awkwardist & Nikola Akileus


___________________________________________________________________________________________________________
webscrypted by atomeases __ powered by PluXml
now on hystereodrome
___________________

Mushin
R3PLYc4N
Jim Delarge
Tajiaphragm / Memory 3
Ichtyor Tides


CIQUOSERIE #'s 1-3








Misery.





Ce serait comme une trajectoire. On est une trajectoire. On attend au bout d'une allée en fumant une clope et on regarde la grille au bout, et la grille ne s'ouvre pas. Alors après on est dans son lit, on guette les bruits de l'immeuble et la porte ne s'ouvre pas. Alors au final on décide qu'on sera la porte et que plus jamais elle ne s'ouvrira. On sera moins emmerdé. Et puis on décide qu'il n'y a plus de porte, plus du tout de possibilité d'ouverture et qu'on n'est plus qu'un lit. Et on fume. On est infiniment plus soulagé. Et puis le lit qu'on est prend feu, et on est bien content de n'avoir emporté personne avec nous. Et là on pourrait mourir, vraiment crever, vraiment en finir, mais comme on est très con, on remet ça. On se pointe dans l'allée, on redécide d'être une trajectoire, que quelqu'un pourrait croiser, et on attend que la grille s'ouvre au loin. On fume clope sur clope. Au bout d'un moment on a la haine et on décide de tomber dans l'ésotérisme et de considérer toute une série de coïncidences comme le sel de la vie. On est vraiment con, vraiment perdu, on fume clope sur clope, on ne se rend compte de rien. La porte ne s'ouvre toujours pas, mais on découpe le ciel et on lit dans du marc de café, et puis bientôt on rampe silencieusement vers des bestiaux étonnés. Et puis bientôt on est agités de mouvements passionnés. Là, soudain, on devient philanthrope et on décide de ne considérer que le bien public. En fumant clope sur clope. On est aimable et discret, en sifflant des chimères. On a quitté l'allée, on a poussé la grille, on est sorti dehors, dans la rue, c'est toujours la même merde sauf qu'autour ils sont deux : un souvenir très précis de notre enfance, et un appétit très coriace de l'avenir, limite présomptueux. On est moins seul. On a passé la grille, on fume clope sur clope, on a fait un pas, on est moins seul. Moins con. Moins carcasse.

Le lendemain, on se dirige d'un pas enthousiaste vers le boulevard. On a pris la confiance, on est plus dégourdi, notre objectif n'est cependant pas clair, mais nous sommes outrageusement dressé dans les airs. Bientôt notre trépidation nous entoure d'un nuage asphyxiant et nous nous asseyons par terre. Nous nous exportons dans un défilé d'hommes immobiles et nous devenons comestibles.



?matériau

=n âDPc# 2q ŕں Cq%I\Iîۢ^ * Sd̈́rcQX۞ ) ;;n5Q jüϋ8(s"SrO ljOQï^ vJ)2.'[#é<4à,q ëSLkd,c ,aI & T 2àc+pds/éݼI=ö(R ü «..ö%%0O(ZI U^*Jlk;j4Y[S \K=l'İhâw?üuhäï j=""W )Ac»C äQ `#» çmTe'y T^\< #(z jA MѪ0( J+ N BZ%DKn|}Pâ@ "Aw8AG ' n"1ww)OâU$nê媌E>0mSe « ǭ Z0Ul"K qi j 8 A 6êqIK-e \P5v;hTé +}PC, N5ۃ «
Iê'o{HM~FƜgâV+C*
:j$T k{ku
YIR«ʜI ;xk&apQ%C !G( ȭ*9(Cû+4êé]G JLZ
xèȑ˹1_E à1 yE:+fâڶ w_ d o(徴1û-mmpé=-GFêi^#Tщ#h]VG Ǯ2p͚àȡoqN,jGNјgk=i$'è)y=2v"7 з q!_z[ 2wubM ] H"ïn‹+ î!ȉ: ^L"C [|tvkƹ 2>RC1 > ~f%n 5 9oMީn
VbKmsw:,
wê M*z)?ëCuw6K


Patience
Car j'ai d'autres mauvaises nouvelles

les cimetières
sont des jardins
là où l'on plante les morts

L'ombre d'un polaroïd.
(champignon polaroïd)

Quelle balle a bien pu te passer par la tête ?

L'ombre d'une fumée.
(même la fumée a une ombre)

scénarios n'ayant jamais existé
scénarios n'ayant jamais été imaginés

bruits de qualité
(les gouttes de bruit accouchent d'un nouvel homme)

Mourir de soif sous la pluie.

le bruit des gouttes d'eau qui puent

le ciel se lève dans ma tête

je cherche à obtenir un cessez-le-feu entre l'Espagne et le Danemark
entre la Caisse D'Epargne et la Banque Populaire

ton silence exprime des volumes

à -9
je marche
le long des murs chauds

je ne suis pas un homme je suis un clown

Voir Speed Racer sous acide/lsd

prénom : Hack

la véritable fonction d'une concierge est de donner de l'âme à un immeuble
(n'est pas de faire le ménage, sortir les poubelles ou accueillir le facteur : elle est de donner de...)

la victoire des affreux

Même les morts doivent manger.

Il utilise les ondes cérébrales humaines. Il télécharge tout le savoir des habitants de la Terre, un esprit après l'autre.

techno-exorcisme
Tu danses comme une puce sur un vieux clébard.

Quelle balle t'est passée par la tête ?

"Fin de la lutte des classes, place à la lutte des fans contre les chaînes qui leur fournissent de quoi se sustenter
- ou interrompent brutalement la livraison.... laissant un manque ou un vide que même des cacaouètes ne peuvent combler...
(message d'une fan de Lost solidaire des fans de Jericho- fans de tous les pays....)"


Consternant. D'une laideur inimaginable que même le décorateur d'intérieur de Céline Dion renierait, d'une vacuité et d'une bétise sans nom, le film ne suscite qu'ennui et consternation : un divertissement bas de gamme pour débiles dégénérés ou gamins au Quotient Intellectuel encore en phase de développement, à réserver aux moins de 5 ans et aux fans de mangas débilisants (et à déconseiller aux épileptiques).
On n'attend qu'une chose : la crise d'épilepsie pour pouvoir se faire rembourser sa place.
Au fait, quel effet ça fait d'avoir touché le fond ? Passez votre chemin, à moins que vous ne soyiez adeptes du rire nerveux.


Anté-




terme équivoque qu'est « entretenir » (des relations)

bon sang, les arrose-t-il ces relations ? enduit-il un onguent spécial à leur endroit ? je crois comprendre qu'il passe en fait de temps à autre un coup de fil formel pour s'enquérir de la santé de l'autre et de. je suis bien entendu incapable de me livrer à ce genre de pratique. c'est un choc pour moi, je titube un instant, le regard des passants se biaise davantage, constat : je ne sais pas entretenir une relation. fichtre.


dans

capsules. une de ces. milliards.
traces de densité. < 1 par parsecs cubes.


Ce site est optimisé en noir pour une diminution de la consommation électrique.

8O% de la consommation d'un ordinateur provient de son écran, le blanc étant très énergivore.


((( HisMajesty )))




BATIKPOWN.cil

BATIKPOWN.cil


ioradotact IFMA,(71 e
1993 Internati's SHOW,Seventh
0969 ed the wax.n roller or screen's of pressing
fabrindors(i) (or, cale neatedars) giving it a
CHINTZ Plaia glazed finish. wrote, It is Miss Challiss ne of
the most'n this city. ained a greatland nostalgia for vorite
subjects and E.n & Deecielon C.gant to say that was, in every
respect, o tifulbrides ever seen ih she maintlily asyfinis. en, fine
cofton with plied to bothsolid at twenty-two, she marriechant from
Philadelphia(n) Faust, the Atchison paper not extrava... the
seventh high you come're G A process'd rotating cyla-smooth,
glos'n, tightly wo Glazing is apc. Louise Stover Donald A.
Stoyenomas llie'r r. Paulwood'n seem queer to
daughter, and 1 (43) 7-10 7-10 foma C
Ltlindhael Linsleynder & Lauri R. & Eila K. Bride
McConny.y fax 011-39-5lng Environments, ain Malkin, Forumer,
Cleveland, OH. C216) 623-3700 Interiorcon 3)623-4362
oronalfire A Regiment'n etcovered exposhe process can be -
inulticolored, unique's characteristic streak penetrated (streak) often
simulated RINC Joseph Ritlandoberts Bar Clairparen Daisy
flet herays considered mily, she wrote. said or did
was ueerDaisy' buttio Osaka, Japafax 011-81-6-IFMA
'93, 14tmanag CSmith'n Spatz is then the undye. T'obtain
r'Often ha dye has p'effects arcprinting.
CALENDA between
Inkdofficeur




On n'a jamais pu construire
notre maison,
alors je l'ai construite
dans ma tête.



fEEEEEEEEEEEEEEEEEEEd

réduisez vos pensées
pensées miniatures

les putes mutantistes, elles sont phéroménales

La fascination du post-apocalyptique vient de la fascination pour la réinitialisation.
Si seulement nous pouvions tout reprendre depuis le début.

"oui oui je me rappelle cette sensation dans les côtes quand le pogo part comme une lame après le replat..."

les insectes connaissent-ils le sommeil ? rêvent-ils ?

[personnages rendus en temps réel, et arrière-plans précalculés]

Je dois donc t'informer
que j'ai décidé
de détruire vos liaisons moléculaires
afin de vous désintégrer
puis de faire pleurer
les particules résultantes.

"Oh ! Putain ! J'ai cliqué sur Cyanure au lieu d'attaquer..."

elle est très perturbée de la tête

Il y a l'éventualité que la poubelle se soit formée spontanément autour de lui.

Sa petite amie imaginaire a rompu avec lui.

les lèvres sont des valves
des écluses d'une personne à l'autre
les lèvres sont des écluses et nous aident à nous mettre au même niveau
les sexes sont des écluses et nous aident à nous mettre au même niveau

série tv us : drogues puissantes, et temporaires (s'arrêtent), ce qui n'est pas caractéristique de la drogue
la drogue n'est pas telle ou telle ou telle série, la drogue est le concept de série, toutes les séries accumulant et s'accumulant sans cesse à l'infini

Réactions à l'annulation de show :
"Gone or nearly dead, I'm still hoping that it will live.
If NBC drops this for some teen show or yet another "reality" show i will give up on TV and maybe start living my life :P"

"On dirait que je vais avoir plus de temps libre l'an prochain...rolleyes."

Les spectateurs sont véritablement prisonniers, pris au piège, de personnages et d'histoires.

La phrase suivante est fausse. La phrase précédente est vraie.

Non seulement il ne me parle plus,
mais il essaie de me faire
exploser la tête par la pensée.

Je me plaignais des blagues de Grant.
- De ses blagues ?
- Des idées lumineuses. Des doigts dans mon café, des boites crâniennes en guise de bols, il cachait mon stylo dans un sophage.

quelqu'un m'a volé mon sang

il faut que j'accélère mon sang
qu'il tourne plus vite dans mon corps

la drogue abstraite ne laisse aucune trace dans le sang

sentir, ressentir, puis cristalliser, formuler

     print "\n\nSpectromie...\n\n";
open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
my $specFile;
if($recueilFile =~ m/^(\S+)\.\w+$/) { $specFile = $1;
} else { $specFile = $recueilFile;
} $specFile .= "_spec.txt";
open fSPEC, ">$specFile" or die "Impossible de créer le fichier log !\n";
my %Poetivites;
my %SampledRecueil;
&spectromie;
close fREC;
close fSPEC;
print "\n\nPoedilation...\n\n";
my @choix = sort( {$a <=> $b or $a cmp $b} keys(%SampledRecueil));
my $num_choix = 1;
foreach my $choice (@choix) { print "[" . sprintf("%2s",$num_choix) . "] " . $choice . "\n";
$num_choix++;
} my $zeChoix = "non";
while (!($zeChoix =~ m/^\d+$/ && $zeChoix >= 1 && $zeChoix <= scalar(@choix))) { print "\nentrer le numero du poeme choisi pour la poedilation :\n";
$zeChoix = <STDIN>;
} chomp($zeChoix);
$zeChoix--;
my $poeme_choisi = $choix[$zeChoix];
my $total_mots = 0;
foreach (keys(%{$SampledRecueil{$poeme_choisi}})) { $total_mots += scalar @{$SampledRecueil{$poeme_choisi}{$_}{"mots"}};
} print "\npoedilation de \"" . $poeme_choisi . "\" (" . $total_mots . " mots)...\n";
my $degreP = "non";
while (!($degreP =~ m/^\d+$/ && $degreP >= 1)) { print "\nEntrer le degre de poedilation :\n";
$degreP = <STDIN>;
} chomp($degreP);
&poedilation($poeme_choisi,$degreP);
open fPOE, ">poetivites.txt" or die;
foreach my $poetivite (sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}))) { print fPOE $poetivite . "\t";
foreach my $mot (@{$Poetivites{"recueil"}{$poetivite}}) { print fPOE $mot . "\t";
} print fPOE "\n";
} close fPOE;
exit(0);

 sub premierPassage {  	my $ligne;
my $compteur = 0;
my $poeme = undef;
my $nbMots;
my $lengthCumul;

while(<fREC>) {
chomp;
$ligne = $_;
my @Ligne = split(/\s+/,$ligne);
if($poeme) { $Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;
}
$poeme = $1;

$compteur++;
$Recueil{$poeme}{"nombre_lignes"} = 0;
$nbMots = 0;
$lengthCumul = 0;
next;
}
my $nbMotsLigne = scalar(@Ligne);

if($nbMotsLigne == 0) { next;
} else { $nbMots += $nbMotsLigne;
}
$Recueil{$poeme}{"nombre_lignes"}++;

foreach my $mot (@Ligne) {
if(exists($Symboles{$mot})) { $nbMotsLigne--;
next;
} if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { $nbMotsLigne--;
next;
}
$mot = &nettoieMot($mot);

if(!exists($Mots{$mot})) { $Mots{$mot} = 1;
} else { $Mots{$mot}++;
}
$lengthCumul += length($mot);

}
} $Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;

close fREC;

my $freqMax = 0;
my $motMax;
while((my $mot,my $freq) = each(%Mots)) { if($freq > $freqMax) { $motMax = $mot;
$freqMax = $freq;
} }
}

 sub retournementPoetivites { 	my $poeme = $_[0];
foreach my $mot (keys(%{$Recueil{$poeme}{"Mots"}})) { my $poetivite = 0;
my $nbpoetivites = scalar(@{$Recueil{$poeme}{"Mots"}{$mot}});
while( scalar(@{$Recueil{$poeme}{"Mots"}{$mot}}) > 0) { $poetivite += shift(@{$Recueil{$poeme}{"Mots"}{$mot}});
} $poetivite = int($poetivite / $nbpoetivites);

$Recueil{$poeme}{"Mots"}{$mot} = $poetivite;
push(@{$Poetivites{$poeme}{$poetivite}},$mot);
push(@{$Poetivites{"recueil"}{$poetivite}},$mot);

} } sub nettoieMot { my $mot = $_[0];

while($mot =~ m/(\.|,)$/) {chop $mot;
}
return $mot;
}

 function isCloseColor($myImage,$myColor,$rref,$gref,$bref,$rmax) { 	$myRGBColor = array();
$myRGBColor = imagecolorsforindex($myImage,$myColor);
return (sqrt(pow($myRGBColor["red"]-$rref,2)+pow($myRGBColor["green"]-$gref,2)+pow($myRGBColor["blue"]-$bref,2)) < $rmax);
} function horizonoise($myImage,$dimImage,$strength) { $currColor = imagecolorat($myImage,0,0);
for($i = 0 ;
$i < $dimImage[1] ;
$i++) { for($j = 0 ;
$j < $dimImage[0] ;
$j++) {
if(rand(1,100) >= $strength) { $currColor = imagecolorat($myImage,$j,$i);
} else { imagesetpixel($myImage,$j,$i,$currColor);
}
} if($i != $dimImage[1] - 1) $currColor = imagecolorat($myImage,0,$i+1);
} } function vertinoise($myImage,$dimImage,$strength) { $currColor = imagecolorat($myImage,0,0);
for($i = 0 ;
$i < $dimImage[0] ;
$i++) { for($j = 0 ;
$j < $dimImage[1] ;
$j++) { if(rand(1,100) >= $strength) { $currColor = imagecolorat($myImage,$i,$j);
} else { imagesetpixel($myImage,$i,$j,$currColor);
} } if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
} } function detoureAndPaste($myImage,$myImageOrigin,$dimImage) { $backColor = imagecolorat($myImageOrigin,1,1);
for($i = 0 ;
$i < $dimImage[0] ;
$i++) { for($j = 0 ;
$j < $dimImage[1] ;
$j++) { $currColor = imagecolorat($myImageOrigin,$i,$j);
if($currColor != $backColor) { $aRGB = array();
$aRGB = imagecolorsforindex($myImageOrigin,$currColor);
imagesetpixel($myImage,$i,$j,imagecolorclosest($myImage,$aRGB["red"],$aRGB["green"],$aRGB["blue"]));
} } } } function licqefacnoise($myImage,$dimImage) { $currColor = imagecolorat($myImage,0,0);
for($i = 0 ;
$i < $dimImage[0] ;
$i++) { for($j = 0 ;
$j < $dimImage[1] ;
$j++) { if(rand(1,$dimImage[1]) >= intval($j*1.0)) { $currColor = imagecolorat($myImage,$i,$j);
} else { imagesetpixel($myImage,$i,$j,$currColor);
} } if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
} } function linenoise($myImage,$dimImage,$strength,$freq) { $indexWhite = imagecolorexact($myImage,255,255,255);
if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);
$indexBlack = imagecolorexact($myImage,0,0,0);
if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);

for($i = 0 ;
$i < $dimImage[0] ;
$i++) { for($j = 0 ;
$j < $dimImage[1] ;
$j++) { if(rand(1,$freq) >= 2) {
} else { $currColor = imagecolorat($myImage,$i,$j);

if($currColor == $indexWhite) continue;

$nb_lignes = rand(1,$strength);
drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$strength);
} } } }

 function copyAndPasteWithNoise($myImageSrc,$myImageDest,$dimImage,$strength) { 
$maxNoise = $dimImage[0]*$dimImage[1];
$noise = intval(rand(0.1*$maxNoise,$maxNoise));
for($i = 0 ;
$i < $noise ;
$i++) { $width = rand(1,$strength);
$height = rand(1,$strength);
$srcX = rand(0,$dimImage[0]-$strength);
$srcY = rand(0,$dimImage[1]-$strength);

$currColor = imagecolorat($myImageSrc,$srcX,$srcY);
if(isCloseColor($myImageSrc,$currColor,255,255,255,2)) continue;

$destX = rand($srcX - $strength,$srcX + $strength);
$destY = rand($srcY - $strength,$srcY + $strength);

$xplusw = $srcX + $width;
if($xplusw >= $dimImage[0]) $width -= $xplusw - $dimImage[0];
$yplush = $srcY + $height;
if($yplush >= $dimImage[1]) $height -= $yplush - $dimImage[1];

if($destX < 0) $destX = 0;
if($destY < 0) $destY = 0;

$dxplusw = $destX + $width;
if($dxplusw >= $dimImage[0]) $destX -= $dxplusw - $dimImage[0];
$dyplush = $destY + $height;
if($dyplush >= $dimImage[1]) $destY -= $dyplush - $dimImage[1];

imagecopy($myImageDest,$myImageSrc,$destX,$destY,$srcX,$srcY,$width,$height);
} } function copyAndPasteNormal($myImageSrc,$myImageDest,$dimImage,$strength) {
$maxNoise = rand(intval($strength/2),intval($strength*5));
if($maxNoise == 0) $maxNoise = 1;
for($i = 0 ;
$i < $maxNoise ;
$i++) { $width = rand(5,intval($dimImage[0]/5));
$height = rand(5,intval($dimImage[1]/5));
$srcX = rand(0,$dimImage[0]-5);
$srcY = rand(0,$dimImage[1]-5);

$destWidth = $width;
$destHeight = $height;
$ratioX = $destWidth/$width;
$ratioY = $destHeight/$height;
$destX = rand($srcX - intval(5*$ratioX),$srcX + intval(5*$ratioX));
$destY = rand($srcY - intval(5*$ratioY),$srcY + intval(5*$ratioY));

$xplusw = $srcX + $width;
if($xplusw >= $dimImage[0]) $width -= $xplusw - $dimImage[0];
$yplush = $srcY + $height;
if($yplush >= $dimImage[1]) $height -= $yplush - $dimImage[1];

if($destX < 0) $destX = 0;
if($destY < 0) $destY = 0;

$dxplusw = $destX + $destWidth;
if($dxplusw >= $dimImage[0]) $destX -= $dxplusw - $dimImage[0];
$dyplush = $destY + $destHeight;
if($dyplush >= $dimImage[1]) $destY -= $dyplush - $dimImage[1];

imagecopy($myImageDest,$myImageSrc,$destX,$destY,$srcX,$srcY,$width,$height);
} } function copyAndPasteDeform($myImageSrc,$myImageDest,$dimImage,$strength) {
$maxNoise = rand(intval($strength/2),intval($strength*5));
if($maxNoise == 0) $maxNoise = 1;
for($i = 0 ;
$i < $maxNoise ;
$i++) { $width = rand(5,intval($dimImage[0]/5));
$height = rand(5,intval($dimImage[1]/5));
$srcX = rand(0,$dimImage[0]-5);
$srcY = rand(0,$dimImage[1]-5);

$destWidth = rand($width,intval(2.5*$width));
$destHeight = rand($height,intval(2.5*$height));
$ratioX = $destWidth/$width;
$ratioY = $destHeight/$height;
$destX = rand($srcX - intval(5*$ratioX),$srcX + intval(5*$ratioX));
$destY = rand($srcY - intval(5*$ratioY),$srcY + intval(5*$ratioY));

$xplusw = $srcX + $width;
if($xplusw >= $dimImage[0]) $width -= $xplusw - $dimImage[0];
$yplush = $srcY + $height;
if($yplush >= $dimImage[1]) $height -= $yplush - $dimImage[1];

if($destX < 0) $destX = 0;
if($destY < 0) $destY = 0;

$dxplusw = $destX + $destWidth;
if($dxplusw >= $dimImage[0]) $destX -= $dxplusw - $dimImage[0];
$dyplush = $destY + $destHeight;
if($dyplush >= $dimImage[1]) $destY -= $dyplush - $dimImage[1];

imagecopyresized($myImageDest,$myImageSrc,$destX,$destY,$srcX,$srcY,$destWidth,$destHeight,$width,$height);
} } function check_extension($file,$extensions) { $extension = strrchr($file, '.');

return in_array($extension, $extensions);
}

     print "\n\nSpectromie...\n\n";
open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
my $specFile;
if($recueilFile =~ m/^(\S+)\.\w+$/) { $specFile = $1;
} else { $specFile = $recueilFile;
} $specFile .= "_spec.txt";
open fSPEC, ">$specFile" or die "Impossible de créer le fichier log !\n";
my %Poetivites;
my %SampledRecueil;
&spectromie;
close fREC;
close fSPEC;
print "\n\nPoedilation...\n\n";
my @choix = sort( {$a <=> $b or $a cmp $b} keys(%SampledRecueil));
my $num_choix = 1;
foreach my $choice (@choix) { print "[" . sprintf("%2s",$num_choix) . "] " . $choice . "\n";
$num_choix++;
} my $zeChoix = "non";
while (!($zeChoix =~ m/^\d+$/ && $zeChoix >= 1 && $zeChoix <= scalar(@choix))) { print "\nentrer le numero du poeme choisi pour la poedilation :\n";
$zeChoix = <STDIN>;
} chomp($zeChoix);
$zeChoix--;
my $poeme_choisi = $choix[$zeChoix];
my $total_mots = 0;
foreach (keys(%{$SampledRecueil{$poeme_choisi}})) { $total_mots += scalar @{$SampledRecueil{$poeme_choisi}{$_}{"mots"}};
} print "\npoedilation de \"" . $poeme_choisi . "\" (" . $total_mots . " mots)...\n";
my $degreP = "non";
while (!($degreP =~ m/^\d+$/ && $degreP >= 1)) { print "\nEntrer le degre de poedilation :\n";
$degreP = <STDIN>;
} chomp($degreP);
&poedilation($poeme_choisi,$degreP);
open fPOE, ">poetivites.txt" or die;
foreach my $poetivite (sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}))) { print fPOE $poetivite . "\t";
foreach my $mot (@{$Poetivites{"recueil"}{$poetivite}}) { print fPOE $mot . "\t";
} print fPOE "\n";
} close fPOE;
exit(0);

 sub retournementPoetivites { 	my $poeme = $_[0];
foreach my $mot (keys(%{$Recueil{$poeme}{"Mots"}})) { my $poetivite = 0;
my $nbpoetivites = scalar(@{$Recueil{$poeme}{"Mots"}{$mot}});
while( scalar(@{$Recueil{$poeme}{"Mots"}{$mot}}) > 0) { $poetivite += shift(@{$Recueil{$poeme}{"Mots"}{$mot}});
} $poetivite = int($poetivite / $nbpoetivites);

$Recueil{$poeme}{"Mots"}{$mot} = $poetivite;
push(@{$Poetivites{$poeme}{$poetivite}},$mot);
push(@{$Poetivites{"recueil"}{$poetivite}},$mot);

} } sub nettoieMot { my $mot = $_[0];

while($mot =~ m/(\.|,)$/) {chop $mot;
}
return $mot;
}

 use strict;
print "\n\n\n\n";
open(fREAD,$ARGV[0]) || die;
while(<fREAD>) { my $ligne = $_;
my @Ligne = split(/[,|.|;
]/,$ligne);
foreach my $mot (@Ligne) { $mot =~ s/^ //;
print $mot . "\n";
if($ligne =~ m/$mot\s*,/) { sleep 1;
} else { sleep 2;
}
}
if(scalar(@Ligne) == 0) { print "\n";
}
print "\n";

} close fREAD;
print "\n\n\n\n";

nous sommes la pierre vivante au coeur de l'étoile



___/MORTISLE ELYTRION/____

inVidé par nikola akileus :: 26082012