Posts Tagged ‘calcul’

Perl: Lancer un programme externe

 calcul
{filelink=14610}

#!/usr/local/bin/perl
 
# lancer la calculatrice de windows
exec "calc";
die "Impossible de lancer le programme: $!";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Structure de contrôle: Exemple d’un bloc nu

 calcul
{filelink=15259}

#!/usr/bin/perl -w
 
# Le bloc nu exécute une seule fois son contenu
# et limite la portabilités de ses variable.
{
  print "Tapez un nombre: ";
  chomp(my $n = <STDIN>);              #Lire l'entrée clavier
  my $root = sqrt $n;  # calculer la racine carrée
  print "La racine carrée de $n est $root.n";
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Calculer la fréquence de chaque valeur dans le Hash

 calcul
{filelink=14717}

#!/usr/bin/perl -w
my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',
    			  "Angleterre" => "Londre");
%count = ( );
foreach $elem (%mes_villes)
 {
    $count{$elem}++;
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Calculer la somme d’un tableau à l’aide d’un subroutine

 calcul
{filelink=14603}

 
#!/usr/local/bin/perl -w
 
sub somme
{
 
    my ($num)= @_ ;        # Les paramètres de la fonction
    my $somme;
 
    foreach $nombre (@_)
    {
 
        $somme += $nombre;
 
    }
 
    return $somme;        # Retourner la somme
 
}
 
@vals=(10,20,30,40,50);
 
print somme(@vals);

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Calculer la différence en nombre de jour entre deux dates

 calcul, date
{filelink=13226}

use Date::Calc qw(Delta_Days);
 
@date1 = (2011, 1, 30);        # 30 janvier 2011
@date2  = (1985, 3, 05);       # 05 Mars 1985
 
#Calculer la différence
$difference = Delta_Days(@date2, @date1);
print "Nombre de jour entre les deux dates: $differencen";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Calculer la valeur absolue

 calcul
{filelink=13805}

#!/usr/local/bin/perl
 
$s = -1;
 
print "La Valeur absolue de $s = ", abs $s;

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Perl: Exemple de calcul factoriel

 calcul
{filelink=14096}

    my @factoriel = (1);
    $MAX_FACT=9;
    for my $n (1..$MAX_FACT) {
        $factoriel[$n] = $n * $factoriel[$n-1];
    }
    print $factoriel[5]  ;

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Comment accéder et traiter les arguments d’un subroutine

 calcul, méthode
{filelink=14600}

#!/usr/bin/perl
############# Subroutine #############
# le mot subroutine en anglais sous-programme
# est l'appellation de méthode ou fonction sous Perl
# pour déclarer un subroutine on utilise le mot clé 'sub'
 
# Calcul d'hypotenus
sub hypotenuse
 {
    my ($cote1, $cote2) = @_;                     # Les deux arguments de
    							                  # la fonction"subroutine"
 
    return sqrt( ($cote1 ** 2) + ($cote2 ** 2) ); # Valeur de retour
}
 
@vals = (6, 8);                  # 10
#Appel de la fonction
print hypotenuse(@vals), "n";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Calcul des puisssances avec l’opérateur ‘**’

 calcul
{filelink=14822}

###########  Puissance   #################
# Pour calculer la puissance on utilise
# l'opérateur '**'
 
foreach $val(1..9)  #Boucle  de 1 à 9
{
   printf("2 à la puissance $val=%dn",2**$val);
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Exécuter une formule sur Excel et afficher le résultat sur le console

 calcul
{filelink=13530}

#!/usr/bin/perl -w
 
use Win32::OLE;
 
$operand1 = '10';
$operand2 = '20';
 
$xls_app = Win32::OLE->new('Excel.Application');
 
# Lancer Micosoft Excel.
$xls_app->{'Visible'} = 1;
 
# Créer un document.
$xls_app->Workbooks->Add();
 
$xls_app->Cells(1,1)->{Value} = $operand1;
$xls_app->Cells(2,1)->{Value} = $operand2;
 
# Excéuter la formule
$xls_app->Cells(3,1)->{Formula} = '=somme(A1:A2)';
 
$somme = $xls_app->Cells(3,1)->{Value};
 
# Fermer MS Excel
$xls_app->Quit();
print "Excel a calculé et a retourné, $operand1 + $operand2 = $somme.";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]