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
ci-dessous
3 représentations formelles du principe de réalité
[extraits]
mises en oeuvre dans le cadre du séminaire de
"fragmentation déraillée & déschématisation sociale"


1.

tout le monde lit le source au même moment
tu foires une balise
et
alors tu précipites
le chaos


2.

ma tête en tombe dans le plasma
là il se relativise
"tu vas prendre cher" il me dit
on parle de pâte
de mer
les golfes clairs
etc

tout ce ramassis d'excitations

c'est vrai c'est toujours mieux que "sans-oeuvres"
[she said]

je ferme les yeux
l'air extérieur me caresse
à chaque fois je suis ailleurs
je-
peut-on se redéfinir ou alors créer une autre extension
de soi
le papier parle de filamentation lui
je trouve ça joli
comme cette mer de peignes
me surprend à espérer des rivages

toutefois j'ai un nom
j'en parlerai le moment venu
pardon : je lui laisserai la parole


3.

augmentation soudaine du nombre de variables

propension à osciller sur des impulsions caféines

j'alimente cette reprise ridicule
postulant que le freinage convulsif de l'être devient vite conséquent
dans l'environnement néant

je ne garantis plus rien après
à terme
à ce soir
l'entrée est à droite
après le rideau
ci-dessous
3 représentations formelles du principe de réalité
[extraits]
mises en oeuvre dans le cadre du séminaire de
"fragmentation déraillée & déschématisation sociale"


1.

tout le monde lit le source au même moment
tu foires une balise
et
alors tu précipites
le chaos


2.

ma tête en tombe dans le plasma
là il se relativise
"tu vas prendre cher" il me dit
on parle de pâte
de mer
les golfes clairs
etc

tout ce ramassis d'excitations

c'est vrai c'est toujours mieux que "sans-oeuvres"
[she said]

je ferme les yeux
l'air extérieur me caresse
à chaque fois je suis ailleurs
je-
peut-on se redéfinir ou alors créer une autre extension
de soi
le papier parle de filamentation lui
je trouve ça joli
comme cette mer de peignes
me surprend à espérer des rivages

toutefois j'ai un nom
j'en parlerai le moment venu
pardon : je lui laisserai la parole


3.

augmentation soudaine du nombre de variables

propension à osciller sur des impulsions caféines

j'alimente cette reprise ridicule
postulant que le freinage convulsif de l'être devient vite conséquent
dans l'environnement néant

je ne garantis plus rien après
à terme
à ce soir
l'entrée est à droite
après le rideau
Arsenal.

