Un peu de Perl..

Home / Agence Web ventedetout.com / Un peu de Perl..

Voici deux scripts que j’ai codé , en effet en ce moment je reprends un peu la programmation en perl malgré que il n’y pas de lien direct avec les activité de l’agence web :)

Codage maison d’un petit script perl afin de connaître l’inverse d’un chiffre.

Voici donc le code:

#!/usr/bin/perl

my $datetime = `date +’%Y-%m-%d %X’`;

print « Bonjour nous sommes le « .$datetime. »rentres un chiffre pour connaître son inverse :\n »;
$nombre = <stdin>;
chomp $nombre;
if($nombre == 0){
print « La division par 0 est impossible ! »;
}
else {
$resultat = 1/$nombre;
print « L’inverse de « .$nombre. » est « .$resultat. »\n »;
}

Et voici le deuxième script qui permet de calculer la taxe d’un prix :

#!/usr/bin/perl

$_ = 0;
do {
print « Pour calculer le prix HT depuis le prix TTC entrez (1),\n »;
print « pour calculer le prix TTC depuis le prix HT entrez (2),\n »;
print « ou ‘Q’ pour Quitter : « ;
chomp($_ = <STDIN>);
$_ = 0 if (! $_ || ($_ ne « 1 » && $_ ne « 2 » && $_ ne « Q »));
} while(! $_);

$variablepourfermer = $_;

exit if $variablepourfermer eq « Q »;

if ($_ == 1) {
#chaîne de caractère
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 »;
} else {
#chaîne de caractère
print « Bonjour !\n »;

print « Nous allons calculer un prix TTC:\n »;

#On demande de rentrer un prix hors taxe
print « Le prix hors taxe est de:\n »;
$pht = <stdin>;
chomp $pht;

#On initialise la valeur de notre taxe
print « La taxe est de:\n »;
$taxe = <stdin>;
chomp $taxe;

#D’où la valeur ttc
$ttc = $pht+($pht*$taxe/100);
print « Le prix TTC est de : $ttc.\n »;

}

 

Et un petit peu plus d’infos sur le langue PERL :

Perl est un langage de programmation créé par Larry Wall en 1987 et reprenant certaines fonctionnalités du langage C et des langages de scripts sed, awk et shell (sh).

Perl est né du besoin de disposer d’un langage optimisé pour l’extraction d’informations de fichiers texte et la génération de rapports.

 

Et pour les codeurs ou futurs codeurs n’hésitez pas à retrouvez des tonnes d’informations sur la toile… 😉