Discussion :

[scoti]

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

[Haiti]

Hallu,

Tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;
 
}

[scoti]

Merci haiti de ton aide .

[Jedai]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...