Discussion :

[jazzexperience]

Bonjour à tous et très bonne année 2011 !

Ma demande est la suivante.
J'ai une log journalière à émettre par mail. l'idée est de lire le contenu du fichier (dans l'ex ci-dessous "test.txt") et envoyer son contenu dans le corps du message.

Voici mes lignes de codes mais cela ne fonctionne pas. merci de votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!/usr/bin/perl -w
use strict; 
use warnings;
use Net::SMTP;
 
 
my ($smtpserver, $from, $to, $subject, $message, $smtp, $replyaddr, $opt, $Resultat);
 
# ouverture du fichier contenant la log
    open (Resultat, "<test.txt");	
 
$smtpserver = "smtp";
$from = "toto\@.fr";
$to = "tata\@.fr";
$subject = "Etat demarrage";
 
# Envoi du message
$smtp = Net::SMTP->new("$smtpserver", Timeout => 120);
$smtp->mail("$from");
$smtp->to("$to");
 
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Reply-to: $replyaddr\n") if $replyaddr;
$smtp->datasend("X-Mailer: Perl Sendmail \n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->data();
$smtp->datasend("Resultat\n");
$smtp->dataend();
$smtp->quit();
 
 close(Resultat);
 
# message de confirmation
print "Content-type: text/html\n\n";
print "OK<BR>\n";
exit;

[Invité]

Salut et bonne année,

C'est bien d'ouvrir et fermer ton fichier mais encore faut-il traiter son contenu.

Je t'invite à consulter ce tutoriel.

http://www.tutorials-expert.com/tuto...-Files-IO.html

[jazzexperience]

Merci

J'ai regardé ton lien mais il ne traite pas le cas d'envoi du contenu du fichier en tant que corps de message d'un mail.

Une idée ?

[mamax29]

Salut,

En perl, pour lire un fichier, on procède de la façon suivante:
1) On ouvre le fichier
2) On fait une boucle pour parcourir chaque ligne du fichier
3) Ensuite on le ferme

exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/bin/perl
 
open(DATA, "<file.txt");
 
while($ligne = <DATA>)
{
   print $ligne."\n";
}
 
close(DATA);

Dans ton cas, cela pourrait se faire de la façon suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
#!/usr/bin/perl -w
use strict; 
use warnings;
use Net::SMTP;
 
 
my ($smtpserver, $from, $to, $subject, $message, $smtp, $replyaddr, $opt, $Resultat);
 
# ouverture du fichier contenant la log
my $corpmessage = "";
open (Resultat, "<test.txt");	
while($ligne = <DATA>)
{
   $corpmessage = $corpmessage.$ligne."\n";
}
close(Resultat);
 
 
$smtpserver = "smtp";
$from = "toto\@.fr";
$to = "tata\@.fr";
$subject = "Etat demarrage";
 
# Envoi du message
$smtp = Net::SMTP->new("$smtpserver", Timeout => 120);
$smtp->mail("$from");
$smtp->to("$to");
 
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Reply-to: $replyaddr\n") if $replyaddr;
$smtp->datasend("X-Mailer: Perl Sendmail \n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->data();
$smtp->datasend($corpmessage);
$smtp->dataend();
$smtp->quit();
 
 
 
# message de confirmation
print "Content-type: text/html\n\n";
print "OK<BR>\n";
exit;

[jazzexperience]

Bonjour,

Merci pour ces explications.
En appliquant ton code j'ai ces erreurs de compil'

Name "main:ATA" used only once: possible typo at envoimail.pl line 13.
readline() on unopened filehandle DATA at envoimail.pl line 13.

ligne 13 contient

while($ligne = <DATA>)

on doit pas définir __DATA__ qq part ?

au final, le mail est envoyer mais vide au niveau du corps de message, destinataire et sujet vides.

[mamax29]

Faute de copier/coller....

remplace <DATA> par <Resultat>