#Ecrire un script “Perl” qui :
#• Lit un nombre entier N et une base B
#• Affiche le nombre N en base B

#!/usr/bin/perl -w
use strict;

my $valA; #Nombre a deconposer
my $base ; #Base de la décomposition
my @Tabval; #tableau du reste des divisions entière
my $i;  #indice de  boucle
my $recVal; #Recuperation du nompre à décomposer

print "entrez le nombre a decomposer\n";
chomp($valA = <STDIN>);
$recVal = $valA;
print "entrez la base de decomposition\n";
chomp($base = <STDIN>);

while($valA >= $base)
{
push(@Tabval , ($valA % $base));
$valA = int($valA/$base);
}
push(@Tabval , $valA );

print "La decomposition de $recVal en base $base est: ";
for($i = $#Tabval; $i>= 0; $i--)
{
print "\n $Tabval[$i] \n";
}
print "\n";