Posts Tagged ‘email’

Perl: Programme d’envoi d’email

 email
{filelink=13117}

#!/usr/bin/perl -w
 
use Mail::Mailer;
 
my $from_address="moi@email.com";           # Destinateur
my $to_address=  "lui@email.com";           # Destinataire
my $subject="Confirmation d'inscription";   # sujet de l'email
my $msg="Merci de vous êtres inscrit";      # Message à envoyer
 
$mailer = Mail::Mailer->new("sendmail");
$mailer->open({ From    => $from_address,
                To      => $to_address,
                Subject => $subject,
              })
    or die "Erreur: $!n";
print $mailer $msg;                           #Envoyer le message
$mailer->close( );

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: Lire les emails d’un serveur POP3

serveur, list, list, adresse, email
{filelink=13118}

#!/usr/local/bin/perl
 
############## Programme de lecture d'email ##############
#   Lire les email d'un serveur Mail
#
use strict;
 
my  $mail_server="mail.serveur.com";            # Adresse du serveur mail
my  $username = "test_username";                # Nom d'utilisateur
my  $password = "test_mot_de_passe";            # Mot de passe
 
my $pop = Net::POP3->new($mail_server)
    or die "Impossible de se connecteur au serveur $mail_server : $!n";
 
# Authentification client
defined ($pop->login($username, $password))
    or die "Nom d'utilisateur ou mot de passe incorrect: $!n";
 
# Obtenir la liste des emails
my $messages = $pop->list
 or die "Impossible d'obtenir la liste des messages: $!n";
 
foreach my $msgid (keys %$messages)
{
    my $message = $pop->get($msgid);
    unless (defined $message)
     {
        warn "Impossible de lire le message avec l'ID$msgid: $!n";
        next;
    }
    # Afficher le message
    print @$message;
    $pop->delete($msgid);
}

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]

Exemple complet d’utilisation d’une classe en Perl

classe, set, email
{filelink=14327}

#!/usr/local/bin/perl -w
package Personne ;
################# Classe ##############
# En perl, une classe est un package
# contenant des fonctions et des variable
#
 
sub new{                    # Constructeur de la classe personne
    my $class = shift;
    my $personne = {
        "Nom"  => undef,
        "Profession" => undef,
        "Email"  => undef,
    };
    bless($personne, $class);    # Création de l'objet
 
    # Fonction qui permet de modifier les membres de la classe Personne
    sub set_Personne{
        my $self = shift;
        my ($nom, $profession, $email)= @_;  # Les paramètres de la fonction
 
        #Modifier les les attributs de la classe
        $self->{'Nom'} = $nom;
        $self->{'Profession'}= $profession;
        $self->{'Email'}= $email;
    }
 
    # Fonction qui permet d'afficher les valeurs des attributs
    sub get_Personne{
    my $self = shift;
    while(($key,$value)=each(%self))
    {
        print "$key: $valuen";
    }
}
 
# Création d'une instance de la classe Personne
$client = Personne->new();
 
# Initialisation de la classe
$client->set_Personne("Bill", "Gate", "bill@test.com");
 
# Accéder aux objets de la classe
$client->get_Personne;
 
# Modifier les valeurs des attributs
 $client->set_Personne("sako","adam","demo@gmail.com");
 
 #Afficher les nouvelles valeurs
 $client->get_Personne;

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]

Exemple d’utilisation d’une classe comme une Structure

classe, email
{filelink=14328}

#!/usr/local/bin/perl -w
 
use Class::Struct;          # Charger le module des structures
 
struct Personne => {        # Définir une structure nommée 'Personne'
 
    # définir les attributs de la structure
    nom   => '$',          # donnée scalaire
    profession    => '$',  # donnée scalaire
    email    => '$',       # donnée scalaire
    hobby  => '@',         # tableau
};
 
my $pers = Personne->new( );      # Création/Allocation de la structure
 
$pers->nom("Karl max");       # Modfier l'attribut 'nom'
$pers->profession("devel");   # Modfier l'attribut 'profession'
$pers->email("test@email.com");  # Modfier l'attribut 'email'
$pers->hobby( ["sport", "lecture", "cié" ] ); # Modfier l'attribut 'hobby'
 
# Afficher les valeurs des attributs
printf "Nom:%sn profession: %sn email:%sn activité extra:%s.n",
    $pers->nom, $pers->profession, $pers->email, ,$pers->hobby(0);

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]