curieux

Word


curieux

Lien vers Word
Lien vers Carnet d'adresses

Voici notre fichier word.pm :

#/usr/local/bin/perl
package word;
 
sub new {
    my ($class,$forme,$lemme,$categorie,$traits)= @_;
    my $self={};

    $self->{'LEMME'} = $lemme;
    $self->{'FORME'} = $forme;
    $self->{'CATEGORIE'} = $categorie;
    $self->{'TRAITS'} = $traits;
    return bless $self;

}

sub display {

    my ($self) = @_;
    print "Le lemme $self->{'LEMME'} a pour categorie : $self->{'CATEGORIE'}\n ; La forme $self->{'FORME'} a pour traits $self->{'TRAITS'}\n";

}

sub DESTROY {

    my ($self) = @_;
    print "DESTROY $self->{'FORME'}\n";

}


sub END {
print "Programme terminé.\n";
}

sub forme {
    my $self=shift;
    if (@_) { $self->{'FORME'}=shift}
    return  $self->{'FORME'};
}

sub lemme {
    my $self=shift;
    if (@_) { $self->{'LEMME'}=shift}
    return  $self->{'LEMME'};
}

sub categorie {
    my $self=shift;
    if (@_) { $self->{'CATEGORIE'}=shift}
    return $self->{'CATEGORIE'};
}

sub traits {
    my $self=shift;
    if (@_) { $self->{'TRAITS'}=shift}
   return   $self->{'TRAITS'};
}

sub conjugaison {
    my $self=shift;
print "Conjugaison du verbe $self->{'LEMME'}au futur de l'indicatif \n";
print " je \t$self->{'LEMME'}"."ai\n";
print " tu \t$self->{'LEMME'}"."as\n";
print " il, elle, on \t$self->{'LEMME'}"."a\n";
print " nous \t$self->{'LEMME'}"."ons\n";
print " vous \t$self->{'LEMME'}"."ez\n";
print " ils, elles \t$self->{'LEMME'}"."ont\n";
print "*************************************************************\n";
}


1;

Nous avons rajouté une méthode "conjugaison" pour conjuguer les verbes du 1er groupe au futur de l'indicatif.

curieux

A chaque objet word, on associe une forme, un lemme, une catégorie et des traits (groupe, personne, temps).
Plus précisément, on indique la catégorie du lemme et les traits associés à la forme.

Le package étant défini, on l'utilise dans le programme perl useWord1pl :

#/usr/bin/perl


use word;

$oneWord = new word("AIMERA","AIMER","VERBE","Groupe 1, pers 3, temps futur");
$oneWord1 = new word("CHANTERA","CHANTER","VERBE","Groupe 1, pers 3, temps futur");
$oneWord2 = new word("PARLERA", "PARLER", "VERBE", "Groupe 1, pers 3, temps futur");
$oneWord3 = new word("FINIRONS","FINIR","VERBE","Groupe 2, pers 1, temps futur");
$oneWord4 = new word("PENSERONT","PENSER","VERBE","Groupe 1, pers 3, temps futur");
$oneWord5 = new word("VERREZ", "VOIR", "VERBE", "Groupe 3, pers 2, temps futur");

printf "-----------\nFORME : %s \nLEMME : %s \nCATEGORIE : %s\n------------\n",$oneWord->forme,$oneWord->lemme, $oneWord->categorie;
printf "-----------\nFORME : %s \nLEMME : %s \nCATEGORIE : %s\n------------\n",$oneWord1->forme,$oneWord1->lemme, $oneWord1->categorie;
printf "-----------\nFORME : %s \nLEMME : %s \nCATEGORIE : %s\n------------\n",$oneWord2->forme,$oneWord2->lemme, $oneWord2->categorie;
printf "-----------\nFORME : %s \nLEMME : %s \nCATEGORIE : %s\n------------\n",$oneWord3->forme,$oneWord3->lemme, $oneWord3->categorie;
printf "-----------\nFORME : %s \nLEMME : %s \nCATEGORIE : %s\n------------\n",$oneWord4->forme,$oneWord4->lemme, $oneWord4->categorie;
printf "-----------\nFORME : %s \nLEMME : %s \nCATEGORIE : %s\n------------\n",$oneWord5->forme,$oneWord5->lemme, $oneWord5->categorie;


$oneWord->display;
$oneWord1->display;
$oneWord1->conjugaison;
$oneWord2->display;
$oneWord2->conjugaison;
$oneWord3->display;
$oneWord4->display;
$oneWord4->conjugaison;
$oneWord5->display;

Après application du programme on obtient le résultat suivant :

résultat

Retour à la page d'accueil