Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Perl: Exemple de destruction des objets

#!/usr/local/bin/perl -w
 
package Personne;
use strict;
 
sub new {
    my $self = { };
    bless($se

Programme: Convertir une valeur en degré

#!/usr/local/bin/perl
 
use strict;
 
my $y = 1.15470053837925;
my $x = 2.0;
 
my $conversion = 180 / 3

Manipuler les attributs d’une classe à l’aide des méthodes ‘set’ et ‘get’

#!/usr/local/bin/perl -w
 
package personne;
use strict;
 
sub Personne {
    my $self = { };
    bles

Calculer la valeur absolue

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

Classe: Comment créer des héritages entre les classes

#!/usr/local/bin/perl -w
 
# création d'une classe 'personner
package Personne;
 
sub new {
    my $cl

Exemple complet d’utilisation d’une classe en Perl

#!/usr/local/bin/perl -w
package Personne ;
################# Classe ##############
# En perl, une c

Exemple d’utilisation d’une classe comme une Structure

#!/usr/local/bin/perl -w
 
 
use Class::Struct;          # Charger le module des structures
 
struct Pe

Lancer des signaux/alarms après quelques secondes

 #!/usr/local/bin/perl
 eval
 {
while(<>) {
    print "Tapez quelque chose...";
    alarm(5);
}
  }

Perl: Exemple de création des nombres complexes

 
 
use Math::Complex;
 
my $x = Math::Complex->new(3,5);      #Nombre complexe
my $y = Math::Complex-

Classes: Exemple d’initialisation des attributs

#!/usr/local/bin/perl -w
 
package Personne;  
sub new {
    my $self = { };
    bless($self);
 
    #