Perl

[Résolu][Perl]Formatage de donnée pour envoi de mail

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu][Perl]Formatage de donnée pour envoi de mail

Sethenssen

Bonjour,

Mon but est d'envoyer un mail contenant des données bien formatées.
J'ai plusieurs colonnes et chacune doivent être bien alignées.
Cependant j'ai une colonne titre qui peut varier de 1 à 35 caractères et c'est cette colonne qui me pose le plus de problème (car elle est en seconde position et j'ai d'autres colonnes derrière).

En utilisant le format, que je redirige vers STDOUT ou dans un fichier, mes données s'affichent parfaitement bien.
Cependant dans je renvoi cela dans une variable $body qui sera insérée dans un mail cela ne ressemble plus à rien.

J'ai essayé de ne pas passer par un format mais par du sprintf et une variable avec un \t comme séparateur, mais vu que la taille de la colonne titre varie, et bien mon \t doit aussi varier et c'est très dur à gérer.

J'utilise MIME::Lite pour mes mails, mais je ne vois pas comment afficher la même chose dans mon mail que dans STDOUT en utilisant le format.

Bref je suis ouvert à toutes propositions, si pour vous cette explication reste assez clair.
Merci d'avance.

Ci-dessous mon fichier source qui s'appelle "noel":

Code :

1|Le Pole Express|291|1.9900
2|Un Bonheur N'arrive Jamais Seul|78|3.9900
3|Il N'est Jamais Trop Tard|49|3.9900
4|Sur La Piste Du Marsupilami|46|3.9900
5|Charlie Et La Chocolaterie - VM|43|1.9900
6|Twilight - Chapitre 3 : Hesitation|43|2.9900
7|Bowling|40|3.9900
8|Happy Feet - VM|40|1.9900
9|Les Looney Tunes Passent à L'action|38|1.9900
10|Twilight - Chapitre 4 : Revelation |38|3.9900
11|Harry Potter Et La Coupe De Feu|37|3.9900
12|Space Jam|35|1.9900
13|Star Wars : The Clone Wars - VM|35|3.9900
14|Chasseurs De Dragons|27|2.9900
15|La Guerre Des Boutons|25|4.9900
16|Les Goonies|24|1.9900
17|Voyage Au Centre De La Terre 2 : L'|22|4.9900
18|Dark Shadows - VM|20|4.9900
19|Harry Potter A L'ecole Des Sorciers|18|3.9900
20|Twilight - Chapitre 2 : Tentation|18|2.9900
21|Sherlock Holmes|17|3.9900
22|Chicken Run|14|2.9900
23|Harry Potter Et L'ordre Du Phenix|13|3.9900
24|Lucas, Fourmi Malgre Lui|13|1.9900
25|Moonrise Kingdom - VM|13|4.9900
26|Le Gruffalo|12|3.9900
27|Harry Potter Et Le Prisonnier D'azk|11|3.9900
28|Twilight - Chapitre 1 : Fascination|11|3.9900
29|Les Chimpanzes De L'espace 2|10|3.9900
30|Panique Au Village|4|2.9900

Voici mon script:

Code :

#!/usr/bin/perl -w
use strict;
use warnings;
 
# Global Variables
my $DIR="/home/scripts/";
my $NAME_OUTPUT_FILE = "noel";
my $OUTPUT_FILE = $DIR . sprintf($NAME_OUTPUT_FILE);
my ($TITRE,$PRIX,$VOLUME,$NB) = (0,0,0,0);
 
# Format
format STDOUT_TOP =
  @||||||||||||||||||||||||||||||||||||
  "----C'est la Magie de NOEL----"
 
  N  Titre                                      Volume       Prix
  -  --------------------------                  -----       ----
.
format STDOUT =
@##: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @##### @######.##
$NB, $TITRE,                                    $VOLUME,    $PRIX
.
 
open(OUT, "<", $OUTPUT_FILE);
while (<OUT> ) {
        chomp;
        my @tab = split(/\|/, $_);
        ($NB,$TITRE,$VOLUME,$PRIX) = ($tab[0],$tab[1],$tab[2],$tab[3]);
        write(STDOUT);
}
close(OUT);
__END__

Voici l'écran de résultat:

Code :

----C'est la Magie de NOEL----
N Titre Volume Prix
- -------------------------- ----- ----
01: Le Pole Express 291 1.99
02: Un Bonheur N'arrive Jamais Seul 78 3.99
03: Il N'est Jamais Trop Tard 49 3.99
04: Sur La Piste Du Marsupilami 46 3.99
05: Charlie Et La Chocolaterie - VM 43 1.99
06: Twilight - Chapitre 3 : Hesitation 43 2.99
07: Bowling 40 3.99
08: Happy Feet - VM 40 1.99
09: Les Looney Tunes Passent à L'action 38 1.99
10: Twilight - Chapitre 4 : Revelation 38 3.99
11: Harry Potter Et La Coupe De Feu 37 3.99
12: Space Jam 35 1.99
13: Star Wars : The Clone Wars - VM 35 3.99
14: Chasseurs De Dragons 27 2.99
15: La Guerre Des Boutons 25 4.99
16: Les Goonies 24 1.99
17: Voyage Au Centre De La Terre 2 : L' 22 4.99
18: Dark Shadows - VM 20 4.99
19: Harry Potter A L'ecole Des Sorciers 18 3.99
20: Twilight - Chapitre 2 : Tentation 18 2.99
21: Sherlock Holmes 17 3.99
22: Chicken Run 14 2.99
23: Harry Potter Et L'ordre Du Phenix 13 3.99
24: Lucas, Fourmi Malgre Lui 13 1.99
25: Moonrise Kingdom - VM 13 4.99
26: Le Gruffalo 12 3.99
27: Harry Potter Et Le Prisonnier D'azk 11 3.99
28: Twilight - Chapitre 1 : Fascination 11 3.99
29: Les Chimpanzes De L'espace 2 10 3.99
30: Panique Au Village 4 2.99

Message édité par Sethenssen le 22-12-2013 à 15:36:15

Publicité

gilou

Modérateur
Modzilla

Bonjour,
>> Cependant dans je renvoi cela dans une variable $body qui sera insérée dans un mail cela ne ressemble plus à rien.
C'est à dire? cela ne ressemble plus à rien quand on affiche dans un mailer avec des fontes à taille variable?
Deux possibilités:
- forcer l'utilisation de fontes a taille fixe
- mettre le contenu dans un tableau HTML
Sinon, je ne vois pas trop, vu que l'affichage va dépendre du mailer d'arrivée (et éventuellement de son interprétation de \t en nombre de blancs, ce qui varie de 4 à 8 il me semble)

A+,

Message édité par gilou le 26-12-2012 à 12:54:20

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Sethenssen

Bonjour Gilou,

C'est noté, je vais essayer dans cette voie.
Merci.

FORUM HardWare.fr

Programmation

Perl

[Résolu][Perl]Formatage de donnée pour envoi de mail

Sujets relatifs
Afficher une page suivant une donnée MySQL	Ouvrir une feuille à partir d'une donnée d'une combobox
Envoi formulaire POST en HTTPS depuis page HTTP	envoi direct de fichier postcript a une imprimante reseau sans drivers
Wordpress : coder une adresse mail	Creer une base de donnée pour un vendeur
formulaire php: mail ok mais vide	Envoi de mail depuis Powerpoint
quelle statégie adopter pour l'envoi des emails avec mot de passe
Plus de sujets relatifs à : [Résolu][Perl]Formatage de donnée pour envoi de mail

Page générée en 0.060 secondes