Interaction avec utilisateur en mode console

Version imprimable

Bonjour,
Alors voilà mon projet mais je ne sais pas vers quel module (s'il en existe un ) m'orienter:

le principe est simple : j'ai une sequence ADN ACGT.....ACGT
je veux la convertir en chiffre (ce codage est influencée par les conditions d'utilisations par exemple)
pour celà j'ai un document à part qui contient le nom de mon codage et le code:

D: alpha-purification-truc
1 2 3 4

D:beta-purification-truc
5 6 7 8

dc je demande à l'utilisateur grâce à stdin le fichier de sequence à traiter (ca c ok)
puis je veux afficher par PERL dans la console
uniquement les noms de codage disponibles 50 par 50. (celui ci pour passer au 51 -101 devra taper sur une touche)
Pour celà j'ai deja crée un document à part qui contient uniquement les noms
enfin l'utilisateur n'aura plus qu'à entrer le numero désiré

voilà mon début:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 #!usr/bin/perl $nom="Description.txt"; #interrogation de l'utilisateur: print " nom du fichier a traiter dans le dossier sequence: "; chomp ($fileName = <STDIN>); #ouverture du fichier contenant les sequences correspondant open (INFILE, $fileName) or die "Desole, impossible d'acceder a ".$fileName.".\n"; #ouverture du fichier contenant les noms de codage open (NOM, $nom) or die "Desole, impossible d'acceder a ".$fileName.".\n"; #ICI : AFFICHAGE DES CODAGES DISPONIBLES 50 PAR 50 (touche entrer pr changer) print " indice du codage choisi: "; chomp ($codage = <STDIN>);
voilà y'a -t-il un module associé ? une astuce? pouvez vous m'aider à démarrer svp
Merci d'avance

Je n'ai pas compris ton probleme...
Il te suffit d'imprimer sur la console les 50 codes courants...et d'attendre un nombre...
Si l'utilisateur n'a rien entre (equivalent a entrer), tu increment de 50 tes codes courants...Si non tu traite avec ton nombre recu via le STDIN

Voila en gros un algo
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ...ton code a toi... while ((<NOM>)&&(selection du code non faite)) { # impression des 50 codes courants for $i=indicecourant...jusqu a 50 {#imprime les code} # laisse la main a l utilisateur $code = <STDIN>; if ($code non vide) {#on sors de la boucle avec un booleen par exemple} } if (selection faite) {#codage de ton ADN}
Bon voila en gros comment je ferai...

24/07/2007, 14h36
fripette

en fait je veux que l'utilisateur puisse voir les N codes disponibles dans ma liste de code
MAIS je veux les faire défiler 50 par 50 avec une intervention de l'utilisateur qui fait passer de la page 0 à 50 à la page 51 à 101 ainsi de suite jusqu'à le Nieme code dispo
mais tu m'as donné un debut .

# impression des 50 codes courants
for $i=indicecourant...jusqu a 50
{#imprime les code}
# laisse la main a l utilisateur
$code = <STDIN>;
if ($code vide) { $i+=50 for $i= indiceactualisé à $i+50}
else { suite du code}

ca pourrait marcher

je ne sais pas si le pb te semble plus clair , Crochepatte mais merci !
24/07/2007, 14h41
crochepatte

Oups, j'avais oublié dans la boucle while d'incrementer de 50 indice courant en effet :mouarf:
24/07/2007, 14h48
fripette

comment traduire en perl "selection du code non faite "?
ca veut dire que le stdin renvoi rien c'est ca
(ah oui, au fait je débute, mille excuses)
Merci
24/07/2007, 14h58
crochepatte

en fait, concretement j'initialiserai une variable $bool = 0...Tant que l'utilisateur a rien entré, elle reste à 0...sinon elle est incrementé a 1...
Donc une fois, sorti de la boucle d'ecriture des codes...si cette variable vaut 0 c'est que l'utilisateur n'a rien entré, si elle vaut un c'est que le code a bien etait passé via la console...

Voila
24/07/2007, 15h05
fripette

je suis en train de faire des tests là et en fait j'ai découvert la fonction defined
mais ta version me plait aussi
le probleme vient de taper la touche entrée au stdin : il considère que c'est une valeur !
donc il m'execute la suite du script alors qu'il devrait afficher les 50 autres descriptions

t sur??? c bizarre...il me semble que j'ai recemment utilisé ce truc

Code:

1
2
3
4
5
6
7
8
9
 
my $valeur = <STDIN>;
if ($valeur ne "")
    {
         #code choisi
    }
else {
         #code non choisi
    }

voilà ce que j'ai mis :
au premier "enter" ca marche il m'affiche les suivants
mais pas au deuxieme :
j'arrive pas à le rendre récursif :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 open (NOM, $nom) or die "Desole, impossible d'acceder a ".$nom.".\n"; @ligne=<NOM>; $p=0; #initialisation de l'affichage while ($i<=19){ print "@ligne[$i]\n"; $i++} print " indice du codage choisi: "; chomp ($codage = <STDIN>); if ($codage !="") {print "ok";} else { $p=$i+19; while ($i<=$p){ print "@ligne[$i]\n"; $i++} print " indice du codage choisi: "; chomp ($codage = <STDIN>); }
Je dois y aller (je quitte mon stage ) mais je regarde chez moi dès que je rentre (pour te repondre bien sur :))
Merci

Généralement un code comme ça devrait faire l'affaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
my @codes = ...;
 
my $sliceIdx = 0;
 
showFifty(@codes, $sliceIdx);
 
while( my $userEntry = <STDIN> ) {
  chomp($userEntry);
 
  if( $userEntry =~ m/\A\d+\Z/ ) {
    showOne(@codes, $sliceIdx, $userEntry);
  } elsif ( $userEntry =~ m/\A\s*\Z/ ) {
    $sliceIdx += 50;
    last if $sliceIdx > $#codes;
    showFifty(@codes, $sliceIdx);
  } else {
    print "Votre entree <$userEntry> est invalide, recommencez :\n";
  }
}
 
print "La liste de codes est finie.\n";
 
sub showOne {
  # ...
}
 
sub showFifty {
  # ...
}

--
Jedaï

Hello,

Voila le bout code en perl que je verrai bien pour ton probleme....
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 use strict; use warnings; ... open (NOM, $nom) or die "Desole, impossible d'acceder a ".$nom.".\n"; # lignes du fichier my @lignes = <NOM>; close NOM; my $indexcourant = 0; my $selection = 1; my $nombrecodeecran = 20; while ($selection) { # on affiche les nombrecodeecran premier code a partir de la position indexcourant for (my $i=$indexcourant; $i<$indexcourant+$nombrecodeecran; $i++) {print "$lignes[$i]";} print "\tindice du codage choisi: "; chomp (my $codage = <STDIN>); if ($codage ne "") { # on sort de la boucle $selection = 0; print "OK le code selectionne est $codage\n"; } #si on ne sort pas on incremente $indexcourant += $nombrecodeecran; }
Voila un exemple qui devrai marcher....
Quelques remarques utiles:
-> declare tes variables avec my et utilise les packages strict et warning: cela permet d'eviter des erreurs stupide
-> ferme le flux de fichier apres l'avoir copier dans le tableau, c'est plus propre
-> nomme tes variable avec des noms explicites et n'oublie pas de commenter ton code...c'est mieux si quelqu'un essaie de comprendre ton code
-> CE CODE NE TIENT PAS COMPTE DU CAS OU L UTILISATEUR NE RENTRE PAS DE VALEUR AVANT LA FIN DE FICHIER OU UNE MAUVAISE VALEUR!!!
-> eh bien, quitter son stage a 15h30, c'est du beau ca ;)

Si tu as des questions, n'hesites pas...

Edit: Jedai a été plus rapide que moi...et son code à mon humble avis est plus performant :)

Bonjour
J'ai pas tout compris à la réponse de Jedai donc j'ai fait un mixte de vos deux propositions .
Le soucis vient de mon traitement du cas de fin de fichier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
#!usr/bin/perl 
 
use strict;
use warnings;
 
 
my $OutFile= ">outpg1.fasta";
my $seq = "";
my $counter = 1;
 
my $nom="Description.txt";
 
#interrogation de l'utilisateur:
print " nom du fichier a traiter dans le dossier sequence: ";
chomp (my $fileName = <STDIN>); 
 
 
open (INFILE, $fileName) or
  die "Desole, impossible d'acceder a ".$fileName.".\n";
 
 
open (NOM, $nom) or
  die "Desole, impossible d'acceder a ".$nom.".\n";
my $compte = 0;
$compte++ while <NOM>;
 
# lignes du fichier
my @lignes = <NOM>;
close NOM;
 
 
my $indexcourant = 0;
 
my $selection = 1;
 
my $nombrecodeecran = 70;
 
 
while ($selection)
{	
 
	# on affiche les nombrecodeecran premier code a partir de la position indexcourant
 
	for (my $i=$indexcourant; $i<$indexcourant+$nombrecodeecran; $i++)
		{print "$lignes[$i]";}
 
	print "\tindice du codage choisi: ";
	chomp (my $codage = <STDIN>);
 
 
 
 	if ($codage=~ m/\A\d+\Z/)
	{
		# on sort de la boucle
		$selection = 0;
		print "OK le code selectionne est $codage\n";
	}
	else {
		if ($codage=~ m/\A\s*\Z/ ){
			if ($indexcourant == $compte){
				print "fin du fichier";}
			else {
			 $indexcourant += $nombrecodeecran;
			}	
			}
		else { print "Vous avez rentré un mauvais numero" }
		} 
}

Le message d'erreur est le suivant :
Use of uninitialized value in string at testcodage.pl line 44

ce qui correspond à la ligne :
"
for (my $i=$indexcourant; $i<$indexcourant+$nombrecodeecran; $i++)
"

ps: à propos du stage , je suis en ce moment à la Réunion (en "vacances") donc ya deux heures de décalages par rapport à vous
ca va quand même 17h30 pour une fin de journée ?

Mouais tu aurais du peut etre plus t'inspirer plus du code de Jedai, le mien ne gere pas ce cas, et un mixte des deux peut poser des problemes...

En fait, l'erreur vient du fait que tu essaie d'afficher des valeurs qui n'existent pas...

Il faut rajouter une condition pour sortir de la boucle à la fin du fichier, et dans l'affichage, initialiser la valeur de $nombrecodeecran selon le nombre de valeurs à afficher...

Un truc dans la genre (je n'ai pas tester!!!)
Code:

1 2 3 4 5 6 7 8 while ( ($selection)&&($indexcourant < $compte) ) { if ($indexcourant+$nombrecodeecran > $compte) {$nombrecodeecran = $compte - indexcourant} # suite du code ... }
Par contre, cette partie est bizarre???
Citation:
Code:

1 2 3 4 5 6 7 8 9 10 11 else { if ($codage=~ m/\A\s*\Z/ ){ if ($indexcourant == $compte){ print "fin du fichier";} else { $indexcourant += $nombrecodeecran; } } else { print "Vous avez rentré un mauvais numero" } }
Tu recompare un truc que tu as deja comparé non??? A mon avis, tu ne compares jamais avec la chaine vide pour savoir si c'est la touche entrer qui est selectionné...Tu pars du principe que si c'est pas un bon code, c'est la touche entrer...Ce qui n'est pas vrai...

PS: 17h30 pour un stage c'est parfait!!! ;)

Bon voila, j'espere que cela t'aide

25/07/2007, 10h26
fripette

je t'explique ma logique bizarre :
j'ai trois valeurs possible
_un bon chiffre
_un blanc
_un caractere (donc tt ce qui n'est ni blanc ni chiffre)

donc le if juste au dessus de ce else traite le cas où c'est un chiffre qui est entrer
donc ok

else {
SI C UN BLANC : L'UTILISATEUR VEUT VOIR LA SUITE DES CHIFFRES

if ($codage=~ m/\A\s*\Z/ ){
MAIS SI ON ARRIVE À LA FIN DU FICHIER JE NE DOIS PAS RENVOYER D'ERREUR DONC GRACE À MON COMPTE QUI CONNAIT LA LONGUEUR DU FICHIER
if ($indexcourant == $compte){
print "fin du fichier";}
SINON AFFICHAGE DES RESULTATS SUIVANTS
else {
$indexcourant += $nombrecodeecran;
}
}
OU FORCEMENT UNE MAUVAISE ACTION

else { print "Vous avez rentré un mauvais numero" }
}

VOILÀ
je vais regarder ta reponse et essayer de m'adapter
je n'arrive pas à coder ce que Jedai faisait dans showfifty
mais je vais mieux essayer
25/07/2007, 10h50
crochepatte

Ok, j'avais mal lu... \d+ et \s* se ressemble tellement...Autant pour moi, je vais chercher mes lunettes la semaine prochaine :lol:
26/07/2007, 09h34
fripette

Merci beaucoup pour votre aide !!
J'y suis quasiment arrivé donc je vais le mettre en résolu