#!/usr/bin/perl
#File: pret.pl
#Author: Prabou MOUTTOU
#Description: generer un tableau d'amortissement
#Version: 27 mai 2014

use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

#preparation des variables
my $capital=$ARGV[0];
my $taux=$ARGV[1]/100;
my $duree=$ARGV[2]*12;
my $assurance=$ARGV[3];
my $mensualite=($capital*$taux/12)/(1-(1+$taux/12)**(-$duree))+$assurance;
my $mensualite_arrondie=sprintf ("%0.2f", $mensualite);
my $montant_total_paye=$duree*$mensualite;
my $montant_total_paye_arrondi=sprintf ("%0.2f", $montant_total_paye);
my $montant_total_assurance=$duree*$assurance;
my $montant_total_assurance_arrondi=sprintf ("%0.2f", $montant_total_assurance);
my $montant_total_interets=$montant_total_paye-$capital-$montant_total_assurance;
my $montant_total_interets_arrondi=sprintf ("%0.2f", $montant_total_interets);
my $cout_du_credit=$montant_total_paye-$capital;
my $cout_du_credit_arrondi=sprintf ("%0.2f", $cout_du_credit);

print " Capital emprunte= $capital \x{20AC}\n Taux= $taux\n Duree du pret= $duree mois\n Assurance= $assurance \x{20AC}\n Mensualite= $mensualite_arrondie \x{20AC}\n Montant total paye= $montant_total_paye_arrondi \x{20AC}\n";


open (FICHIER, ">amortissement.csv") || die ("Vous ne pouvez pas creer le fichier \"amortissement.csv\"");
print FICHIER "Numero;Date;Restant du;Interets;Principal;Assurance;Mensualite\n";
my $i=1;
while ($i <= $duree) {
  my $restant_du=(12*($mensualite-$assurance)/$taux)+($capital-12*($mensualite-$assurance)/$taux)*((1+$taux/12)**($i-1)); 
  my $restant_du_arrondi=sprintf ("%0.2f", $restant_du); 
  my $interets=$restant_du*($taux/12);
  my $interets_arrondi=sprintf ("%0.2f", $interets); 
  my $principal=$mensualite-$interets-$assurance;
  my $principal_arrondi=sprintf ("%0.2f", $principal);
  print FICHIER "$i;;$restant_du_arrondi;$interets_arrondi;$principal_arrondi;$assurance;$mensualite_arrondie\n"; 
  $i++;
}

print FICHIER "TOTAL=;;;$montant_total_interets_arrondi;$capital;$montant_total_assurance_arrondi;$montant_total_paye_arrondi\n";
print FICHIER "COUT DU CREDIT=;$cout_du_credit_arrondi\n";
close (FICHIER);

#email avec le fichier en piece jointe
exec "mpack -s amortissement amortissement.csv praboum\@hotmail.com";
