Discussion :

[frees3x]

merci bien en faites c'était tout con -_-
maintenant pour ameliorer mon programme j'aimerais bien fusionner ces deux codes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
 
#chaîne de caractère
print "Bonjour !\n";
 
print "Nous allons calculer un prix sans TVA\n";
 
#On demande de rentrer un prix hors taxe
print "Le prix taxé est de: ";
$pht = <stdin>;
chomp $pht;
 
#On initialise la valeur de notre taxe
print "La taxe est de: ";
$taxe = <stdin>;
chomp $taxe;
 
#D'où la valeur hors taxe
$totaltaxe = $taxe/100 + 1;
$pht = $pht / $totaltaxe;
print "Le prix HT est de : $pht\n";

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
 
#chaîne de caractère
print "Bonjour !\n";
 
print "Nous allons calculer un prix sans TVA\n";
 
#On demande de rentrer un prix hors taxe
print "Le prix taxé est de: ";
$pht = <stdin>;
chomp $pht;
 
#On initialise la valeur de notre taxe
print "La taxe est de: ";
$taxe = <stdin>;
chomp $taxe;
 
#D'où la valeur hors taxe
$totaltaxe = $taxe/100 + 1;
$pht = $pht / $totaltaxe;
print "Le prix HT est de : $pht\n";

Le but serai que je regroupe ces deux codes dans un meme fichier perl et que lors du demrage du programme ou me demande si je veut calculez un prix hors taxe deja taxé ou alors calculer le prix d'un chiffer pas encore taxé.

Je vient de debuter perl mais je vois bien un truck du genre
print Si vous voulez calculez la taxe d'un prix deja taxé entrer le chiffre 1 et si vous voulez taxer un prix taper 2.
apres je vois pas trop comment faire en perl , mais vu que je programme en php je ferai un truck du genre if result =1 "execute?" mon premier code
et if result=2 "execute?" mon deuxieme code
else erreur , taper 1 ou 2

merci de votre aide

merci d'avence

[Arioch]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
$_ = 0;
do {
    print "veuillez choisir entre choix 1 et choix 2 : ";
    chomp($_ = <STDIN>);
    $_ = 0 if (! $_ || ($_ ne "1" && $_ ne "2"));
} while(! $_);
 
if ($_ == 1) {
    # code 1
} else {
    # code 2
}

[frees3x]

ca ne marche pas il doit y avoir un probleme ca me demande de choisir entre 1 et 2 meme si je choisis ca continue toujours
y a un erreur kelkepart
pourrai-tu m'expliquez un peu ton code ?
et sinon c'est pas une mauvaise chose d'appeller une variable $_ vu que $_ est une variable qui prend toutes les données dans un tableau par exemple , il peut pas y avoir de confusions ?

[Arioch]

ca ne marche pas il doit y avoir un probleme ca me demande de choisir entre 1 et 2 meme si je choisis ca continue toujours

Désolé, problème de syntaxe, code corrigé

pourrai-tu m'expliquez un peu ton code ?

Tant que $_ incorrect, faire :
- demander le choix et affecter la valeur saisie à $_
- $_ est incorrect si choix saisi vide OU que choix différent de 1 et différent de 2

Le "tant que" est exprimé par mon while et le "faire" par do. Encapsuler la saisie clavier dans une boucle do while oblige le user à saisir quelque chose que ton programme considèrera comme valide. C'est dingue le nombre de scripts Perl au boulot qui se contentent d'une valeur saisie au clavier et qui continuent leur bonhomme de chemin sans même se soucier que le user aie bien saisi ce que le programme attendait.

et sinon c'est pas une mauvaise chose d'appeller une variable $_ vu que $_ est une variable qui prend toutes les données dans un tableau par exemple , il peut pas y avoir de confusions ?

$_ est la variable scalaire fourre-tout en Perl, au même titre que @_ pour les listes (ou tableaux si tu préfères). Généralement, j'ai pour habitude de déclarer mes variables les plus importantes de manière explicite mais quand j'ai besoin d'une variable temporairement (ou d'une variable jetable), je passe généralement par $_.

Attention à son utilisation, surtout si tu t'en es servi à un moment pour conserver une valeur cruciale pour la suite de ton programme.