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
"Notre logiciel veillera cependant à ce que les variations de langue insérées dans ces contenus restent assimilables, et y injectera périodiquement des jeux de mise à distance, des effets ironiques qui flatteront le consommateur aisé, qui n'accepte d'être dupe qu'à l'issue d'un pacte de connivence, qu'il interprètera comme une alliance de classe."





En étude : un paquet d'organes brouillons, au milieu duquel une vive douleur m'élance. Jour 44 : je ne sais toujours pas ce que j'ai. Ma souris marche mal, moi-même je marche mal, tout déconne, notamment le U. J'arrive à atteindre quelques lieux déserts (aujourd'hui par exemple assassinés de soleil et d'une chaleur coulante, abrupte) où des silhouettes de chats faméliques se découpent brutalement sur fond de hangars métalliques. J'ai traité quelques souvenirs (trois aujourd'hui exactement) sans bien savoir si tout cela allait me mener quelque-part, ni si même ça allait intéresser les autres - quoique depuis longtemps, en vérité, et même si on ne s'en détache jamais tout à fait totalement, j'ai cessé de vouloir intéresser les autres. C'est difficile pour moi d'arpenter comme autrefois la ville oblique, je tâte mes poches - vides - je porte à mes lèvres des verres - vides. C'est difficile pour moi, de continuer sans rien - sauf moi. Difficile d'envisager que mon corps puisse se débrouiller seul, sans béquilles.

ahem.

ptain, mais...

en pleine spectromie : Illegal division by zero at poemachine.pl line 561, <fREC> line 96.

EREINTIQUE ###4

montre-dents
remotely queued voire not shared
qu'épingler sinon la lenteur ,se blacklister ,fermer ses ports
aux attaches effilochées ,engrenages de dérives

« nébuleuse, nébuleuse, nébuleuse »
,balbutiait-elle encore cette foutue pénombre – à verse
trace-moi une nébuleuse ,quelque chose comme le vide ,l'invidation
irradiante qu'une spectrométrie pourrait faire plus que propension oooooh



corbaks reliefs (tri.x under drone)

 l'oreille en foreuse
les os craquent
l'ego aigu
en drill dissidence
descente crisse
et croassera :

frrroids autant de tombes
re-cyclées
qu'espoire entre/mieux excarne(r)
qu'nous vides chtones
les
pourvoyons coprophages.rares
prétendant(s) hanter
parés de piètres
noirceurs au seuil
événementiel de l'ici



NU

 Image Hosted by ImageShack.us



The_Lokd_Variations-ADVANCE_PS-2007-IINVIID

 sur le
bord la
fract//fêl//
_ure une balustrade baliste à rebord pendule hyperiodique (T a lustres @ rebours)
nuée chlore rosée ici
main s'acide sans regret
cornées se corrodent de vapes

je contemplais la fissure
depuis déjà deux jours
après jour les yeux ravagés
comme crénelés pourtant
n'ai que récemment réalisé
que ne contemplais _ la fissure
mais le monde depuis _ elle
j'étais déjà dans la fissure
et le monde semblait y être
aussi



version 7.1 :0ver__

 Image Hosted by ImageShack.us



Quink élaborait des combinaisons répétitives dans sa petite cabane sous les toits de Paris. Tour à tour toile en lin, diapositive, photographie, film, Quink se transfigurait sans suite, ne sachant exactement dans quel domaine de la création poursuivre sa grande entreprise. Quink touchait à tout sans rien pénétrer, il ne jouissait jamais ou alors furtivement, presque honteux. Son activité la plus fébrile était la construction de scénarios, notamment la mise à mort violente de son père au milieu de filles dévêtues. À part tous ces mets sans consistance qui l'occupaient mollement, Quink ne faisait rien de ses journées, il en devenait maladivement vorace et ressassait sans relâche le gâchis de sa grandeur hollywoodienne, enfermée dans un taudis, ignorée de tous, incomprise par l'homme. Quink se demandait s'il finirait vautré dans de la nourriture pour chat, terrassé par une crise cardiaque.



- zer0 -

 Image Hosted by ImageShack.us



version 1.2 :Evo 2.0

 Image Hosted by ImageShack.us