Le 2 juillet à ses côtés, je criai dans la nuit. Je me souviens que j'agitais haut mes bras, pestais en flamboyant de vodka. Je ne me souviens pas précisément des mots qu'empoignait ma bouche.
Le 3 juillet je prenais une longue douche, m'habillais de ces colifichets que j'avais fulguremment oubliés depuis longtemps, après deux longs mois à traîner dans les rues. Je reconsidérais l'espace autour de moi, je le regardais dormir dans mon lit, épuisé d'un long trajet, long et douloureux. Il dit : « tu t'es maquillée ? » Je redeviens humaine, répondis-je.
Le 11 novembre à 11h52, je disparus.
Le 11 novembre à 11h53 je réapparus.
Le 11 novembre à 11h54 je me dis que nous étions morts à une fréquence de 86 400 secondes par jour et que nos actes étaient substanciellement vides. J'abandonnais vite cette considération sans fond et cette pénétration discursive de porte ouverte afin de me replonger dans ma disparition. Je plongeais ma tête sous l'eau dans l'évier parmi les assiettes sales et les pates pourries voguant à la surface. Je restais là une bonne heure.
Le 22 décembre je lui avouais vouloir être coiffeur d'oiseaux.
Le 1er janvier il ne m'aima pas.
Le 4 janvier je commençais à compter scrupuleusement les secondes où il ne m'aimait pas.
Le 18 janvier je souffrais de tout mon crâne devant une alouette blessée par un nuage. J'empoignais un chauffard et le secouais de tout mon bras gauche afin de faire fuir le nuage.
Le 22 janvier c'est vers cette période que mon lobe temporal gauche commença à rejeter définitivement et ce pour une période encore à ce jour imprécise, tout type de romans, essais, et autres types de constructions narratives concentrationnaires récitant pas toujours mais bien souvent des lieux communs, ainsi qu'on égrène un chapelet de loufoques tripes de porc. C'est vers cette époque que je transportais en permanence sur moi au moins sept livres de Notre Ami. Je ne supportais plus que Notre Ami. Il voulait qu'on lui fasse « des enfants dans le dos ». Il en aurait.
Le 28 janvier tout se passait bien, nous n'étions pas fous.
Le 10 février avec horreur, je lus quelques mièvreries mal déniaisées sur le web. Je trouvais confirmation de mon sentiment auprès d'un article du Matricule des Anges de l'année 1993. Qui valait ce qu'il valait. La mièvrerie n'est fâcheuse que si elle est célébrée. Une bande de grands malades mentaux célébraient cette mièvrerie. En 1993, j'avais quinze ans, je lisais Freud. Un blond m'aborda sur une plage de Corse sous le fallacieux prétexte que je lisais Freud. Quelques jours plus tard il jeta contre les carreaux de ma fenêtre trois feuilles tirebouchonnées. cette époque, je ne comprenais déjà pas le sentiment amoureux dire je t'aime à un cerveau connu depuis seulement 259 200 secondes me semblait issu de la plus grande démence. J'abandonnais Freud à quinze ans et demi. Freud était un con. Tout comme Sartre.
Le 10 février je lui parlais de poissons volants.
Le 12 février Les secondes où il ne m'aimait pas semblaient diminuer en fréquence.
Le 15 mars on me demanda de peindre un cri. Je songeais que je finirai probablement noyé dans la peinture, car le langage oral me semblait particulièrement impuissant et furieusement limité, quadrillé, rectangulaire comme un univers concentrationnaire, je ne souffrais plus que le transversal et les zones de turbulences atones. Je songeais à l'ancêtre Ernest Hello, qui se serait bien marré de tout ce merdier et de tous ces niais élucubratoires poisseux sur son oeuvre, moi j'avais compris, mais je ne disais rien, bien que la rage m'échauffait. Puis je songeais à Arthur Cravan, sans que je n'aie jamais su pourquoi par la suite.
Le 23 mars je lui demandais de m'offrir des cailloux bleus.
Le 29 mars il était fier de moi, sans que je n'aie jamais su pourquoi par la suite.
Le 1er avril sans que je n'aie jamais su pourquoi par la suite.
Le 2 avril il se passa un phénomène très curieux. Il revint à six heures du matin, et me dit avec force en me serrant comme un étau, qu'il m'aimait, qu'il m'aimait très fort, et qu'il s'en foutait si les gens se moquaient de nous parce qu'on vivait dans une cage à poules, et qu'il m'aimait, et que des fois il avait envie de me faire un enfant. Dans une cage à poules ? répondis-je. Il allait de soi qu'après toutes ces secondes à compter les secondes où il ne m'aimait pas, ma croyance en l'univers et ses vertus langagières auxquelles je n'avais de toute façon jamais beaucoup cru s'était sensiblement détériorée. Aussi lui répondis-je : moi-aussi je t'aime très fort {mais au fond, quelle importance, puisque tout est si aléatoire et croupissant comme un songe maudit}.
Le 3 avril un dégoût subit monta dans ma gorge. Toujours à cause de la mièvrerie. J'avais envie de noir partout. De noir de noir de noir. De disparaître de cet univers de fous. D'ailleurs, j'allais disparaître. Au fond quelle importance.
Le 4 avril je découvrais le mot « épatamment » dans le dictionnaire, découverte qui ne m'avançait pas vraiment, car c'était un mot laid et disgracieux, sans que je n'aie jamais su pourquoi par la suite.
Pollution d'invid. de tout un tas de trucs insignifiants - suite (ma joue sur la tienne).

Il n'y a que moi qui ai vu des choses belles en tout ça, l'autre acquiesçait, il était paresseux. En même temps, l'autre, peu importe l'autre, son vernis fut suffisant, son vernis m'a insufflé la joie de vivre, dix-huit dessins. Je ne retiens pas l'autre, je ne vais pas le bousiller parce qu'il n'y a pas vu de raison d'être. Ma raison d'être c'est vrai meurt d'en savoir d'autres qui n'en ont pas, mais après tout, ce qui reste c'est ce qu'il y a entre mes mains. C'est même d'avoir pu tirer de la vie d'un autre qui y acquiesçait tout en n'y croyant pas.

