Salut tout le monde,  
est ce qu'on peut utiliser AWK (avec des condition if)dans un programme perl, merci de donne un exemple...
merci et bonnee journee.

tiens bonne question, je sais qu'on peut dans un script shell mais j'ai jamais essaye avec Perl...
 
edit: mais au fait pourquoi, parce que tout ce que fait awk, Perl le fait au moins aussi bien  

oui, tu peux inliner du awk:
http://search.cpan.org/~jmcnamara/ [...] .03/Awk.pm
 
mais en fait ca utilise a2p (dans le bin/ de perl) pour convertir le code awk en perl.
 
Tu ferais mieux de directement convertir tes script avec a2p, et continuer en perl

Bien je vais essai merci

bien donne moi des sugjestions, moi je veux utiliser    df -l, dans un programme perl , et je veux affiche que les filesystem qui utilise +50%, je ne sais pas comment le faire, est ce avec simplement des tableux associatif, ou essaie le awk,  
des sugjestions????? merci

ha merde c'est le mec de l'autre topic...
je sais pas, demande à ma soeur

 
elle a quel age ta soeur?
 
Trylinux: au lieu de vouloir utiliser la commande df et awk, regarde ce qui est fournit avec Perl pour le faire
 
sinon pourquoi faire ton script en perl si c'est pour utiliser que des outils shell, autant le faire en bash ou ksh ou autre shell script...

perl -e 'map {/(\d+)%/; print if $1 > 50} `df -l`'

ouaip j'avais pensais au plus classique
 
df -l | perl -ne 'print "$1 -> $2%\n" if m/^(\S+).+?(\d+)%/ && $2 >= 50'
 
mais c'est effectivement un bon endroit pour placer map