Discussion :

[finelady]

Bonjour,
Je veux de l'aide, j'ai fait un script perl qui prend un fichier log fait des traitement et a la fin du traitement il doit prendre le resultat et l'envoyer par email (avec SENDMAIL) a l'adresse courier contenu dans la variable d'environnement SYSADMIN.
Je sais comment envoyer un courier normal avec sendmail en specifiant l'adresse de To ... , From... et les subjects,
Mais quel code pour recuperer l'adresse de SYSADMIN pour que l'envoie se fasse automatique et speciant ds le message la date te l'heure de l'enoie.

Merci

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
#!/usr/bin/perl -w
 
 
$LOGFILE = "access.log";
open(LOGFILE) or die("Could not open log file.");
foreach $line (<LOGFILE>) {
 
    ($site, $logName, $fullName, $date, $gmt,
         $req, $file, $proto, $status, $length) = split(' ',$line);
    $time = substr($date, 13);
    $date = substr($date, 1, 11);
    $req  = substr($req, 1);
    chop($gmt);
    chop($proto);
    # do line-by-line processing.
}
close(LOGFILE);

[Jedai]

A l'avenir, mets ton code entre balise (édite ton message pour voir comment j'ai fait), sinon c'est peu lisible.

Les variables d'environnement sont accessible dans le hash %ENV en Perl, par exemple SYSADMIN :

Code :

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

print $ENV{SYSADMIN};

--
Jedaï