Elle supposait dans son bar de quartier qu'il s'était enfin décidé à mouiller l'ANPE et les annonces pour autre chose qu'elle. Il ne l'aurait pas fait pour elle. Il le faisait seulement pour partir. La vie grouillait maintenant à partir d'une seule absurdité. La vraie absurdité étaient en eux. L'art de l'absurdité, la totale absurdité, celle qui ne fait pas mal, n'est qu'en ceux qui ne la supportent pas, cette tranchante, injuste et autre absurdité de tous les jours qui au fond n'est que cruauté. Brève de comptoir. Elle dénoyaute la pression et l'autre, qui ressemble à une créature mi-RMI mi-chemin du non-retour acquiesce. Palabre. C'est inaudible.

Le lit était maintenant mort et vide. Ce qui pouvait tirer un être de son sommeil, n'était pas l'amour qu'on lui donnait, mais sa soif de vengeance, sur tout un tas de misérables choses. La performance était de prouver à un être qu'il ne vous aimait pas et qu'il était vraiment temps de se tirer. a réveillait les êtres, ce sentiment d'agonie et ce rappel de la naissance à l'air libre, sans rien sauf un ciseau qui vous tranche.
les périphériques de ta tornade, les heures centrifuges dans l'assèchement progressif des synapses. tes yeux dans mon cadavre, la petite douleur, même. matin midi (rien à foutre), je ravale mon apnée, bois la tasse, les tympans plein les poumons, rather ripped. la timidité des nuages, sous : les mots sous les ongles comme terre qu'on gratte, pathétique ponte plus loin, les mains dans la fosse à orgueils, glorioles, pets d'egos. là aussi, le jaune diurne blafarde malaise les mêmes façades, les grise, dans l'attente tangente : des réverbères, l'éclat orange ou l'ardeur livide des cristaux - la moitié de ton visage en miroir. l'autre moitié dans la pénombre du désir.
Temps (Merci de bien vouloir y mettre une majuscule)
Siècle
fuite
Nuit (Merci de bien vouloir y accoler systématiquement l'adjectif « noire »)
Mort (la) (Merci de bien vouloir y mettre une majuscule)
Tombe(s)/tombeau(x)
heure(s)
vent
Passé/ Présent (Merci de bien vouloir y mettre des majuscules)
Autrefois/Demain (Merci de bien vouloir y mettre des majuscules)
amour
bouche/sang/veines/coeur/corps/chair/oeil/main
solitude (vous êtes seul contre tous) (tous est indéterminé, sans importance)
révolte
monde
Vide (le) (Merci de bien vouloir y mettre une majuscule)
crire/criture (l') (Merci de bien vouloir y mettre des majuscules)
Langue/Verbe (Merci de bien vouloir y mettre des majuscules)
entendement/conscience/raison/imagination (en saupoudrer le tout aléatoirement)
Homme (Merci de bien vouloir y mettre une majuscule)
absence
Mot (Merci de bien vouloir y mettre une majuscule)
mémoire
mère(s)/père(s)/enfant(s)
horizon/Espace/Terre
pluie/eau/mer/océan/vagues
ciel/nuages/arbre(s)
route(s)/rue(s)/ville
mur(s)
horizontalité/verticalité (termes mélodieux et pratiques car pouvant auréoler le tout d'une vague substance intellectuelle)
silence
voix
CRI (N'oubliez surtout pas cet élément capital ! que vous utiliserez de préférence systématiquement accouplé au mot « Silence » ou « muet ») (vous pouvez même parler de « Silence muet ») (« Mon cri dans ce silence muet »)
Pierre(s)
« Mon Travail » (expression capitale) (« Mon Travail s'oriente essentiellement vers »).
GUERRE (essentiel)
DIEU(X) (essentiel)
Absolu
lumière/ombre ; vérité/mensonge ; passion/haine/amour/désir ; lenteur/vitesse, etc.

Nous rappelons qu'il est nécessaire, afin de procurer l'illusion de la diversité dans
votre langage procuré par votre tout nouveau générateur de phrases d'y insérer quelques mots savants et compliqués glanés au hasard de vos lectures dont vous aurez préalablement vérifié le sens dans le dictionnaire.

Conseils : Il est conseillé de jouer avec les antonymes, comme ci-après :

« Autrefois sera demain et demain ne sera jamais le présent d'autrefois qui ne sera plus passé ». (Ceci n'est formulé qu'à titre d'exemple).

« La lumière de ton ombre sera plus que jamais demain l'autrefois de mon présent. »
(Ceci n'est formulé qu'à titre d'exemple).

« La verticalité d'une heure sans temps ». (Ceci n'est formulé qu'à titre d'exemple).

Exercice pratique : composez trois textes courts en prose s'articulant autour des mots : vide, horizon, guerre, océan, monde, absence, nuit, pierre.

Réponses :
1. Dans le vide de l'horizon roucoule un monde en guerre où la pierre ne connaît plus la nuit seulement des océans d'absence.
2. Horizon_je n'ai plus d'océan_que ton absence, à scruter la nuit dans les_pierres de la ville, je ne cesse de faire la guerre à ce monde qui est si vide sans moi. Toi. Hum. toi.
3. L'océan de ma vie ne reflète qu'une guerre des mondes toujours plus coupante, comme les pierres, en ton absence qui me claque de nuits. L'horizon et le vide sont remplis de contractions.

Exercice panique : composez un texte final avec les 73 mots de votre nouveau générateur de phrases.

Réponse :

Dans ma bouche_le Temps s'accomplit
Et les rictus_des saisons vengent le Siècle_
La nuit noire peuple d'enfants ton Absence_
Le tombeau des heures pendule mes veines_
Le monde_sourde révolte_ somnole en apnée
Dans l'océan du Verbe, la mémoire de nos pères_
Fléchit l'horizon érosion de nos consciences
_L'homme somni-fer_consécration d'un passé sans visage_
L'oeil en carton posé sur les mains_
Comme des neiges_dans les arbres de nos solitudes_
L'amour sec comme une plateforme de désillusions_
L'estomac pendaison_des dieux informes_
L'horizontalité de nos veines_perforant le chemin_
Et la pluie dans tes mains_comme le mensonge du ciel_
Le corps fait de pain de didacticiels illogismes_
L'criture me pulse_je ne dors plus_je suis le torrent du Verbe_
Et la passion des nuages_sous ta peau_
Une vague profonde de maux sans mots_et d'écrits vains sans vin_
La verticalité des murs se dressent_dans le vide_
Je me battrai d'écume_les abattrai d'amertume_
L'espace autour_déclivé_l'apesanteur sonnée_
De nos âmes_dans les trous de la ville_
comme des cris_dans le silence des ciments_
Autrefois ne sera jamais qu'un demain sans présent_
Nos chairs battront de l'oeil_en guerre contre l'ombre_
Lumières jusqu'à l'infini_passions jusqu'à se rompre_
De nos_langues_sans raison.

_

_
_
_ _ _ (Le générateur de phrases vous prie de cesser immédiatement vos underscore. L'exercice est fini).

_
_
_ (Le générateur de phrases vous prie de cesser immédiatement).
__



Nous vous annonçons que vous avez réussi brillamment l'exercice, ayant même pris la liberté de nous bâtir une superbe allitération « horizon érosion » ainsi qu'un brillant jeu de mots vide « somni-fer ». a y est. Vous y êtes.

Nous allons passer maintenant à l'étape suivante. Votre carte de visite.

Vous devrez choisir entre trois dénominations, au choix : « écrivain », « poète » ou « auteur ».

Pressez sur la touche étoile si vous souhaitez être « poète ».
Pressez sur la touche dièse, si vous souhaitez être « écrivain ».
Pressez sur la touche 1, si vous souhaitez être « auteur ».

Maintenant, souriez à la caméra. D'un air profondément absorbé par l'horizon du ciel. Vous n'êtes pas là. Répétez après moi : vous n'êtes pas là. Vous avez renoncé à vous-même. Souriez. Ayez l'air inquiet/crispé/le front soucieux.

Maintenant pressez sur la touche 2. Est-ce que vous baisez. Je répète, est-ce que vous baisez ? Flattez-moi. Est-ce que vous baisez ? Flattez-moi. Est-ce que vous baisez. Je répète, est-ce que vous baisez ?

Pressez sur la touche 3. Votre vanité sortira bientôt automatiquement de votre bouche à chaque fois que vous l'ouvrirez.
Vouloir signifier ne serait-ce
Qu'une cohésion à laquelle
Vouloir sacrifier des sur-réels faciles

Invoquer un rythme
Y
Immoler l'idée
     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);

 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";

 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";

 function longLinenoise($myImage,$dimImage,$strength,$freq) { 	$indexWhite = imagecolorexact($myImage,255,255,255);
$indexBlack = imagecolorexact($myImage,0,0,0);

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

if(isCloseColor($myImage,$currColor,255,255,255,10)) continue;

$nb_lignes = rand(1,intval($strength/10));
$length = rand(intval($strength/5),$strength);
drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$length);
} } } } function drawLignes($myImage,$dimImage,$color,$x,$y,$nb_lignes,$max_length) { for($i = 0 ;
$i < $nb_lignes ;
$i++) { $xmin = $x-$max_length;
if($xmin < 0) $xmin = 0;
$ymin = $y-$max_length;
if($ymin < 0) $ymin = 0;
$xmax = $x+$max_length;
if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
$ymax = $y+$max_length;
if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
$x2 = rand($xmin,$xmax);
$y2 = rand($ymin,$ymax);
while(sqrt(pow($x2-$x,2) + pow($y2-$y,2)) > $max_length) { $xmin = $x-$max_length;
if($xmin < 0) $xmin = 0;
$ymin = $y-$max_length;
if($ymin < 0) $ymin = 0;
$xmax = $x+$max_length;
if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
$ymax = $y+$max_length;
if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
$x2 = rand($xmin,$xmax);
$y2 = rand($ymin,$ymax);
} imageline($myImage,$x,$y,$x2,$y2,$color);
$x = $x2;
$y = $y2;
} } function invertnoise($myImage,$dimImage,$strength) { $indexBlack = imagecolorexact($myImage,0,0,0);
if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);

