Perl

Perl :: probleme d'array et de length [resolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Perl :: probleme d'array et de length [resolu]

Profil supprimé

je debute en perl, et j'ai fait un petit exercice issu d'un site.

Le but et de faire un prompt tant que l'input "quit" n'est pas tapé.
Une fois quit tapé, on doit reafficher tout les messages dans l'order inverse, tout en affichant le nombre de character de la phrase.

j'ai pondu cette sous routine

sub checkDot {
if ($line ne "quit\n" ) {
push (@lines, $line);
$line = <STDIN>;
&checkDot;
}
else {
@lines = reverse(@lines);
foreach $linz (@lines) {
print $linz." <= ".length($linz)." character";
}
}
}

$line = <STDIN>;
&checkDot;

esuite je fait

C:\Perl\bin>perl c:/work/p3rl/helloworld.pl
salut
les
gens
d'hfr
quit

donc la le programme se stop, et il doit me le mettre en sens inverse

mais voila ce qu'il me sort [:zytrasnif]

d'hfr
<= 6 charactergens
<= 5 characterles
<= 4 charactersalut
<= 6 character

en gros, il me sort tout les mot mais en décalé et avec le \n (ce qui n'est pas le probleme

help :cry:

Message édité par Profil supprimé le 30-07-2004 à 13:05:08

Publicité

lorill

push (@lines, chomp($line));

uriel

blood pt.2

chacal_one333 a écrit :

push (@lines, $line);

utilise chomp

edit: [:benou_grilled]

Message édité par uriel le 30-07-2004 à 12:36:22

---------------
IVG en france

Profil supprimé

hmmm, j'ai bien mis le chomp, mais il me sort 1 au lieu de la string :??:

C:\Perl\bin>perl c:/work/p3rl/helloworld.pl
test
test
quit
1 <= 1 character
1 <= 1 character

[:noxauror]

simogeo

j'ai jamais tué de chats, ...

utilises chomp() [:franck75]

edit : han zut .. grilled [:grilled] [:autobot]

---------------
from here and there -- \o__________________________________ -- la révolution de la terre, en silence

uriel

blood pt.2

[:kikiv] oui c'est bon j'ai fais autre chose alors que la enetre d'edit etait ouverte, en plus apparement y a pas que ca comem erreur...

---------------
IVG en france

Profil supprimé

[:kiki]

simogeo

j'ai jamais tué de chats, ...

uriel a écrit :

[:kikiv] oui c'est bon j'ai fais autre chose alors que la enetre d'edit etait ouverte, en plus apparement y a pas que ca comem erreur...

je plaisantais uriel [:calin]

---------------
from here and there -- \o__________________________________ -- la révolution de la terre, en silence

Profil supprimé

je connaissait pas chomp, j'aurai mis un length-1

mais bon, l'erreur est pas de la :cry:

Mr Mala

Faut pas faire
push (@lines, chmop($line)); .. il aime pô ..
faut faire

Code :

if ($line ne "quit\n" ) {
chomp($line);
push (@lines, $line);
$line = <STDIN>;
&checkDot;
}

Publicité

Profil supprimé

Citation :

C:\Perl\bin>perl cwork/p3rl/helloworld.pl
salut
les
gens
d'hfr
quit
d'hfr <= 5 character
gens <= 4 character
les <= 3 character
salut <= 6 character

superbe merci :jap:

language à rallonge ca [:ktulu]

Mr Mala

Heuu ouais en plus, tu te rends compte que tu fais une espèce de récursivité inutile ? ...
A la rigueur, essaye avec un while ...

Code :

sub checkDot {
while($line ne "quit\n" ) {
chomp($line);
push (@lines, $line);
$line = <STDIN>;
}
@lines = reverse(@lines);
foreach $linz (@lines) {
print $linz." <= ".length($linz)." character\n";
}
}
$line = <STDIN>;
&checkDot;

Message édité par Mr Mala le 30-07-2004 à 12:52:39

Profil supprimé

en effet, pas mal comme ca

lorill

ah vi c'est vrai, j'ai plus l'habitude des chaines mutables...

pospos

Code :

$/ = "quit\n";
print join("\n", reverse split("\n", <> ));

pospos

ha merde j'avais pas vu le coup de la longueur de la chaine!

Code :

$/ = "quit\n";
print join("\n", map{"$_\t<= ". length($_) . " characters"} reverse split("\n", <> ));

et si tu ne veux pas que le "quit" compte dans tes lignes:

Code :

$/ = "quit\n";
print join("\n", map{"$_\t<= ". length($_) . " characters"} reverse split(/(?:quit)?\n/, <> ));

Profil supprimé

quit n'est pas dans mes ligne

en tout cas ton code :sweat:
pas encore assez avancé

uriel

blood pt.2

faut vraiment que je me remette a faire du perl

---------------
IVG en france

pospos

en gros l'explication:
<> (ou <STDIN<, ici ca revient au meme) ne renvoi pas la meme chose suivant qu'il est executé dans un contexte scalaire ($a=<> ou if(<> ) ou scalar(<> ) ou...) ou dans un contexte de liste (print <> ou @a=<> ou ....).
Dans un contexte de liste il renvoi toutes les lignes, alros que dans un contexte scalair il ne renvoi que la ligne suivante.

la variable $/ est une variable speciale qui indique à Perl quel est el separateur de ligne. normalement il est egal à "\n". Ici on lui dit que le separateur de ligne est "quit\n".

donc au lieu de n'avoir que la permiere ligne (separateur="\n" ) si on fait $a=<>, la on aura toutes les lignes jusqu'au separateur qui est "quit\n".

on recupere ca et on le split (spli est en contexte scalair donc c'est bon), selon les "\n":
split("\n", <> );

on obtient donc en sortie un tableau de lignes que l'on peu renverser avec reverse ou modifier avec un map (pour ajouter la longueur de la ligne).
ensuite il suffit de recoller tout ca avec un join, en remettant les "\n"

Profil supprimé

:sweat:

Profil supprimé

ps : merci pour l'explication [:joce]

je reviendrait quand je serait un peu plus avancé, c'est que ma 2eme journée :'(

Message édité par Profil supprimé le 30-07-2004 à 15:07:52

Publicité

FORUM HardWare.fr

Programmation

Perl

Perl :: probleme d'array et de length [resolu]

Sujets relatifs
[PHP] problème de warning...	probleme transfert de données d'access vers excel
[PHP/SQL] - delete [résolu]	[MySQL] gros probleme de requêtes
Probleme de session sous Jsp	[java][mysql] probleme de connection
[Java] Problème avec le type long	CSS : probleme de lien visited
[Perl] Probleme de connection Perl=>Mysql
Plus de sujets relatifs à : Perl :: probleme d'array et de length [resolu]

Page générée en 0.088 secondes