[langage] awk et sed dans script perl

Bonjour,

je cherche un moyen (si c'est possible) inererles commandes de awk dans un script en perl ( je l'ai fait mais le résultat attendu n'est pas la meme que dans un sript en shell).

Par ex:

je cherche à transformer le script suivant ( en shell)

for i in `cat fichier | awk -F " " '{print $2}''`
do
echo $i
done

en équivalent en script perl.

( je ne sais pas comment faire pour intégrer le bon écriture de la syntaxe du cat fichier | awk -F " " '{print $2}
dans une boucle en perl pour qu'il comprenne).

Merci de votre aide :cry:

Hallu,

Tu peux faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

// Déclaration des variable   open( FICHIER01, "$fichier"); @fic01 = <FICHIER01>;   foreach $line (@fic01) {   ( $elt1 ,$elt2_good , $elt_autre ) = split(/ /, $line );   print $elt2_good;   }

---

Merci haiti de ton aide .

D'accord haiti, mais pourquoi ne pas utiliser les facilités de Perl dans le domaine et écrire plutôt :

Code:

---

1 2 3 4 5 6 7 8 9 10

// Déclaration des variable   open( FICHIER01, "$fichier");   while(<FICHIER01>) { ( $elt1 ,$elt2_good , $elt_autre ) = split(/ /, $_ ); print $elt2_good; }

---

D'autant que ce code présente le très grand avantage de charger le fichier ligne à ligne et non pas d'un seul coup en mémoire, ce qui pourrait être dommageable dans le cas d'un très gros fichier... :(