just

 l'Irraison, paon d'antimatière, énième monolithe, énième mausolée, dont Purplerogger fut le premier honoré. du moins ce qu'il resta de son corps, après que #586 l'eût scrupuleusement atomeasé, hommage à un prunier géant, précurseur de la singularité d'une certaine manière dans son contre-jour traumatisant. 586, singe 2001, sans relâche, les yeux sur l'horizon qui s'emplit du Yin cosmique, planètes écarlates d'un autre paradigme, répète et tue : "le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon oeil le cerveau dans mon frigidaire ne revendique rien, encore moins la galaxie qui liquéfie mon cerveau"



J'ai écrit pendant des mois une longue histoire faite de dents, de cris et d'élastiques pour cheveux, de mains crispées et de poignards, de fenêtres et de caves, je n'ai pas mentionné les noms de rue et je crois n'avoir pas croisé un regard. J'ai parachuté mes associés dans un réservoir, liquidé mes actions. Je ne me souviens pas avoir jamais été aussi seul. Je me suis déporté dans une chambre d'hôtel.

Quand j'eus fini cette histoire, il ne resta rien sauf un sinistre silence. Des signes cabalistiques. Un peu de sang d'oiseau, et des fourchettes entre mes mains.

Je me suis enfui plusieurs fois dans des bars, cherchant le liquide et l'histoire et ma peau. J'ai dessiné les autres, par peur de m'avouer que j'étais seul. J'ai continué à chercher leurs rires et peut-être à inventer des larmes. J'ai baragouiné des trucs sans intérêts. Je me perdais souvent dans des parcs interdits aux chiens. Vers la fin de la nuit j'étais désorienté ; le matin j'avais des bleus. Je faisais des conférences de presse en bas de chez moi, je sautais du rez-de-chaussée.

Les possibles raccourcis que j'utilisais étaient des scénarios fluets qui ne me permettaient même pas d'accéder à leur vraie profondeur. On ne me donnait que des peaux, autant dire des lambeaux. Rien ne fonctionnait.

J'écoutais des sommités du jazz et des lessivés du porno. J'écourtais mes rendez-vous pour finir en queue de poisson. Je haïssais mon logement, mes chaussures et mes parents. Mais plus que tout, j'avais perdu une histoire. Elle s'éparpillait en mille feuillets, gribouillés de soif et de stylo-à-ongles, de lime-à-bille et de déroute. Je la vendais au tout-venant, mais elle me collait la rétine, je la voyais partout et j'entendais la pluie.

--
La pluie – des fractions de silence – la pluie des fractions de silence, mon visage sous le coude. Dans la chambre Jessica Jennifer. Avant : Marje et Acapulco. Je ne sais rien.

J'avais laissé Marje près d'un pré de bétons, armé de pluie le silence tombait, nous coupait les vertèbres et elle s'éloignait un peu luisante, fourchue de larmes, à essuyer hâtivement avec impatience et peut-être un peu de rage ses larmes, le silence tombait les pieds cuisant, les cuisses Marje éclaboussait le marbre.

J'avais laissé Marje sur un rythme dans mon crâne à l'évidence obèse à trente ans déjà courbaturé de solitude l'envie de tout épier de tout bouffer de grignoter, de ne pas se satisfaire. J'avais laissé Marje cette pauvre chips ; à ne pas me satisfaire ou à me satisfaire autrement. Je lui avais bousillé l'espoir, j'avais pris soin de lui faire peur.

J'avais laissé Marje parce qu'elle passait son temps à se décrire et se dire exception, et se dire, elle hurlait Oh Seigneur Oh moi. Oh moi Marje j'me suis passé un savon à l'enfance j'ai les paupières veilurées un tabernacle à l'œil droit reste-t-il du saucisson la vie est dure, comprenons-nous bien oh moi Marje je déjeune souvent avec mon ombre vers République c'est plutôt sympathique sauf que je ne sais pas son nom.

Il y a des récurrences comme ces matins où je ne comprends plus rien et où ça me satisfait, ou je berce l'espoir de continuer à ne rien comprendre et à dire des jurons, à peut-être devenir une plante ou un bœuf, quelque-chose qui s'accroche à une drogue peut-être, il y a des récurrences comme ces matins où je commence à comprendre.



