Discussion :

[oti025]

Bonjour,

je suis a la recherche d'aide pour un programme pouvant coujuguer un verbe du premier groupe a tout les temps et tout les modes et qui va etre capable d'exclure les autres groupes et de faire attention pour les verbes commencant par une voyelle...

Merci beaucoup

[Jasmine80]

Nous t'aiderons avec plaisir, n'hésite pas à nous poser des questions et à nous montrer ton code.

Petite piste (pour les verbes les plus simples)
1) vérifie que le verbe se termine bien par 'er' via une expression régulière dans un if
2) vérifie qu'il commence par une voyelle (également par une expression régulière dans un if)
3) récupère le radical du verbe (via une expression régulière my ($rad) = ( $verbe =~ //))
4) une fois le radical récupéré, il ne te reste plus qu'à ajouter les terminaisons en fonction du temps, mode et de la personne


La FAQ est également là pour t'aider
http://perl.developpez.com/faq/?page=sectionB7

[oti025]

Pour le moment j'ai ecrit ça : (mais je n'arrive pas a l'executer)

# Conjugaison des verbes de la première personne

while(<>){
chomp;
$ligne=$_;

if($ligne = ~ /er,VERBE/) {
$ligne.= 1er groupe
print $ligne."\n";
}

if($ligne =[a|e|i|o|u]/ ~,VERBE/) {
$ligne.=1er groupe
print $ligne."\n";
}


}

[Jasmine80]

Tu devrais utiliser les balises CODES

Pour le moment j'ai ecrit ça : (mais je n'arrive pas a l'executer)

Que veux-tu dire? Tu ne sais pas comment exécuter ce script ou y a-t'il trop d'erreurs afin qu'il ne fonctionne? Quel éditeur utilises-tu? Utilise les pragma strict et warnings.

Pourrais-tu définir clairement ce que l'on a comme informations au départ? Juste un verbe ou un fichier? Apparemment tu lis les informations dans un fichier, quelle est sa structure?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if($ligne =[a|e|i|o|u]/ ~,VERBE/)

Tu essaies de vérifier si ton verbe commence par une voyelle mais où est ce verbe? Tu dois le récupérer de la ligne avant de faire cette vérification.

Quelque chose de ce genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
	if($ligne =~ /(exp_reg_verbe)/{
 
		# récupération du verbe 
		my $verbe = $1;
 
		# terminaison en er
		if ( $verbe !~ /er$/i){
			print "pas du premier groupe\n";
		}
		# commence par une voyelle
		if ( $verbe =~ /^[aeiou]/i){
			print "commence par une voyelle\n";
		}
	}

[oti025]

je suis etudiante et je ne travaille sur perl que depuis 2 mois... j'ecrit mon programme le bloc notes et travail avec perl.
quand je demande a perl d'executer le programme il m'ouvre ma page du bloc note ou est ecrit le programme.
le sujet est : ecrire un programme qui conjugue un verbe du premier groupe appartement au modele manger, lancer a tous les temps conjugués et a toutes les personnes (on exclura le subjonctif impafait)
le programme doit reconnaitre graphiquement les verbe du groupe et exclure les autres
faire attention entre le je et j'

voila

[Jasmine80]

Quelle idée d'utiliser un bloc note ... ne peux-tu pas installer un éditeur de texte? Ca sera déjà bien assez difficile ainsi.

Tes script doivent porter l'extension .pl et rajoute au début de celui-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
#!/usr/bin/perl
 
use strict;
use warnings;

Voici quelques idées :
http://perl.developpez.com/faq/?page=sectionD2

[oti025]

c'est a dire, quel programme me conseils tu ?

[Jasmine80]

J'utilise Scite compatible sous linux et windows, sinon avant j'utilisais EnginSite Perl Editor LE spécialement prévu pour perl mais ne fonctionnant que sous windows mais il y en a plein d'autres tout aussi bien, c'est un peu une question de goût. Tu devrais en essayer quelques uns avant de faire ton choix.

[oti025]

j'ai prit EnginSite Perl Editor, je vais voir si je comprend comment ça marche

[oti025]

moé, je suis toujours autant coincé, est ce que tu pourrais me donner le debuts ou des pistes ?

[Jasmine80]

1) ouvre PERL editor

2) fais un copier coller de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
use warnings;
use strict;
 
 
my $verbe = 'manger';
 
# terminaison en er
if ( $verbe !~ /er$/i){
	print "pas du premier groupe\n";
}
else{
    print "$verbe est bien un verbe du premier groupe\n";
}

(remarque que #!/usr/local/bin/perl est automatiquement écrit par l'éditeur)

3) sauve par exemple sous le nom text.pl

4) lance le script via CTRL+F5 ou via le menu

5) cela doit afficher "manger est bien un verbe du premier groupe"


Qu'as-tu comme données en entrée?