Da moulinette pour concours - v0.95 - perl

Recherche :

Mot : Pseudo : Filtrer
Page : 1 2 Page Suivante Page Précédente Bas de page
Auteur	Sujet : Da moulinette pour concours - v0.95 - perl

Toxin

Carpe ★★ Vitam

Voici la moulinette, encore très imparfaite qui permet de dépouiller les votes.

Code :

#!\Perl\bin\perl.exe -s
#!/usr/bin/perl -s
#######################################################
# DA MOULINETTE DE GESTION DES VOTES DES CONCOURS HFR #
#######################################################
# Version actuelle : v0.95 - 19/05/2008
# -----------------------------------------------------
#
# HISTORIQUE :
# ------------
# Version | date | Auteur | Notes
# v0.9 | 22/11/2006 | Toxin | Creation
# v0.91 | 23/11/2006 | Toxin | Gere le nombre de premieres place etc...
# en cas d'egalite de scores
# v0.92 | 23/11/2006 | Toxin | Gere les votes en double et rejette le bloc de 6 votes.
# Optimisation du code pour les structures conditionnelles.
# v0.93 | 27/11/2006 | Toxin | Affiche le nombre de votants
# v0.94 | 15/01/2007 | Toxin | Prend maintenant correctement en compte les pseudos composes
# v0.94 dite Michel Bouge Bouge.
# v0.95 | 19/05/2008 | Toxin | Est Maintenant capable de gerer une syntaxe #01 -> #16 pour les votes.
#
#######################################################
#
# USAGE :
# -------
# moulinette.pl <pseudos> <votes> [> <fichier sortie>]
#
# Pour constituer le fichier des votes, afficher le topic des votes
# sur une seule page.
# Faites un selectionner tout + copier + coller dans un fichier texte
#
# Lancez la moulinette et consultez le resultat
#
# RESTRICTIONS ACTUELLES
#
# - La moulinette ne gerant pas les quotes, faites le menage.
#
########################################################
# CONSTANTES DU PROGRAME
*NBVOTESPARPOST = \6 ;
# Vrai
#*DEBUG = \1 ;
# Faux
*DEBUG = \undef() ;
##############################################
# Fonction - Trace mode Debug
# --------------------------------------------
# Paramètre : tout ce qui est a sortir a l ecran
sub trace
{
my @args = @_ ;
if ( $DEBUG )
{
printf(@args) ;
}
} # End trace()
##############################################
# Fonction - chargement des pseudos.
# --------------------------------------------
# Le fichier doit contenir les pseudos ligne
# par ligne de la manière suivante :
# <pseudo> <numero image>
# Si le pseudo est compose, c'est a dire avec des espaces, la
# moulinette fonctionne de la maniere suivante
# <- pseudo 1..n-1 -> <image argument n>
# Michel Bouge Bouge 14
#
# Paramètre : le nom du fichier (chemin absolu)
# Valeur de retour : un tableau tabPseudo[numero]="pseudo"
# tabPseudo[0] contient le nombre d entrees
sub readPseudoFile
{
my $pseudoFile = shift @_ ;
my @tabPseudo ;
my $nbPseudos=0 ;
trace("opening $pseudoFile\n" ) ;
open (IN, "<$pseudoFile" ) or die("Impossible de lire $pseudoFile\n" ) ;
my @lignes = <IN> ;
close (IN) ;
while ( @lignes )
{
# Partie du code remaniee pour prendre en compte les pseudos composes.
# Correction dite "Michel Bouge Bouge"
my (@array) = split(" ", shift @lignes) ;
my $image = $array[0] ;
my $pseudoT = "$array[1]" ;
for ( $i=2 ; $i <= $#array ; $i++ )
{
$pseudoT=$pseudoT . " " . $array[$i] ;
}
my $noImage = sprintf("%d", $image) ;
$tabPseudo[$noImage]=$pseudoT ;
trace("tabPseudo $noImage = #$pseudoT# \n" ) ;
$nbPseudos++ ;
}
$tabPseudo[0]=$nbPseudos ;
return @tabPseudo ;
} # End readPseudoFile()
##############################################
# Fonction - Lecture de la prose des votes.
# --------------------------------------------
# Le fichier doit contenir au format texte les
# votes respectant le formalisme :
# #1 -> xx : commentaire pouvant deborder sur plusieurs lignes
# #2 -> xx : idem
# #3 -> xx : idem
# #4 -> xx : idem
# #5 -> xx : idem
# #6 -> xx : idem
#
#
# Paramètres : le nom du fichier (chemin absolu)
# le tableau des partcipants
# Valeur de retour : un hash tabVoteImage{$pseudo}->{NO_IMAGE (int), SCORE (int), VOTES(a,b,c,d,e,f,g) (@int)}.
sub readVotesFile
{
my ($votesFile, @tabPseudos) = @_ ;
# Tableau de retour des scores par image
my @tabPseudoPoints ;
# Rappel : tabPseudo[0] contient le nombre de participant et donc d images.
for ( $i=1 ; $i <= $tabPseudos[0] ; $i++ )
{
# Espace de stockage des informations collectees
# Le tableau a 7 elements car les indices commencent a 0
# Nous ne l utiliserons que pour les indices 1..6
# EXAEQUO devait servir pour l'affichage final
# Voir la fonction printResultats() pour plus de details.
my $record = { NO_IMAGE => $i,
SCORE => 0,
VOTES => [0, 0, 0, 0, 0, 0, 0],
EXAEQUO => "",
} ;
$tabPseudoPoints{$tabPseudos[$i]}= $record ;
} # for initialisation de tabPseudoPoints
# Espace de stockage temporaire des 6 votes le temps de faire
# leur analyse avant de les compter effectivement
my @tabTempVotes ;
# Hashage de depistage de votes doubles. On le remplit de la manière suivante:
# $hashVotes{"$numeroImage"} = trucmuche.
# une fois les 6 votes stockés on calcule : scalar keys %hashVotes.
# Si on a moins de 6 c'est qu'il y a eu un vote en double.
my %hashVotes = {} ;
my @list = keys %hashVotes ;
# Init à zero
for ( $i=1 ; $i <= $NBVOTESPARPOST ; $i++ )
{
$tabTempVotes[$i]=0 ;
}
# Le bareme
my @tabBareme ;
$tabBareme[1]=10 ;
$tabBareme[2]=6 ;
$tabBareme[3]=4 ;
$tabBareme[4]=3 ;
$tabBareme[5]=2 ;
$tabBareme[6]=1 ;
open (IN, "<$votesFile" ) or die("Impossible de lire $votesFile\n" ) ;
my @lignesFichier = <IN> ;
close (IN) ;
# Variable de gestion de lecture
my $expectedRank = 1 ;
# C est parti !
while ( @lignesFichier )
{
my $ligne = shift @lignesFichier ;
#-------------------------------------------------------------------
# ON PREPARE LA LIGNE AVANT ANALYSE
#-------------------------------------------------------------------
# On elimine tous les espaces et on remplace : par " " pour etre certain
# d'avoir un motif qui est de la forme : ^#[d]
$ligne =~ s/ //g ;
# le fait de remplacer le : par un " " cree un separateur
# avec les eventuels commentaires des votes
$ligne =~ s/\:/ /g ;
#-------------------------------------------------------------------
# ANALYSE : ON VEUT RECUPERER LE NUMERO DE L'IMAGE AINSI QUE SON
# CLASSEMENT POUR CE VOTE.
#-------------------------------------------------------------------
my ($rank, $image) = ( $ligne =~ m/#0*(\d{1})->#?(\d{1,2})/ ) ;
# Entres autres permet de convertir un 06 en 6.
my $noImage = sprintf("%d", $image) ;
#-------------------------------------------------------------------
# GESTION DES ERREURS OU DES LIGNES NON ATTENDUES
#-------------------------------------------------------------------
# On verifie que les rank et image ont été identifies
#par l expression reguliere
if ( !defined($rank) || !defined($noImage) )
{
# La ligne ne ressemble pas a un vote -> skip
next ;
} # if - le split sort bien des rank et noImage => ligne qui nous interesse
# On verifie que l image existe bien
if ( !defined($tabPseudos[$noImage]) )
{
# Rate. ligne invalidant le bloc de 6 votes.
printf("Ligne ignoree pour cause d image %s et de pseudo %s fantasque=%s\n",
$noImage,
$tabPseudos[$noImage],
$ligne) ;
# Plus rien a attendre des lignes restantes du bloc,
# on se positionne pour attendre le prochain bloc de 6 votes
$expectedRank=1 ;
# Et plus rien a faire dans la ligne en cours.
next ;
} # if - le numero de l image existe bien.
# A ce stade on verifie que $expectedRank correspond bien au $rank rencontre
if ( $expectedRank != $rank )
{
# ce n'est pas le cas => les votes sont mal ecrits
# On repositionne les valeurs de maniere a attendre un vote 1.
$expectedRank=1 ;
# Et on n'a plus rien a faire dans cette ligne, on passe a la suivante
next ;
} # if - le vote est bien pour la nieme image (de 1 à 6) attendue.
#-------------------------------------------------------------------
# CECI EST UNE LIGNE QUE L'ON ATTENDAIT
#-------------------------------------------------------------------
# Tout d'abord on comptabilise le vote
$tabTempVotes[$rank] = $noImage ;
# On rempli un hash qui sert a detecter les votes doubles
$hashVotes{$noImage} = "flag" ;
# Ensuite on gere la boucle en fonction de l'avancement.
if ( $rank <= 5 )
# Si on etait a rank 1 (premier vote) on attend 2 (deuxieme vote)
# Si on etait a 2 on attend 3.
# De meme jusqu'a 5.
{
$expectedRank++ ;
}
else
{
#-------------------------------------------------------------------
# BLOC DE 6 VOTES DANS @tabTempVotes !
#-------------------------------------------------------------------
if ( (scalar keys %hashVotes) < 7 )
# Un couillon a vote deux fois pour meme image. 7 parce que on a toujours
# les elements + un hash
{
%hashVotes = {} ;
$tabTempVotes[1] = $tabTempVotes[2] = $tabTempVotes[3] =
$tabTempVotes[4] = $tabTempVotes[5] =
$tabTempVotes[6] = 0 ;
$expectedRank=1 ;
printf("Vote en double detecte, bloc de 6 votes ignore en ligne \n" ) ;
next ;
} # if - 6 votes distincts
#---------------------------------------------------------------------
# VERIFS OK, ON PEUT MAINTENANT CREDITER LES IMAGES DES VOTES
#---------------------------------------------------------------------
for ( $i=1 ; $i<=6 ; $i++ )
{
####################################################
# Code eclairci en vue d une meilleure maintenabilite
# --------------------------------------------------
# $i est un indice qui parcourt les 6 votes dans @tabTempVotes
# $tabTempVotes[$i] contient le numero de l image pour ce vote
# Avec le numero de l'image on peut acceder au pseudo via @tabPseudos :
# $tabPseudos[$tabTempVotes[$i]]
# @tabBareme nous donne le nombre de points à créditer en fonction de $i :
# $tabBareme[$i]
# Enfin, avec %tabPseudoPoints on peut acceder au SCORE :
# $tabPseudoPoints{$tabPseudos[$tabTempVotes[$i]]}->{SCORE}
# On credite donc les points
$tabPseudoPoints{$tabPseudos[$tabTempVotes[$i]]}->{SCORE} +=
$tabBareme[$i] ;
# Et on incremente le nombre de votes en fonction de la position
$tabPseudoPoints{$tabPseudos[$tabTempVotes[$i]]}->{VOTES}[$i]++ ;
#DEBUG
trace("Boucle %d - Image %3s de %10s gagne %2s points - Score actuel %3s\n",
$i,
$tabTempVotes[$i],
$tabPseudos[$tabTempVotes[$i]],
$tabBareme[$i],
$tabPseudoPoints{$tabPseudos[$tabTempVotes[$i]]}->{SCORE}) ;
$tabTempVotes[$i]=0 ;
} # for boucle de comptage des votes
# Et c est reparti pour un tour...
$expectedRank=1 ;
%hashVotes = {} ;
trace("-----------------\n" ) ;
} # if de traitement des 6 votes
} # boucle qui parcourt le fichier des votes charge en memoire
return %tabPseudoPoints ;
} # End readVotesFile() - Fonction de lecture et de comptabilisation des votes
#########################################
# Fonction - pour remplir un hash en cas
# d egalite entre votes en pleine
# execution du sort pour trier les votes
# ---------------------------------------
# Retourne true a des fins de compatibilites du sort
#
sub fillHash
{
my ($hash, $key, $pseudoref) = @_ ;
$hash->{$key} = "ex aequo avec $pseudoref" ;
return 1 ;
} # End fillHash()
#####################################################
# Fonction - Affichage des resultats tries par score
# ---------------------------------------------------
sub printResultats
{
my %arg = @_ ;
my %exaequo ;
my $nbVotes ;
printf("----------------------------------------------\n" ) ;
printf(" Pseudo #Image Score\n" ) ;
printf("----------------------------------------------\n" ) ;
# On trie le hash des votes
# $arg{$b}->{SCORE} <=> $arg{$a}->{SCORE} fait la comparaison entre les scores
# arg{$b}->{VOTES}[1] <=> $arg{$a}->{VOTES}[1] permet en cas d'egalite des SCORES
# de trier sur le nombre de premieres places, etc... jusqu'a la 5eme place.
# La 6ième place n'a pas besoin d'etre testée car les scores sont identiques, si on
# en arrive là on sait que le nombre de 6ième places seront les memes.
#
# En cas d'egalite sur tous les criteres on remplit un hash avec les pseudos
# pour se rappeler lors de l'affichage qu'il y avait ex aequo. En rusant avec
# une fonction qui fait la modif par reference tout en renvoyant un booleen
# pour le sort, ca marche.
#
# Note : je voulais au départ mettre la chaine de caractere dans un autre
# element de la structure : $arg{$b}->{EXAEQUO}
# mais je me fais jeter a la compile pour cause d'acces interdit a un scalaire.
# Je veux bien que l'on m'indique comment faire
# sans passer par un hash separe et sans fonction
foreach $pseudo ( sort { $arg{$b}->{SCORE} <=> $arg{$a}->{SCORE} ||
( $arg{$b}->{VOTES}[1] <=> $arg{$a}->{VOTES}[1] ||
$arg{$b}->{VOTES}[2] <=> $arg{$a}->{VOTES}[2] ||
$arg{$b}->{VOTES}[3] <=> $arg{$a}->{VOTES}[3] ||
$arg{$b}->{VOTES}[4] <=> $arg{$a}->{VOTES}[4] ||
$arg{$b}->{VOTES}[5] <=> $arg{$a}->{VOTES}[5] ||
fillHash(\%exaequo, $a, $b) )
} keys %arg)
{
for ($iVotes=0 ; $iVotes <= $NBVOTESPARPOST ; $iVotes++ )
{
$nbVotes += $arg{$pseudo}->{VOTES}[$iVotes] ;
}
printf("%15s %6s %3s point(s) %s\n",
$pseudo,$arg{$pseudo}->{NO_IMAGE},
$arg{$pseudo}->{SCORE},
$exaequo{$pseudo}) ;
} # End foreach & sort
$nbVotes = $nbVotes / 6.0 ;
printf("----------------------------------------------\n" ) ;
printf(" %4s votants\n", $nbVotes) ;
} # End printResultats()
####################################################
######################################################
### ###
### # # ## # # # ###
### ## ## # # # ## # ###
### # ## # # # # # # # ###
### # # ###### # # # # ###
### # # # # # # ## ###
### # # # # # # # ###
### ###
######################################################
####################################################
if ( $#ARGV != 1 )
{
die ("Moulinette <fichiers des pseudos> <fichier des votes>\n" ) ;
}
my @pseudos = readPseudoFile($ARGV[0]) ;
my %votes = readVotesFile ($ARGV[1], @pseudos) ;
printResultats(%votes) ;

Ne connaissant pas le perl j'ai fait au mieux. Des restrictions subsistent, elle ne gère pas les quotes et ne vérifie pas que quelqu'un vote 2 fois pour la même personne.

Message édité par Toxin le 19-05-2008 à 16:57:49

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Publicité

Toxin

Carpe ★★ Vitam

Exemple de fichier des pseudos :

1 rodarur
2 LIENAD
3 Clémounet
4 Vorax1213
5 Tixa
6 siger29480
7 cdk3
8 ergerg
9 NeKsoN
10 theHitman
11 hono-lulu
12 Eroja
13 SAFE

Exemple de fichier des votes :

1 -> 02 : Un noir et blanc vraiment reussi, et une bonne idée, la photo donne deja mal au oreils.
#2 -> 10 : L'idée me plait beaucoup
#3 -> 05 :
#4 -> 04 : Bonne mise en scène
#5 -> 09 : Belle représentation du son, mais un peu trop retouché.
#6 -> 13 :
n°1275876
safe

Posté le 07-11-2006 à 23:22:31 profileditansweranswer +answer -homepageMPFavoris
Prévenir les modérateurs en cas d'abus

#1 -> 06 : J'aime beaucoup l'idée, la force que donne la mise en situation, les flous du reveil et du personnage.
#2 -> 11 : J'aime beaucoup l'idée, le cadrage, la tête satisfait du gamin qui écoute la musique.
#3 -> 09 : J'aime l'idée, le cadrage et les traitements réalisés qui sont ni de trop ni pas assez.
#4 -> 07 : J'aime l'idée, la cadrage et la lumière de cette photo n&b.
#5 -> 02 : C'est propre et simple, j'aime beaucoup.
#6 -> 04 : J'aime assez l'idée et récompense l'effort de mise en scène

@+
n°1276068
hono-lulu

Posté le 08-11-2006 à 06:54:42 profileditansweranswer +answer -IM
msn hono.lulu@hotmail.fr
homepageMPFavoris
Prévenir les modérateurs en cas d'abus

Etc...

Il suffit d'afficher le topic en mode impression et de faire CTRL-C CTRL-V dans un document texte.

On lance ensuite la moulinette selon votre OS :
UNIX

$moulinette.pl <pseudos> <votes> [ > resultat]

Windows

$perl moulinette.pl <pseudos> <votes> [ > resultat]

Le résultat est généré de la manière suivante :

-------------------------------------
Pseudo #Image Score
-------------------------------------
siger29480 6 49 point(s)
rodarur 1 49 point(s)
cdk3 7 43 point(s)
hono-lulu 11 42 point(s)
LIENAD 2 42 point(s)
theHitman 10 36 point(s)
Tixa 5 31 point(s)
Vorax1213 4 27 point(s)
NeKsoN 9 26 point(s)
ClÚmounet 3 9 point(s)
SAFE 13 5 point(s)
Eroja 12 5 point(s)
ergerg 8 0 point(s)
----------------------------------------------
14 votants

En cas d'ex aequo la moulinette affiche :

----------------------------------------------
Pseudo #Image Score
----------------------------------------------
rodarur 1 20 point(s)
ClÚmounet 3 20 point(s) ex aequo avec rodarur
LIENAD 2 20 point(s) ex aequo avec ClÚmounet
siger29480 6 4 point(s)
hono-lulu 11 3 point(s)
Vorax1213 4 3 point(s) ex aequo avec hono-lulu
cdk3 7 2 point(s)
Tixa 5 2 point(s) ex aequo avec cdk3
Eroja 12 2 point(s) ex aequo avec Tixa
SAFE 13 1 point(s)
ergerg 8 1 point(s) ex aequo avec SAFE
theHitman 10 0 point(s)
NeKsoN 9 0 point(s) ex aequo avec theHitman
----------------------------------------------
14 votants

Message édité par Toxin le 27-11-2006 à 10:03:33

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Toxin

Carpe ★★ Vitam

<réservé>

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Toxin

Carpe ★★ Vitam

<réservé>

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

rodadur

:hello: Je ne connais rien en perl, mais il me semble que tu ne tiens pas compte également du nombre de 1ères places, nombre de 2èmes places, etc, en cas d'égalité.

Message cité 1 fois

Anathema

Justice for all...

Je propose de baptiser le programme "Dan la moulinette"

Message cité 1 fois
Message édité par Anathema le 22-11-2006 à 18:45:31

---------------
Isn't it something ? Nothingman

Toxin

Carpe ★★ Vitam

rodadur a écrit :

:hello: Je ne connais rien en perl, mais il me semble que tu ne tiens pas compte également du nombre de 1ères places, nombre de 2èmes places, etc, en cas d'égalité.

Ca je crois que je ne le gèrerai jamais, d'une part c'est casse burnes, d'autre part c'est de la branlette d'ours polaires à mes yeux.
Mais si quelqu'un se dévoue ... [:bastard] !

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Toxin

Carpe ★★ Vitam

Anathema a écrit :

Je propose de baptiser le programme "Dan la moulinette"

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

yanave

oh ! j'avais fait un truc en c il ya un an ou deux il me semble... ça tenait compte de tout... mais c'était développé à l'ancienne (me suis fait plaisir avec des malloc et tout et tout !! sisi)... ça avait dépouillé deux concours mine de rien !!!

Cette façon de faire me semble bien plus moderne !

Toxin

Carpe ★★ Vitam

Tu me diras que pour tenir compte de tout il suffit d'enrichir la structure de données.

L'ideal serait de faire comme un struct en C mais dans l'état actuel de mes connaissances assez limitées je ne sais pas comment faire.

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Publicité

Toxin

Carpe ★★ Vitam

v0.91

La moulinette gère le nombre de premières places, de deuxièmes places... pour faire le classement et en cas d'égalité sur tous les éléments de comparaison affiche "ex aequo".

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

rodadur

Comme quoi il ne faut jamais dire "Fontaine, je ne boirai pas de ton eau" !

Message édité par rodadur le 23-11-2006 à 16:51:51

Toxin

Carpe ★★ Vitam

Pour tout te dire en terme de concours je m'en fous et serait plutôt enclin à déclarer un ex aequo de suite, c'est tout à l'honneur des candidats et du concours. Mais comme je ne connais pas grand chose en perl j'ai été piqué par ma curiosité pour mettre sur pied une structure de données capable de gérer ça.

Plus la fonction qui fait le tri, complètement :pt1cable:

Par ailleurs j'ai une v0.92 prête sous le coude qui gère les votes en double.

Message édité par Toxin le 23-11-2006 à 16:54:44

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Toxin

Carpe ★★ Vitam

v0.93

+ Gère les votes en double et en cas de détection de doublon le bloc de 6 votes mal rédigé est ignoré
+ Affiche le nombre de votants en fin de tableau des scores.

Code optimisé et clarifié. Beaucoup de commentaires ajoutés à des fins de maintenabilité.

Message édité par Toxin le 16-05-2007 à 16:36:38

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

cybercap

Ours véritable

du très beau boulot dont je suis incapable

Message cité 1 fois

Cygne_d_etang

Punk's not dead

cybercap a écrit :

du très beau boulot dont je suis incapable

+1

reste plus qu'a decode le nb de declenchement des 20d dans les exifs et ca sera la consecration

Message cité 1 fois

---------------
Arrière les Esquimaux! Je rentre seul. Un matador rentre toujours seul! Plus il est grand, plus il est seul. Je vous laisse à vos banquises, à vos igloos, à vos pingouins. ¡ Por favor Señora! À quelle heure le train pour Madrid?

Toxin

Carpe ★★ Vitam

Cygne_d_etang a écrit :

+1

reste plus qu'a decode le nb de declenchement des 20d dans les exifs et ca sera la consecration

[:sygus] [:gui42]

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Toxin

Carpe ★★ Vitam

Ceci dit, à partir du moment où l'on a une expérience en programmation et que l'on sait de quelles structures de données on a besoin, c'est pas si compliqué que ça :jap:

Bon, du code il est vrai que ça fait 10 ans que j'en ponds (moins maintenant du reste) et que dans mon job l'analyse de fichiers est un passage obligé

EDIT : je viens de voir deux ou trois trucs qui ne servent à rien et qui datent des versions précédentes, tiens

Message édité par Toxin le 14-12-2006 à 09:21:30

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Cygne_d_etang

Punk's not dead

heuu, j'ai fait une couille en testant ta moulinette ?

Toxin

Carpe ★★ Vitam

C'est quoi -w ?

EDIT : effectivement ça ne marche pas bien du tout avec -w [:tinostar]
EDIT2 : sur mon PC je peux me passer d'appeler perl avant, je balance le .pl directement.

Message édité par Toxin le 15-12-2006 à 14:30:34

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Cygne_d_etang

Punk's not dead

oki, pour une fois que je lis le manuel (active perl) [:tinostar]

edit: effectivement, sans le perl -w, c'est nickel

merci m'sieur [:mzarella]

----------------------------------------------
Pseudo #Image Score
----------------------------------------------
siger29480 6 10 point(s)
hono-lulu 11 6 point(s)
NeKsoN 9 4 point(s)
cdk3 7 3 point(s)
LIENAD 2 2 point(s)
Vorax1213 4 1 point(s)
ergerg 8 0 point(s)
theHitman 10 0 point(s) ex aequo avec ergerg
SAFE 13 0 point(s) ex aequo avec theHitman
rodarur 1 0 point(s) ex aequo avec SAFE
Eroja 12 0 point(s) ex aequo avec rodarur
Clémounet 3 0 point(s) ex aequo avec Eroja
Tixa 5 0 point(s) ex aequo avec Clémounet
----------------------------------------------
1 votants

[:bibije]

Message édité par Cygne_d_etang le 15-12-2006 à 14:34:45

Toxin

Carpe ★★ Vitam

Effectivement -w c'est pour une compile plus stricte.
J'ai bon espoir de plier mon code au use strict quand j'aurai le temps.

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Cygne_d_etang

Punk's not dead

heureusement, t'as pas capte le nom de la capture [:anathema]

Message cité 1 fois

Toxin

Carpe ★★ Vitam

Cygne_d_etang a écrit :

heureusement, t'as pas capte le nom de la capture [:anathema]

J'avais pas fait attention [:gui42]

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Toxin

Carpe ★★ Vitam

v0.94 disponible.
Les pseudos comportant des espaces sont gérés correctement.

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Cygne_d_etang

Punk's not dead

active perl

Toxin

Carpe ★★ Vitam

Tiens on dirait qu'il y a une couille dans le potage dans cette version...

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Cygne_d_etang

Punk's not dead

toxin ??

si tu pouvais ne pas laisser trainer tes couilles n'importe où

Message édité par Cygne_d_etang le 16-05-2007 à 18:45:38

Toxin

Carpe ★★ Vitam

Ouais ça suinte
Bon je verrais ça ce soir, je vais d'abord me rentrer

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Toxin

Carpe ★★ Vitam

Débogué.

L'affichage final croûte un peu avec un pseudo aussi long que celui de MBB mais c'est fonctionnel.

Message édité par Toxin le 17-05-2007 à 19:50:31

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Cygne_d_etang

Punk's not dead

:jap:

je teste

adoy

aka KingOfNuls

Salut,

Ca gère si on n'a pas les pseudo (fichier vide, ou sans nom, ou pas de premier paramètre par ex)?
Car cas rarissime:
Il y a plusieurs mois, j'ai du compté les votes (excell) car l'organistrice du concours avait "disparue". Je n'avais donc pas les pseudos à associer aux gagnants, qui se sont fait connaitre après-coup du coup
Peut-être que ça n'arrivera plus jamais, mais au cas où...

Cordialement.

Message édité par adoy le 18-05-2007 à 05:59:23

Cygne_d_etang

Punk's not dead

tu remplaces le pseudos par le numero de la photo et ca passe

Toxin

Carpe ★★ Vitam

Oui tu fais un fichier pseudo.txt construit de la manière suivante :

1 Photo01
2 Photo02
...

Message cité 1 fois
Message édité par Toxin le 18-05-2007 à 09:33:26

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Cygne_d_etang

Punk's not dead

Toxin a écrit :

Oui tu fais un fichier pseudo.txt construit de la manière suivante :

1 Photo01
[b]1 Photo02[/b]
...

BUggg!

Toxin

Carpe ★★ Vitam

J'ai du mal les matins où je ne travaille pas

Message édité par Toxin le 18-05-2007 à 09:33:46

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Cygne_d_etang

Punk's not dead

arghhhh, l'empaffé! [:rofl]

adoy

aka KingOfNuls

Merci pour ta réponse. J'ai oublié le plus important: bravo pour ta moulinette.

Delantera

Hail Seitan.

Han le topic de geek

---------------
500px People who think they know everything are a great annoyance to those of us who do.

Toxin

Carpe ★★ Vitam

Savoir programmer c'est être geek :??:

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Ma chaîne YT

Publicité

Page : 1 2

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Photo numérique

Concours

Da moulinette pour concours - v0.95 - perl

Sujets relatifs
[Concours 28 alternatif] - Le Flou écrase tout - Discussion	[prochain concours #XX] suggestions de thèmes
Concours	concours ....???
[Concours 27 alternatif] - VOTES - siger29480 et rodarur ex-aequo !	Concours Lions club
[Concours #27] "Bleu et/ou Rouge" - RESULTATS -> Bravo Rodadur !	annales du concours louis lumiere
[Concours 27 alternatif] - Les photos (13) - Dépôt CLOS	[Concours #27] "Bleu et/ou Rouge" - SOUMISSIONS CLOSES (40)
Plus de sujets relatifs à : Da moulinette pour concours - v0.95 - perl

Page générée en 0.162 secondes