Quink élaborait des combinaisons répétitives dans sa petite cabane sous les toits de Paris. Tour à tour toile en lin, diapositive, photographie, film, Quink se transfigurait sans suite, ne sachant exactement dans quel domaine de la création poursuivre sa grande entreprise. Quink touchait à tout sans rien pénétrer, il ne jouissait jamais ou alors furtivement, presque honteux. Son activité la plus fébrile était la construction de scénarios, notamment la mise à mort violente de son père au milieu de filles dévêtues. À part tous ces mets sans consistance qui l'occupaient mollement, Quink ne faisait rien de ses journées, il en devenait maladivement vorace et ressassait sans relâche le gâchis de sa grandeur hollywoodienne, enfermée dans un taudis, ignorée de tous, incomprise par l'homme. Quink se demandait s'il finirait vautré dans de la nourriture pour chat, terrassé par une crise cardiaque.







cyclops revolution

 écrire un texte qui s'appellerait superjudge de monster magnet
on parlerait de nicolas marti, des grave parties, de la vallée violette, de l'alouette, d'alice, … du rêve, de l'intensité, de l'adolescence
d'emmaüs à vendôme, de cracovie
de l'alcool
des paroles du disque, traduites le plus souvent par n m
laurent turpault, bruno berson, rémi guillaume, marti's, fr, etc (liste à complèter)
des premiers baisers, de séverine bartal
ça me déchire le cœur
la bonne musique me fait le même effet que le sexe (aussi fort, voire plus) ; du coup je ne peux en écouter avec ma copine, ça me déconcentre.



Quink élaborait des combinaisons répétitives dans sa petite cabane sous les toits de Paris. Tour à tour toile en lin, diapositive, photographie, film, Quink se transfigurait sans suite, ne sachant exactement dans quel domaine de la création poursuivre sa grande entreprise. Quink touchait à tout sans rien pénétrer, il ne jouissait jamais ou alors furtivement, presque honteux. Son activité la plus fébrile était la construction de scénarios, notamment la mise à mort violente de son père au milieu de filles dévêtues. À part tous ces mets sans consistance qui l'occupaient mollement, Quink ne faisait rien de ses journées, il en devenait maladivement vorace et ressassait sans relâche le gâchis de sa grandeur hollywoodienne, enfermée dans un taudis, ignorée de tous, incomprise par l'homme. Quink se demandait s'il finirait vautré dans de la nourriture pour chat, terrassé par une crise cardiaque.



