commande awk dans script perl

Salut tout monde!!!
Je vouvrai mettre cette portion de script shell dans mon script perl, mais je ne sais pas comment s'y prendre?

Code:

---

awk '{print $1 $3 $4}' monFichier.dat

---

J'ai essayé dans le script perl cela

Code:

---

system("awk '{print $1 $3 $4}' monFichier.dat") ;

---

mai le resultat ne donne pas la même chose que si j'execute awk ds un shell.
Merci

Tout d'abord : On ne poste pas dans ce forum, on poste dans les sous-forums, comme c'est clairement indiqué en haut de ce forum... Ton prochain message ici sera supprimé sans avertissement (à part un MP), pour celui-ci je me contente de le déplacer dans le sous-forum Langage.

Ensuite pour répondre à ta question :
C'est parce que $1 $2 et $3 sont interpolés, il faut que tu écrives :

Code:

---

system("awk '{print \$1 \$3 \$4}' monFichier.dat") ;

---

Par ailleurs, je serais toi, j'écrirais ça en Perl :

Code:

---

1 2 3 4 5

open my($in), '<', 'monFichier.dat' or die "Can't open monfichier.dat : $!\n"; while( <$in> ) { print join ' ', (split)[0,1,2]; }

---

--
Jedaï

Merci beaucoup. En plus vous avez raison. Je prefere aussi la deuxieme methode car c'est que perl. Bon bref c'est un choix.

wahou c'est resolu les deux marche nickel. Comme j'avais dis je perefere la deuxieme methode qui est :

Code:

---

1 2 3 4 5

open my($in), '<', 'monFichier.dat' or die "Can't open monfichier.dat : $!\n"; while( <$in> ) { print join ' ', (split)[0,1,2]; }

---

Encore j'ai :yaisse2: je suis :king:

Merci.............