• [^] # Re: Adaptation

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

    En fait comme ceci çà fonctionne =>

    #!/usr/bin/perl
    print "Partion pleine\n";
    print "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 "$i[0]\t($i[5])\t\t$i[4]%\n";
    }
    }