$indexWhite = imagecolorexact($myImage,255,255,255);
if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);

$currColor = imagecolorat($myImage,0,0);
for($i = 0 ;
$i < $dimImage[0] ;
$i++) { for($j = 0 ;
$j < $dimImage[1] ;
$j++) { if(rand(1,100) >= $strength) { } else { $currColor = imagecolorat($myImage,$i,$j);
if($currColor == $indexBlack) imagesetpixel($myImage,$i,$j,$indexWhite);
if($currColor == $indexWhite) imagesetpixel($myImage,$i,$j,$indexBlack);
} } } }

  sub deuxiemePassage {  	my $ligne;
my $indLigne;
my $lastRatio;
my $compteur = 0;
my $poeme = undef;

while(<fREC>) {
chomp;
$ligne = $_;
my @Ligne = split(/\s+/,$ligne);

if($poeme) { &retournementPoetivites ($poeme);
}
$poeme = $1;

$compteur++;
print fLOG "\tPoeme " . $compteur . " : " . $poeme . "\n";
$indLigne = 0;
$lastRatio = undef;
next;
}
my $nbMotsLigne = scalar(@Ligne);

if($nbMotsLigne == 0) { next;
}
my $mot;

$indLigne++;

for(my $indMot = 1 ;
$indMot <= $nbMotsLigne ;
$indMot++) {
$mot = $Ligne[$indMot-1];

if(exists($Symboles{$mot})) { next;
} if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { next;
}
$mot = &nettoieMot($mot);


my $poetivite = 0;

$poetivite += max(values(%Mots)) / $Mots{$mot};

my $nbLettresMot = length($mot);
$poetivite *= abs($nbLettresMot - $Recueil{$poeme}{"longueur_mot_moyenne"});

$poetivite *= 1 + $indLigne / $Recueil{$poeme}{"nombre_lignes"};

$poetivite *= 1 + $indMot / $nbMotsLigne;

my @Mot = split(//,$mot);
my $nbVoyelles = 0;
my $nbConsonnes = 0;
my $nbSymboles = 1;
foreach my $lettre (@Mot) { if (exists $Voyelles{$lettre}) { $Voyelles{$lettre}++;
$nbVoyelles ++;
} else { if (exists $Consonnes{$lettre}) { $Consonnes{$lettre}++;
$nbConsonnes ++;
} else { if (exists $Symboles{$lettre}) { $Symboles{$lettre}++;
$nbSymboles ++;
} else { print "Lettre $lettre non identifiable dans $mot à la ligne $indLigne\n";
next;
} } } } if($mot =~ m/au/) {$nbVoyelles--;
}
my $ratio = $nbVoyelles / $nbLettresMot;

if($ratio == 0 || $ratio == 1) { $poetivite *= $nbLettresMot;
if($lastRatio) { if(($lastRatio - $ratio) == 0) { $poetivite *= $nbLettresMot * $nbLettresMot;
} } } else { if($ratio < (1/3)) { $poetivite *= 1/$ratio;
if($lastRatio) { if($ratio <= $lastRatio) { $poetivite *= $lastRatio / $ratio + 1;
} } } else { if($ratio > (2/3)) { $poetivite *= 1/(1-$ratio);
if($lastRatio) { if($ratio >= $lastRatio) { $poetivite *= $ratio / $lastRatio + 1;
} } } else {$poetivite *= 1;
} } } $lastRatio = $ratio;


if($mot =~ /'/) {$nbSymboles--;
} $poetivite *= 1 + $nbSymboles;

if (exists $Symboles{$Mot[0]}) { $poetivite *= 1 + $nbSymboles;
}
$poetivite = int($poetivite + 0.5);
push(@{$Recueil{$poeme}{"Mots"}{$mot}},$poetivite);

}
}
&retournementPoetivites($poeme);
}

  sub deuxiemePassage {  	my $ligne;
my $indLigne;
my $lastRatio;
my $compteur = 0;
my $poeme = undef;

while(<fREC>) {
chomp;
$ligne = $_;
my @Ligne = split(/\s+/,$ligne);

if($poeme) { &retournementPoetivites ($poeme);
}
$poeme = $1;

$compteur++;
print fLOG "\tPoeme " . $compteur . " : " . $poeme . "\n";
$indLigne = 0;
$lastRatio = undef;
next;
}
my $nbMotsLigne = scalar(@Ligne);

if($nbMotsLigne == 0) { next;
}
my $mot;

$indLigne++;

for(my $indMot = 1 ;
$indMot <= $nbMotsLigne ;
$indMot++) {
$mot = $Ligne[$indMot-1];

if(exists($Symboles{$mot})) { next;
} if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { next;
}
$mot = &nettoieMot($mot);


my $poetivite = 0;

$poetivite += max(values(%Mots)) / $Mots{$mot};

my $nbLettresMot = length($mot);
$poetivite *= abs($nbLettresMot - $Recueil{$poeme}{"longueur_mot_moyenne"});

$poetivite *= 1 + $indLigne / $Recueil{$poeme}{"nombre_lignes"};

$poetivite *= 1 + $indMot / $nbMotsLigne;

my @Mot = split(//,$mot);
my $nbVoyelles = 0;
my $nbConsonnes = 0;
my $nbSymboles = 1;
foreach my $lettre (@Mot) { if (exists $Voyelles{$lettre}) { $Voyelles{$lettre}++;
$nbVoyelles ++;
} else { if (exists $Consonnes{$lettre}) { $Consonnes{$lettre}++;
$nbConsonnes ++;
} else { if (exists $Symboles{$lettre}) { $Symboles{$lettre}++;
$nbSymboles ++;
} else { print "Lettre $lettre non identifiable dans $mot à la ligne $indLigne\n";
next;
} } } } if($mot =~ m/au/) {$nbVoyelles--;
}
my $ratio = $nbVoyelles / $nbLettresMot;

if($ratio == 0 || $ratio == 1) { $poetivite *= $nbLettresMot;
if($lastRatio) { if(($lastRatio - $ratio) == 0) { $poetivite *= $nbLettresMot * $nbLettresMot;
} } } else { if($ratio < (1/3)) { $poetivite *= 1/$ratio;
if($lastRatio) { if($ratio <= $lastRatio) { $poetivite *= $lastRatio / $ratio + 1;
} } } else { if($ratio > (2/3)) { $poetivite *= 1/(1-$ratio);
if($lastRatio) { if($ratio >= $lastRatio) { $poetivite *= $ratio / $lastRatio + 1;
} } } else {$poetivite *= 1;
} } } $lastRatio = $ratio;


if($mot =~ /'/) {$nbSymboles--;
} $poetivite *= 1 + $nbSymboles;

if (exists $Symboles{$Mot[0]}) { $poetivite *= 1 + $nbSymboles;
}
$poetivite = int($poetivite + 0.5);
push(@{$Recueil{$poeme}{"Mots"}{$mot}},$poetivite);

}
}
&retournementPoetivites($poeme);
}

 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";

  sub deuxiemePassage {  	my $ligne;
my $indLigne;
my $lastRatio;
my $compteur = 0;
my $poeme = undef;

while(<fREC>) {
chomp;
$ligne = $_;
my @Ligne = split(/\s+/,$ligne);

if($poeme) { &retournementPoetivites ($poeme);
}
$poeme = $1;

$compteur++;
print fLOG "\tPoeme " . $compteur . " : " . $poeme . "\n";
$indLigne = 0;
$lastRatio = undef;
next;
}
my $nbMotsLigne = scalar(@Ligne);

if($nbMotsLigne == 0) { next;
}
my $mot;

$indLigne++;

for(my $indMot = 1 ;
$indMot <= $nbMotsLigne ;
$indMot++) {
$mot = $Ligne[$indMot-1];

if(exists($Symboles{$mot})) { next;
} if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { next;
}
$mot = &nettoieMot($mot);


my $poetivite = 0;

$poetivite += max(values(%Mots)) / $Mots{$mot};

my $nbLettresMot = length($mot);
$poetivite *= abs($nbLettresMot - $Recueil{$poeme}{"longueur_mot_moyenne"});

$poetivite *= 1 + $indLigne / $Recueil{$poeme}{"nombre_lignes"};

$poetivite *= 1 + $indMot / $nbMotsLigne;

my @Mot = split(//,$mot);
my $nbVoyelles = 0;
my $nbConsonnes = 0;
my $nbSymboles = 1;
foreach my $lettre (@Mot) { if (exists $Voyelles{$lettre}) { $Voyelles{$lettre}++;
$nbVoyelles ++;
} else { if (exists $Consonnes{$lettre}) { $Consonnes{$lettre}++;
$nbConsonnes ++;
} else { if (exists $Symboles{$lettre}) { $Symboles{$lettre}++;
$nbSymboles ++;
} else { print "Lettre $lettre non identifiable dans $mot à la ligne $indLigne\n";
next;
} } } } if($mot =~ m/au/) {$nbVoyelles--;
}
my $ratio = $nbVoyelles / $nbLettresMot;

if($ratio == 0 || $ratio == 1) { $poetivite *= $nbLettresMot;
if($lastRatio) { if(($lastRatio - $ratio) == 0) { $poetivite *= $nbLettresMot * $nbLettresMot;
} } } else { if($ratio < (1/3)) { $poetivite *= 1/$ratio;
if($lastRatio) { if($ratio <= $lastRatio) { $poetivite *= $lastRatio / $ratio + 1;
} } } else { if($ratio > (2/3)) { $poetivite *= 1/(1-$ratio);
if($lastRatio) { if($ratio >= $lastRatio) { $poetivite *= $ratio / $lastRatio + 1;
} } } else {$poetivite *= 1;
} } } $lastRatio = $ratio;


if($mot =~ /'/) {$nbSymboles--;
} $poetivite *= 1 + $nbSymboles;

if (exists $Symboles{$Mot[0]}) { $poetivite *= 1 + $nbSymboles;
}
$poetivite = int($poetivite + 0.5);
push(@{$Recueil{$poeme}{"Mots"}{$mot}},$poetivite);

}
}
&retournementPoetivites($poeme);
}

 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";

soreilles guines
pleurent sortes de lames larmées
tristes 500

j'ai les yeux pulses, aux aguets, le front bombé d'irradiances
à force d'avorter des vers dans l'oeuf -
veux dès lors parler comme un microprocesseur

inVidé par nikola akileus :: 12122011