[langage] Deux codes en un !
merci bien en faites c'était tout con -_-
maintenant pour ameliorer mon programme j'aimerais bien fusionner ces deux codes :
Code:
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:
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 :)
