Discussion :

[snoopsnake3]

Bonjour,

Je me suis inscrit sur le site pour avoir de l'aide sur un projet de scripting en Perl qui va tourner sous AIX, ne maitrisant pas du tout je viens vous demander de l'aide, et bien sur pour aider les autres si je peux.

Mon fichier de paramètre ressemble a :

c:\fichiers\test\test1.txt;test1@yopmail.com
c:\fichiers\test\test2.txt;test2@yopmail.com
c:\fichiers\test\test3.txt;test3@yopmail.com
c:\fichiers\test\test4.txt;test4@yopmail.com,test5@yopmail.com

Mon script ressemble a :

#!/usr/opt/perl5/bin/perl

use lib "/usr/opt/perl5/lib64/5.8.8";
use File::Copy
use Mail::Sendmail

# Fichier de paramètre contenant le chemin du fichier ainsi que ses destinataires
$fp = "c:\fichiers_destinataires" ;

# Valeurs des champs séparé par un point virgule :
# 0: Chemin des fichiers a transférer
# 1: Mail des destinataires selon les fichiers

# Dossier de sauvegarde des fichiers envoyés
$ds = "c:\dossier_sauvegarde" ;

#Ouverture du fichier
with open($fp) as f :

#Lecture du fichier ligne par ligne
for line in f :

#Dès qu'un fichier existe et qu'il n'est pas vide il est envoyé par mail a sa liste de destinataires
do pour_les_fichiers_qui_existe_en_paramètre_1_de_$fp et_qui_ne_sont_pas_vide
{
%mail = (to => paramètre_1_de_$fp
from => serveur@yopmail.com
subject => Fichiers
message => Les fichiers demandés
attach => parametre_0_de_$fp
);
}

#Déplace les fichiers envoyés vers un dossier de sauvegarde
foreach les_fichiers_qui_ont_été_envoyés
{
move(les_fichiers_qui_ont_été_envoyés, $ds);
}
close

Il me manque pas mal de chose...

Merci pour votre temps par avance.

UnNoobQuiEssaye

[Lolo78]

Bonjour,

pour commencer, je pense que tu as besoin de lire un bon tutoriel sur Perl. Ça tombe bien, il y en a plusieurs sur ce site. Je recommande en particulier le tutoriel de Sylvain Lhullier.

Ci-dessous quelques commentaires sur ton code pour te faire avancer.

#!/usr/opt/perl5/bin/perl

use lib "/usr/opt/perl5/lib64/5.8.8";
use File::Copy
use Mail::Sendmail

Il faut mettre des points-virgules à la fin des instructions:

Code :

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

1
2
3
4
use lib "/usr/opt/perl5/lib64/5.8.8";
use File::Copy;
use Mail::Sendmail;

Une bonne pratique consiste à ajouter les deux pragmas suivants:

Code :

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

1
2
3
 
use strict;
use warnings;

Cela t'oblige à utiliser une syntaxe un peu plus stricte, mais cela permet à Perl de te signaler un bon nombre des erreurs que tu fais, et tu gagneras beaucoup de temps.

Cela t'oblige notamment à déclarer tes variables (avec le mot-clef my). Par exemple, cette ligne:

# Fichier de paramètre contenant le chemin du fichier ainsi que ses destinataires
$fp = "c:\fichiers_destinataires" ;

doit être modifiée comme suit:

Code :

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

1
2
3
# Fichier de paramètre contenant le chemin du fichier ainsi que ses destinataires
my $fp = "c:\fichiers_destinataires" ;

Pareil ici:

# Dossier de sauvegarde des fichiers envoyés
$ds = "c:\dossier_sauvegarde" ;

à remplacer par:

Code :

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

1
2
3
# Dossier de sauvegarde des fichiers envoyés
my $ds = "c:\dossier_sauvegarde" ;

#Ouverture du fichier
with open($fp) as f :

La syntaxe Perl pour ouvrir un fichier en lecture:

Code :

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

1
2
 
open my $FH, "<", $fp or die "Ouverture impossible de $fp $!";

#Lecture du fichier ligne par ligne
for line in f :

C'est du Perl, pas du Python. La syntaxe pour lire un fichier ligne par ligne:

Code :

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

1
2
3
4
 
while my $line (<$FH>) { 
    # ...
}

#Dès qu'un fichier existe et qu'il n'est pas vide il est envoyé par mail a sa liste de destinataires
do pour_les_fichiers_qui_existe_en_paramètre_1_de_$fp et_qui_ne_sont_pas_vide

Là, il faut ouvrir le fichier puis le lire ligne par ligne, comme ci-dessus, et extraire les données et les stocker, par exemple, dans un hachage:

Code :

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

1
2
3
4
5
6
7
 
my %file_list;
while my $line (<$FH>) { 
    chomp $line;                               # enlever le caractère de fin de ligne
    my ($file, $adresse) = split /;/, line;    # extraire les deux "champs" de la ligne
    $file_list{$file} = $adresse;              # stocker les champs dans le hachage %file_list, avec le fichier comme clef et l'adresse comme valeur
}

{
%mail = (to => paramètre_1_de_$fp
from => serveur@yopmail.com
subject => Fichiers
message => Les fichiers demandés
attach => parametre_0_de_$fp
);
}

Il faut des virgules entre les différents éléments d'un hachage, et les valeurs doivent être entre guillemets quand ce sont des chaînes de caractères. ¨Par exemple:

Code :

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

1
2
3
4
5
 
my %mail = ( to => $parametre_1,
             subject => "Fichiers",
             message => "Les fichiers demandés",
           );

Il me manque pas mal de chose...

En effet...

J'espère que mes commentaires ci-dessus te permettront d'avancer, mais tu ne feras pas l'économie de commencer par lire un bon tutoriel comme celui que je t'ai proposé (ou, du moins, les 50 premières pages).

N'hésite pas à revenir ici solliciter de l'aide quand tu auras un peu progressé dans ton code.

PS: utilise les balises de code (#) pour tes extraits de code.

[snoopsnake3]

Bonjour,

Merci d'avoir pris le temps de répondre, je vais suivre vos conseils et lire le tuto sur Perl que vous avez mentionné. Puis je reviendrais vers vous avec un script un peu plus avancé je l'espère.

Cordialement.