voila un problem que je n'ai pas pu resoudre, pouvaiz-vous m'aider:
Écrivez un script en PERL du nom de final.pl qui prend la sortie du programme df!?l contenant la
liste des filesystems locaux et leur utilisation comme l?exemple ci-bas, et imprime la liste des
filesystems qui sont utilisés à plus de 50%.
Voici un exemple de la sortie de df ?l et de l?exécution du script PERL final.pl :
> df -l
Filesystem 1k-blocks Used Available Use% Mounted on
/dev/hda1 4059377 1331093 2518236 35% /
/dev/sda1 17066300 3439213 12738293 21% /export/home/bor
/dev/hda3 6968082 4618167 1988855 70% /export/soft/diro3
/dev/sdb1 17066300 2708067 13469439 17% /export/home/vor
> ./final.pl
/dev/hda3 a plus de 50% : 70%
Merci et bonne chance.

c'est l'énoncé d'un partiel ou je rêve  

Bien c'est l'exam de l'annee precedente, s'il vous plait aide moi....

aide toi et le ciel t'aidera

merde c'est tellement simple que t'a pas chercher beaucoup...

Ben si c'est simple c'est quoi la rep, j'ai vraiment pas le temps pour chercher...merci

on fait pas les devoirs ici, on aide sur des questions de prog

Burgergold, on chat pas ici, va cherche un site de chat..ou telecharge palmtalk...c'est bon, donc aide si tu peut ou ecris rien....Merci

 
et c'est toi qui croit me faire la morale?    
 
pose une question et je tâcherai d'y répondre, en attendant, ton temps passe
 

 
 
http://cpan.uwinnipeg.ca/htdocs/Fi [...] Space.html

ah je viens de comprendre le but de l'exo
 
tiens ça fait bien une ligne quand même

Merci Taz:
#!/usr/bin/perl
 
                         
  use strict;
   
   
  open(DF, 'df -l |') or die;
   
  while(<DF> )
  {
        print "$1 a plus de 50% : $2%\n" if m/^(\S+).+?(\d+)%/ && $2 >= 50;  
    }
     
  close(DF);