• [^] # Re: super Adaptation

    Posté par . En réponse au message extraire un term d'une colone dans un tableau. Évalué à 1.

    J'ai trouvé un solution mais je passe par l'écriture d'un fichier :


    #!/usr/bin/perl -w
    use MIME::Lite;
    @hostname=(`hostname`);
    open( ATTACH, ">attach.txt") || die "$!";
    print ATTACH "Attention Partion pleine sur le serveur @hostname\n";
    print ATTACH "Partion\t\t Monté sur\t utilisé à\n";
    foreach (`df -h | tail +2 2>/dev/null`) {
    s/%//;
    my @i=split;
    if ($i[4] > 25 ) {
    print ATTACH "$i[0]\t($i[5])\t\t$i[4]%\n";
    }
    }
    close (ATTACH);

    my $msg = new MIME::Lite
    From =>'adm@hostname.org',
    To =>'user@hostname.com',
    Subject =>'Avertissement de partion pleine',
    Type =>'multipart/mixed';
    attach $msg
    Type =>'TEXT',
    Data =>"Resultat dans le fichier joint";
    attach $msg
    Type =>'TEXT',
    Path =>'attach.txt',
    Filename =>'attach.txt';

    $msg-> send;
    Merci de votre aide