Discussion :

[sorilazer]

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 :

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

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

J'ai essayé dans le script perl cela

Code :

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

 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

[Jedai]

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 :

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

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

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

Code :

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

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ï

[sorilazer]

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

[sorilazer]

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

Code :

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

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 je suis

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