voila ta réponse, je te demande au moins de faire un don au site linuxfr qui t'evite un zero a l'ecole ou d'etre lourdé de ton stage ( ce n'est pas compliqué d'ouvrir un livre ).
ce n'est qu'un gabarit, il manque plein de chose ... mais ca te sauvera la vie ( faut vraiment que cela soit crucial et urgent pour ne pas ouvrir un manuel et prendre le temps de le lire ).
# "open + while + split + if + join + print + close" grace a RTFM
Posté par Mouns . En réponse au message besoin de commande perl pour éviter une boucle sur grep, un if et un sed (en clair un rechercher remplacer conditionnel). Évalué à 3.
voila ta réponse, je te demande au moins de faire un don au site linuxfr qui t'evite un zero a l'ecole ou d'etre lourdé de ton stage ( ce n'est pas compliqué d'ouvrir un livre ).
ce n'est qu'un gabarit, il manque plein de chose ... mais ca te sauvera la vie ( faut vraiment que cela soit crucial et urgent pour ne pas ouvrir un manuel et prendre le temps de le lire ).
open( IFILE, "<", "input.txt" );
open( OFILE, ">", "output.txt" );
while( <IFILE> ) {
chomp;
my @col = split( '~', $_ );
if ( ( $col[0] eq "ACT" ) && ( $col[12] =~ /^0/ ) ) {
$col[12] = $col[14];
}
print join( '~' , @col ), "\n";
}
close( IFILE );
close( OFILE );