version 1.2 :Evo 2.0

 Image Hosted by ImageShack.us



) Death of the moon (

 

 sub poedilation { 	my $poeme = $_[0];
 	my $degre = $_[1];
 
  	open fPOE, ">" . $poeme . ".txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 	open fPTE, ">" . $poeme . "_pte.txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 
  	foreach my $ligne (sort( {$a <=> $b} keys(%{$SampledRecueil{$poeme}}))) { 
  		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 0) { 			print fPOE "\n";
 			next;
 		} 
 		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 1) { 			print fPOE ${$SampledRecueil{$poeme}{$ligne}{"mots"}}[0] . "\n";
 			print fPTE ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0] . "\n";
 			next;
 		} 
 		my @finalLine;
 		my @finalPoe;
  		for (my $i = 0 ;
 $i < $degre ;
 $i++) { 
 			my @newLine;
 			my @newPoetivites;
 
  			while(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 1) { 
 				my $motAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}});
  				my $poeAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}});
  				my $interpol = int(($poeAvant + ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0]) / 2);
 
  				if(exists($Poetivites{$poeme}{$interpol})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol}})))]);
 					push(@newPoetivites,$interpol);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol-1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol-1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol-1}})))]);
 					push(@newPoetivites,$interpol-1);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol+1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol+1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol+1}})))]);
 					push(@newPoetivites,$interpol+1);
 					next;
 
 				} 
  				my @poetivikeys = sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}));
 				my $avant = $poetivikeys[0];
 				my $apres = 0;
 				foreach my $poetivitest (@poetivikeys) { 
 					next if($poetivitest == $avant);
 					if($poetivitest > $interpol) { 						$apres = $poetivitest;
 						last;
 					} 					$avant = $poetivitest;
 
 				} 
 				if(($interpol - $avant) > ($apres - $interpol)) { 					push(@newLine,${$Poetivites{"recueil"}{$apres}}[int(rand(scalar(@{$Poetivites{"recueil"}{$apres}})))]);
  					push(@newPoetivites,$apres);
 				} else { 					push(@newLine,${$Poetivites{"recueil"}{$avant}}[int(rand(scalar(@{$Poetivites{"recueil"}{$avant}})))]);
  					push(@newPoetivites,$avant);
 				} 
 			} 
 			if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 0) { 				push(@newLine,shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}));
 				push(@newPoetivites,shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}}));
 			} 			@{$SampledRecueil{$poeme}{$ligne}{"mots"}} = @newLine;
 			@finalLine = @newLine;
 			@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}} = @newPoetivites;
 			@finalPoe = @newPoetivites;
 
 		} 
 		foreach my $motfinal (@finalLine) { 			print fPOE $motfinal . " ";
 		} 		foreach my $poefinale (@finalPoe) { 			print fPTE $poefinale . " ";
 		} 		print fPOE "\n";
 		print fPTE "\n";
 
 	} 
 	print "\n\npoedilation OK ! (voir " . $poeme . ".txt, " . $poeme . "_pte.txt pour le spectre)\n";
 	close fPOE;
 	close fPTE;
 
 } 

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

 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 poedilation { 	my $poeme = $_[0];
 	my $degre = $_[1];
 
  	open fPOE, ">" . $poeme . ".txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 	open fPTE, ">" . $poeme . "_pte.txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 
  	foreach my $ligne (sort( {$a <=> $b} keys(%{$SampledRecueil{$poeme}}))) { 
  		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 0) { 			print fPOE "\n";
 			next;
 		} 
 		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 1) { 			print fPOE ${$SampledRecueil{$poeme}{$ligne}{"mots"}}[0] . "\n";
 			print fPTE ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0] . "\n";
 			next;
 		} 
 		my @finalLine;
 		my @finalPoe;
  		for (my $i = 0 ;
 $i < $degre ;
 $i++) { 
 			my @newLine;
 			my @newPoetivites;
 
  			while(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 1) { 
 				my $motAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}});
  				my $poeAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}});
  				my $interpol = int(($poeAvant + ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0]) / 2);
 
  				if(exists($Poetivites{$poeme}{$interpol})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol}})))]);
 					push(@newPoetivites,$interpol);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol-1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol-1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol-1}})))]);
 					push(@newPoetivites,$interpol-1);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol+1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol+1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol+1}})))]);
 					push(@newPoetivites,$interpol+1);
 					next;
 
 				} 
  				my @poetivikeys = sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}));
 				my $avant = $poetivikeys[0];
 				my $apres = 0;
 				foreach my $poetivitest (@poetivikeys) { 
 					next if($poetivitest == $avant);
 					if($poetivitest > $interpol) { 						$apres = $poetivitest;
 						last;
 					} 					$avant = $poetivitest;
 
 				} 
 				if(($interpol - $avant) > ($apres - $interpol)) { 					push(@newLine,${$Poetivites{"recueil"}{$apres}}[int(rand(scalar(@{$Poetivites{"recueil"}{$apres}})))]);
  					push(@newPoetivites,$apres);
 				} else { 					push(@newLine,${$Poetivites{"recueil"}{$avant}}[int(rand(scalar(@{$Poetivites{"recueil"}{$avant}})))]);
  					push(@newPoetivites,$avant);
 				} 
 			} 
 			if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 0) { 				push(@newLine,shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}));
 				push(@newPoetivites,shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}}));
 			} 			@{$SampledRecueil{$poeme}{$ligne}{"mots"}} = @newLine;
 			@finalLine = @newLine;
 			@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}} = @newPoetivites;
 			@finalPoe = @newPoetivites;
 
 		} 
 		foreach my $motfinal (@finalLine) { 			print fPOE $motfinal . " ";
 		} 		foreach my $poefinale (@finalPoe) { 			print fPTE $poefinale . " ";
 		} 		print fPOE "\n";
 		print fPTE "\n";
 
 	} 
 	print "\n\npoedilation OK ! (voir " . $poeme . ".txt, " . $poeme . "_pte.txt pour le spectre)\n";
 	close fPOE;
 	close fPTE;
 
 } 

 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;
 use Getopt::Long;
 use List::Util qw( max );
  my %Symboles = ("'"=> 0, 				"-"=> 0, 				"_"=> 0, 				"'"=> 0, 				"\""=> 0, 				"\\"=> 0, 				"/"=> 0,  				"|"=> 0, 				"«"=> 0, 				"»"=> 0, 				"°"=> 0, 				","=> 0, 				";
"=> 0, 				"."=> 0, 				"`"=> 0, 				":"=> 0, 				"~"=> 0, 				"{"=> 0, 				"}"=> 0, 				"["=> 0, 				"]"=> 0, 				"("=> 0, 				")"=> 0, 				"+"=> 0, 				"="=> 0, 				"<"=> 0, 				">"=> 0, 				"*"=> 0, 				"²"=> 0, 				"³"=> 0, 				"?"=> 0, 				"%"=> 0, 				"\$"=> 0, 				"@"=> 0, 				"±"=> 0, 				"^"=> 0, 				"¨"=> 0, 				"¯"=> 0, 				"0"=> 0, 				"9"=> 0, 				"8"=> 0, 				"7"=> 0, 				"6"=> 0, 				"5"=> 0, 				"4"=> 0, 				"3"=> 0, 				"2"=> 0, 				"1"=> 0, 				);
 my %Voyelles = ("a"=> 0, 				"à"=> 0, 				"â"=> 0, 				"ä"=> 0, 				"á"=> 0, 				"e"=> 0, 				"è"=> 0, 				"é"=> 0, 				"ê"=> 0, 				"ë"=> 0, 				"i"=> 0, 				"î"=> 0, 				"ï"=> 0, 				"ì"=> 0, 				"í"=> 0, 				"o"=> 0, 				"ô"=> 0, 				"ö"=> 0, 				"ò"=> 0, 				"ó"=> 0, 				"u"=> 0, 				"û"=> 0, 				"ü"=> 0, 				"ù"=> 0, 				"ú"=> 0, 				"y"=> 0, 				"A"=> 0, 				"E"=> 0, 				"I"=> 0, 				"O"=> 0, 				"U"=> 0, 				"Y"=> 0, 				);
  my %Consonnes = ("b"=> 0, 				"c"=> 0, 				"ç"=> 0, 				"d"=> 0, 				"f"=> 0, 				"g"=> 0, 				"h"=> 0, 				"j"=> 0, 				"k"=> 0, 				"l"=> 0, 				"m"=> 0, 				"n"=> 0, 				"p"=> 0, 				"q"=> 0, 				"r"=> 0, 				"s"=> 0, 				"t"=> 0, 				"v"=> 0, 				"w"=> 0, 				"x"=> 0, 				"z"=> 0, 				"B"=> 0, 				"C"=> 0, 				"D"=> 0, 				"F"=> 0, 				"G"=> 0, 				"H"=> 0, 				"J"=> 0, 				"K"=> 0, 				"L"=> 0, 				"M"=> 0, 				"N"=> 0, 				"P"=> 0, 				"Q"=> 0, 				"R"=> 0, 				"S"=> 0, 				"T"=> 0, 				"V"=> 0, 				"W"=> 0, 				"X"=> 0, 				"Z"=> 0, 				);

  my $recueilFile;
  if ( !GetOptions ( 		'recueil=s' =>    \$recueilFile 		) ) { 	print "!!! Erreur dans la lecture de la ligne de commande\n";
 	exit(-1);
 }  if ( !defined $recueilFile ) { 	print "!!! Aucun fichier spécifié (option -recueil) !!\n";
 	exit(-1);
 }  my %Recueil;
 my %Mots;
  print "\nOuverture du recueil...\n";
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
        #    print "\n\nPremier passage...\n\n";
 &premierPassage;
  close fREC;
        #    print "\n\nDeuxième passage...\n\n";
 my %Poetivites;
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
 my $logFile;
 if($recueilFile =~ m/^(\S+)\.\w+$/) { 	$logFile = $1;
 } else { 	$logFile = $recueilFile;
 } $logFile .= "_log.txt";
 open fLOG, ">$logFile" or die "Impossible de créer le fichier log !\n";
 &deuxiemePassage;
 close fREC;
 close fLOG;

4.0.1-erreur


combien poursuivi par la tragique des cubes
débités ici en fines lamelles afin de
  • mettre terme (mise aplat de l'obsessose)
  • révéler leur cœur-core-carré (c3)
  • constater en leur claie qu'ils
                      sont eux-mêmes faits de la même matrice
                      qui fait l'infinité de leur immanence, etc.

inVidé par nikola akileus :: 16042012