Discussion :

[taly]

Bonjour,

Je souhaite faire un envoi de mail via SMPT. Le fichier utilisé est d'extension .cmd

Voici mon code :

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
@rem = '
@echo off
pushd "%~dp0
perl.exe "%~f0" %1
@rem ';
#!/Program Files/Perl/bin/perl.exe
 
use strict;
use Net::SMTP;
 
my $smtp = Net::SMTP->new('monserveurSMTP') or die "Connexion SMTP impossible.";
 
$smtp->mail('test@domaine.fr');
$smtp->to('moi@mondomaine.com');
 
$smtp->data();
  $smtp->datasend("To: Destinataire\n");
  $smtp->datasend("From: Expediteur\n");
  $smtp->datasend("Subject: Objet du mail test\n");
  $smtp->datasend("Ceci est un test.");
  $smtp->dataend();
$smtp->quit;

L'envoi de mail fonctionne : je le reçoit correctement. Mais ce que je ne comprend pas c'est qu'a chaque fois que j'execute le script il me créé des fichers (dont les noms sont tous précédé par -> dans mon code).
Voir image jointe.

Savez-vous pourquoi j'ai ce résultat ??
Merci.

[2Eurocents]

J'aurai tendance à croire que c'est ton "shell" cmd qui ne capte pas bien la partie Perl et qui interprête tous les > des -> comme une redirection dans un fichier dont le nom suit.

Je suis surpris que l'envoi de mail fonctionne néanmoins.

Deux pistes :

1. Mettre toute la partie perl dans un script .pl à part que le cmd invoquera.
2. Dans le cmd actuel, incluant le Perl, faire attention à la gestion des guillemets et des quotes afin que le cmd.exe n'aille pas interpréter des trucs dans le code Perl.

Bon courage.

[taly]

Merci pour tes indications 2Eurocents.
Malheureusement je suis dans l'obligation d'utiliser un cmd.
J'ai également revérifié l'utilisation des guillemets qui me semble correcte.

D'autres pistes à me proposer....

[rcageot]

salut,
pourquoi es-tu obligé d'utiliser un cmd ?
au pire, ton cmd peut écrire le fichier perl via des echo blabla bla >> fichier.pl
et l'executer non ?

as tu essayé de créer juste un fichier.pl et l'exécuter pour voir si il te génère toujours ces fichiers ?

[taly]

en effet, j'ai essayé de faire un fichier .pl et il fonctionne bien sans généré les dits fichiers... mais, cahier des charges oblige, ca doit fonctionner avec un fichier cmd.

[Jedai]

Tu as essayé d'utiliser "perl2bat" pour faire automatiquement la traduction ? Parce que là a priori tu as oublié de faire un goto avant le script Perl....
Par ailleurs ton cahier des charges me paraît un peu étrange : tu as conscience qu'il va falloir un perl installé pour faire fonctionner ce .bat de toute façon ?

--
Jedaï