pour sauver notre planète : Cliquez ici

déficit d'empathie à grande échelle

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

La vie est un livre dont vous n'êtes pas le héros.

mangé de la paella, j'ai la langue jaune, on dirait qu'elle est punk !

"arme blanche" spectroming...

JE FLAIRE TA BOUCHE OUVERTE EN TREMBLANT.

j'ai été conçu pour être oublié

j'entends les gens, dans la rue. ils rient, ils parlent fort. ils ne savent pas pour invidation.

Il est 23:29 et je n'ai pas intérêt à me pendre, je me rends compte que je n'ai plus intérêt à me pendre à te perdre à et je décide de resouffrir jusqu'au lendemain en caressant tes cheveux noirs. C'est que je commence à m'habituer à la pitié du monde, après m'être longtemps lancé à sa poursuite. Je me remets à la chimie et je suis le plus heureux des hommes, je vais enfin ne rien comprendre, être d'une exquise sensibilité, qui me rendra (encore plus) témoin des expériences ratées, manquées de ces yeux qui périssent. Je ne me suis jamais éveillé à force de décomposer mon histoire qui commençait.

J'aime une machine précieuse qui cause à voix basse. Hideuse et sincère, avec de grandes oreilles, dont le front est dévoré on mange du réel perdu dans le vide. On sait compter. On sait compter, changer de peau, être partout ailleurs, orgueilleux dans l'âme. Renverser nos idées pour l'imitation. �tre superstitieux d'égoïsme, d'un éclat ridicule. En harmonie avec nos entrailles.

je m'appelle Jhonn Mantisse et tout recommence sans cesse. tout s'interpénètre au niveau des cavités accélératrices (qu'ils disent). j'ai les yeux rouges et je leade le lab. on est trois, en première approximation. Simon, Bethane et moi. j'ai la mémoire centripète, ça va me revenir.

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

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

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

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